天堂地狱主图指标(大智慧)

源码正文：

Var1:=(CLOSE-ma(CLOSE,30))/MA(CLOSE,30)*100{XG51};
Var2:=CLOSE>OPEN AND OPEN-LOW>HIGH-CLOSE{XG51};
Var3:=REF(Var1,1)<-20 AND Var2{XG51};
Var4:=REF(Var1,1)<-20 AND CLOSE>OPEN AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20{XG51};
Var5:=FILTER(Var3 OR Var4,3){XG51};
Var6:=OPEN>CLOSE AND HIGH-IF(CLOSE>OPEN,CLOSE,OPEN)>IF(OPEN<CLOSE,OPEN,CLOSE)-LOW{XG51};
Var7:=REF(Var1,1)>Abs(-20) AND Var6{XG51};
Var8:=REF(Var1,1)>ABS(-20) AND CLOSE<OPEN AND (REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*1000>20{XG51};
Var9:=FILTER(Var7 OR Var8,3){XG51};
VarA:=REF(Var1,1)<-13 AND Var2{XG51};
VarB:=REF(Var1,1)<-13 AND CLOSE>OPEN AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20{XG51};
VarC:=FILTER(VarA OR VarB,3){XG51};
VarD:=REF(Var1,1)>ABS(-13) AND Var6{XG51};
VarE:=REF(Var1,1)>ABS(-13) AND CLOSE<OPEN AND (REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*1000>20{XG51};
VarF:=FILTER(VarD OR VarE,3){XG51};
DRAWICON(Var5*Var1>0,LOW,1){XG51};
DRAWICON(Var9*Var1>0,HIGH,2){XG51};
DRAWTEXT(VarC*Var1>0,1.02*REF(CLOSE,1),'关注'){XG51};
DRAWTEXT(VarF*Var1>0,0.99*REF(CLOSE,1),'风险'){XG51};
Var10:=(2*CLOSE+HIGH+LOW+OPEN)/5{XG51};
A1: (ema(Var10,3)+EMA(Var10,6)+EMA(Var10,12)+EMA(Var10,24))/4{XG51};
A2: EMA(A1,2){XG51};
A3: EMA(A2,2){XG51};
A4: EMA(A3,2){XG51};
A5: EMA(A4,2){XG51};
A6: EMA(A5,2){XG51};
A7: EMA(A6,2){XG51};
生命线: EMA(CLOSE,55){XG51};
Var11:=LLV(LOW,5){XG51};
Var12:=HHV(HIGH,4){XG51};
Var13:=EMA((Var10-Var11)/(Var12-Var11)*100,4){XG51};
Var14:=EMA(0.667*REF(Var13,1)+0.333*Var13,2){XG51};
DRAWTEXT(crOSS(Var13,Var14) AND Var13<40,LOW,'买'),colorred{XG51};
Var15:=EMA(Var10,13)-EMA(Var10,34){XG51};
Var16:=EMA(Var15,5){XG51};
Var17:=(-2)*(Var15-Var16)*3.8{XG51};
DRAWTEXT(CROSS(Var17,MA(Var17,3)) AND Var16,HIGH,'卖');Var18:=(2*CLOSE+LOW+HIGH)/4{XG51};
天堂: EMA(Var18,45)*1.15;地狱: EMA(Var18,40)*0.85{X~G_5-1~C~N~{};

源码正文：

Var3:=(CLOSE-ma(CLOSE,6))/MA(CLOSE,6)*100{XG51};
Var4:=(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100{XG51};
Var5:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100{XG51};
Var6:=(Var3+Var4+Var5)/3{XG51};
Var7:=ema(Var6,5){XG51};
指标: EMA(EMA(Var3,5),5)*3, COLORstICK{XG51};
Var8:=IF(Var6<=-20,10,0){XG51};
Var9:=HHV(Var8,10){XG51};
STICKLINE(Var8=10,20,10,5,0),COLOR6666FF{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};
换手: vol/CAPITAL*100, COLORBLUE{XG51};
成交〖万手〗: VOL/10000, COLORRED{XG51};
DRAWTEXT(Var8=10 AND FILTER(Var8=10,5),-10,'近底部'),linethick1,COLORBLUE{XG51};
STICKLINE(Var8=10 AND FILTER(Var8=10,5),-1.6,-10,5,0),coloryellow{XG51};
DRAWTEXT(VarA=20,15,'底部'),linethick1,colorwhite{XG51};
STICKLINE((VarA=20),0,10,5,0),colorwhite{XG51};
VARC:=(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)){XG51};
VARD:=(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)){XG51};
STICKLINE((VARC=1),(-14),0,4,0),Color0000FF{XG51};
DRAWTEXT((VARC=1),(-14),'买'),Color0000FF{XG51};
STICKLINE((VARD=1),14,0,4,0),Color00FF00{XG51};
DRAWTEXT((VARD=1),18,'卖'),Color00FF00{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};
Var10:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA
((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1){XG51};
Var11:=VarF<REF(Var10,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1){XG51};
DRAWTEXT(Var11 AND COUNT(Var11,30)=1,15,'大资金活动'),linethick1,COLORff00ff{XG51};
STICKLINE(Var11 AND COUNT(Var11,30)=1,1,10,5,0),colorff00ff{XG51};
Var12:=(HIGH+LOW+CLOSE)/3{XG51};
Var13:=(Var12-MA(Var12,14))/(0.015*AVEDEV(Var12,14)){XG51};
Var14:=(Var12-MA(Var12,70))/(0.015*AVEDEV(Var12,70)){XG51};
Var15:=IF(Var13>=150 AND Var13<200 AND Var14>=150 AND Var14<200,10,0){XG51};
Var16:=IF(Var13<=-150 AND Var13>-200 AND Var14<=-150 AND Var14>-200,-10,Var15){XG51};
Var17:=(CLOSE-MA(CLOSE,13))/MA(CLOSE,13)*100{XG51};
Var18:=100-Abs(Var17){XG51};
Var19:=IF(Var18<90,Var18,100){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,15,'大笔出货'),linethick1,COLORffcc66{XG51};
STICKLINE(Var1C AND COUNT(Var1C,30)=1,0,10,5,0),colorffcc66{X*G=5?1*C*N*{};