通达信机构买卖主图未加密选股指标公式源码

源码正文：

ma1:MA(CLOSE,5){XG51};
MA2:MA(CLOSE,10){XG51};
MA3:MA(CLOSE,20){XG51};
MA4:MA(CLOSE,30){XG51};
VAR3:=LLV(HIGH,240){XG51};
VAR4:=100*(CLOSE-VAR3)/VAR3{XG51};
VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100{XG51};
VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100{XG51};
VAR7:=0{XG51};
VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(Abs(CLOSE-REF(CLOSE,1)),7,1)*100{XG51};
VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100{XG51};
VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0){XG51};
VAR11:=zig(3,6)>REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)<=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)<=REF(ZIG(3,6),3){XG51};
VAR12:=ZIG(3,6)<REF(ZIG(3,6),1) AND REF(ZIG(3,6),1)>=REF(ZIG(3,6),2) AND REF(ZIG(3,6),2)>=REF(ZIG(3,6),3){XG51};
VAR13:=ZIG(3,22)>REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)<=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)<=REF(ZIG(3,22),3){XG51};
VAR14:=ZIG(3,22)<REF(ZIG(3,22),1) AND REF(ZIG(3,22),1)>=REF(ZIG(3,22),2) AND REF(ZIG(3,22),2)>=REF(ZIG(3,22),3){XG51};
VAR15:=ZIG(3,51)>REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)<=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)<=REF(ZIG(3,51),3){XG51};
VAR16:=ZIG(3,51)<REF(ZIG(3,51),1) AND REF(ZIG(3,51),1)>=REF(ZIG(3,51),2) AND REF(ZIG(3,51),2)>=REF(ZIG(3,51),3){XG51};
VAR17:=ZIG(3,72)>REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)<=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)<=REF(ZIG(3,72),3){XG51};
VAR18:=ZIG(3,72)<REF(ZIG(3,72),1) AND REF(ZIG(3,72),1)>=REF(ZIG(3,72),2) AND REF(ZIG(3,72),2)>=REF(ZIG(3,72),3){XG51};
VAR19:=ema(CLOSE,2)-EMA(CLOSE,150){XG51};
买１:=VAR10{XG51};
买２:=(VAR11+VAR13+VAR15+VAR17){XG51};
卖１:=(VAR12+VAR14+VAR16+VAR18){XG51};
B:IF(买１>0 OR 买２>0,LOW*0.99,DRAWNULL),crOSSDOT,LINETHICK3,COLORBLUE{XG51};
DRAWTEXT(买１>0 OR 买２>0,LOW*0.99,'买'),COLORWHITE{XG51};
S:IF(卖１>0,HIGH*1.01,DRAWNULL),CROSSDOT,LINETHICK3,COLORCYAN{XG51};
DRAWTEXT(卖１>0,HIGH*1.02,'卖'),COLORCYAN{XG51};
DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),LOW*0.98,1) {XG51};
DRAWICON((ZIG(3,5)<REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)>=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)>=REF(ZIG(3,5),3)),HIGH*1.01,2){XG51};
ZB:=EMA(EMA(VAR3,5),5)*3, COLORstICK{XG51};
VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0){XG51};
K:=EMA(VAR7,5)*2, , COLORFF00FF{XG51};
D:=EMA(K,5), , COLORRED{XG51};
J:=K*3-D*2, ,COLORBLUE{XG51};
VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10{XG51};
HS:=vol/CAPITAL*100, , COLORCYAN{XG51};
VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20{XG51};
VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.95,'机构进场'),LINETHICK1,COLORFF00FF{XG51};
VAR1A:=IF(VARE>0,VARE,0){XG51};
VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60{XG51};
VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19<100{XG51};
DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,LOW*0.95,'大顶（底）') COLORRED{XG51};
BU:=CROSS(HIGH,SAR(3,1,20)){XG51};
SEL:=CROSS(SAR(3,1,20),LOW){XG51};
DRAWTEXT(BU,LOW,'B'),COLORBLUE,LINETHICK2{XG51};
DRAWTEXT(SEL,1.01*HIGH,'S'),COLORCYAN,LINETHICK2{X~G~5?1~C~N~{};

源码正文：

筹码价位低:=COst(0.001){XG51};
筹码价位2:=COST(0.001)+(COST(99.999)-COST(0.001))/20*2{XG51};
筹码价位4:=COST(0.001)+(COST(99.999)-COST(0.001))/20*4{XG51};
筹码价位6:=COST(0.001)+(COST(99.999)-COST(0.001))/20*6{XG51};
筹码价位8:=COST(0.001)+(COST(99.999)-COST(0.001))/20*8{XG51};
筹码价位10:=COST(0.001)+(COST(99.999)-COST(0.001))/20*10{XG51};
筹码价位12:=COST(0.001)+(COST(99.999)-COST(0.001))/20*12{XG51};
筹码价位14:=COST(0.001)+(COST(99.999)-COST(0.001))/20*14{XG51};
筹码价位16:=COST(0.001)+(COST(99.999)-COST(0.001))/20*16{XG51};
筹码价位18:=COST(0.001)+(COST(99.999)-COST(0.001))/20*18{XG51};
筹码价位高:=COST(99.999){XG51};
区间最大筹码:=maX(MAX(MAX(MAX(MAX(WINNER(筹码价位2)-WINNER(筹码价位低),WINNER(筹码价位4)-WINNER(筹码价位2)),
MAX(WINNER(筹码价位6)-WINNER(筹码价位4),WINNER(筹码价位8)-WINNER(筹码价位6))),
MAX(WINNER(筹码价位10)-WINNER(筹码价位8),WINNER(筹码价位12)-WINNER(筹码价位10))),
MAX(WINNER(筹码价位14)-WINNER(筹码价位12),WINNER(筹码价位16)-WINNER(筹码价位14))),
MAX(WINNER(筹码价位18)-WINNER(筹码价位16),WINNER(筹码价位高)-WINNER(筹码价位18))){XG51};
筹码密集均价:=IF(区间最大筹码=WINNER(筹码价位2)-WINNER(筹码价位低),(筹码价位2+筹码价位低)/2,
IF(区间最大筹码=WINNER(筹码价位4)-WINNER(筹码价位2),(筹码价位4+筹码价位2)/2,
IF(区间最大筹码=WINNER(筹码价位6)-WINNER(筹码价位4),(筹码价位6+筹码价位4)/2,
IF(区间最大筹码=WINNER(筹码价位8)-WINNER(筹码价位6),(筹码价位8+筹码价位6)/2,
IF(区间最大筹码=WINNER(筹码价位10)-WINNER(筹码价位8),(筹码价位10+筹码价位8)/2,
IF(区间最大筹码=WINNER(筹码价位12)-WINNER(筹码价位10),(筹码价位12+筹码价位10)/2,
IF(区间最大筹码=WINNER(筹码价位14)-WINNER(筹码价位12),(筹码价位14+筹码价位12)/2,
IF(区间最大筹码=WINNER(筹码价位16)-WINNER(筹码价位14),(筹码价位16+筹码价位14)/2,
IF(区间最大筹码=WINNER(筹码价位18)-WINNER(筹码价位16),(筹码价位18+筹码价位16)/2,
(筹码价位高+筹码价位18)/2))))))))){XG51};
筹码密集度:=(WINNER(筹码密集均价*1.1)-WINNER(筹码密集均价*0.9))*100{XG51};
今筹码相对位:=(筹码密集均价-COST(0.001))/(COST(99.999)-COST(0.001))*100{XG51};
年股价相对位:=(C-LLV(LOW,360))/(HHV(HIGH,360)-LLV(LOW,360))*100{XG51};
年内最大收益:=(C-LLV(LOW,360))/LLV(LOW,360)*100{XG51};
筹码低位密集:筹码密集度>60 AND 今筹码相对位<40 AND 年股价相对位<50 AND 年内最大收益<50 AND BARSCOUNT(C)>240{XG51};
筹码高位密集:筹码密集度>60 AND 今筹码相对位>60 AND 年股价相对位>80 AND 年内最大收益>100 AND BARSCOUNT(C)>240{XG51};
STICKLINE(筹码低位密集=1,0,1,1,0),COLORWHITE{XG51};
STICKLINE(筹码高位密集=1,0,1,1,0),COLORCYAN{X.G-5_1.C.N.{};