通达信散庄战神主图未加密选股指标公式源码

源码正文：

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{X~G_5_1~C~N~{};

源码正文：

AAF:LLV(LOW,34),LINETHICK1,COLORFFFFCC{XG51};
BBF:ma(AAF,4),LINETHICK1,COLORBLUE{XG51};
TYP := (HIGH + LOW + CLOSE)/3{XG51};
cci1:=(TYP-MA(TYP,6))/(0.015*AVEDEV(TYP,5)){XG51};
差值1:=Abs(REF(CCI1,1)-CCI1),LINETHICK0{XG51};
CCI2:=(TYP-MA(TYP,10))/(0.015*AVEDEV(TYP,10)){XG51};
差值2:=ABS(REF(CCI2,1)-CCI2),LINETHICK0{XG51};
CCI3:=(TYP-MA(TYP,20))/(0.015*AVEDEV(TYP,20)){XG51};
差值3:=ABS(REF(CCI3,1)-CCI3),LINETHICK0{XG51};
CCI4:=(TYP-MA(TYP,30))/(0.015*AVEDEV(TYP,30)){XG51};
差值4:=ABS(REF(CCI4,1)-CCI4),LINETHICK0{XG51};
CCI5:=(TYP-MA(TYP,60))/(0.015*AVEDEV(TYP,60)){XG51};
差值5:=ABS(REF(CCI5,1)-CCI5),LINETHICK0{XG51};
CCI:=CCI1+CCI2+CCI3+CCI4+CCI5{XG51};
AAA:=(3*C+H+L+O)/6{XG51};
VAR1:=(8*AAA+7*REF(AAA,1)+6*REF(AAA,2)+5*REF(AAA,3)
+4*REF(AAA,4)+3*REF(AAA,5)+2*REF(AAA,6)+REF(AAA,8))/36{XG51};
VAR2:=(HHV(VAR1,5)+HHV(VAR1,10)+HHV(VAR1,20))/3{XG51};
VAR3:=(LLV(VAR1,5)+LLV(VAR1,10)+LLV(VAR1,20))/3{XG51};
VAR4:=(HHV(VAR2,5)+HHV(VAR2,10)+HHV(VAR2,20))/3{XG51};
VAR5:=(LLV(VAR3,5)+LLV(VAR3,10)+LLV(VAR3,20))/3{XG51};
VAR6:=(LLV(VAR1,2)+LLV(VAR1,4)+LLV(VAR1,6))/3{XG51};
短线:VAR1,COLORRED{XG51};
中线:VAR6,COLORBLUE{XG51};
下跌:IF(VAR1=VAR6,VAR6, DRAWNULL),COLORCYAN{XG51};
TJ1:= CCI1>差值4{XG51};
立桩量:=FILTER(TJ1,0),NODRAW{XG51};
TJ2:=IF(BArslAst(立桩量)=1 ,1,0){XG51};
STICKLINE(立桩量 !=1,REF(HIGH,BARSLAST(立桩量)),
REF(HIGH,BARSLAST(立桩量)),1,1),COLORGREEN{XG51};
成立1:=TJ2=1{XG51};
条件成立1:=FILTER(成立1,5){XG51};
DRAWTEXT(条件成立1, REF(HIGH,BARSLAST(立桩量)),'看跌'),COLORLIGREEN{XG51};
TJ11:= CCI1<-差值4 {XG51};
立桩量2:=FILTER(TJ11,0),NODRAW{XG51};
TJ22:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(HIGH,1),1,0){XG51};
突破2:=TJ22=1{XG51};
STICKLINE(CLOSE AND 下跌!= VAR6,REF(LOW,BARSLAST(立桩量2)),
REF(LOW,BARSLAST(立桩量2)),1,1),COLORBLUE{XG51};
TJ:=IF(BARSLAST(立桩量2)=1 AND CLOSE>REF(LOW,1),1,0){XG51};
成立2:=TJ=1{XG51};
条件成立2:=FILTER(成立2,5){XG51};
DRAWTEXT(条件成立2,REF(LOW,BARSLAST(立桩量2)),'看涨'),COLORMAGENTA{XG51};
TJ111:=ABS(CCI1)>CCI AND ABS( 差值1)> ABS(差值5){XG51};
立桩量3:=FILTER(TJ111,3){XG51};
TJ3:=IF(BARSLAST(立桩量3)=1 AND CLOSE>REF(LOW,1),1,IF(BARSLAST(立桩量3)=2 AND CLOSE>REF(LOW,2),1,IF(BARSLAST(立桩量3)=3 AND CLOSE>REF(LOW,3),1,0))){XG51};
成立:=TJ3=1{XG51};
条件成立:=FILTER(成立,5){XG51};
DRAWTEXT(条件成立 AND 下跌!= VAR6,L*0.97,'☆成立'){XG51};
LC:=REF(CLOSE,1){XG51};
rsi:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100){XG51};
FF:=ema(CLOSE,3){XG51};
MA15:=EMA(CLOSE,21){XG51};
DRAWTEXT(crOSS(FF,MA15),BBF,'底背离'),COLORA6E500{XG51};
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),COLOR1880FF{XG51};
X1:=(C+L+H)/3{XG51};
BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10{XG51};
EMA8:=EMA(C,8){XG51};
DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),
EMA8,'∠45'),COLORRED{XG51};
STICKLINE(1,C,O,2.8,0),COLOR666600{XG51};
STICKLINE(立桩量,C,O,2.8,0),COLOR0000FF{XG51};
STICKLINE(1,C,O,0,0),COLORCCCCCC{X!G.5!1!C!N!{};