{计算区}
SHBR01:=EMA(SLOPE((C+H+L)/3,21)*9+(C+H+L)/3,21);
SHBR02:=SHBR01>=(EMA(EMA(H,21),30)+EMA(EMA(L,21),30))/2;
SHBR03:=SHBR01<=(EMA(EMA(H,21),30)+EMA(EMA(L,21),30))/2;
ZJX01:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
ZJX02:=3*SMA(ZJX01,3,1)-2*SMA(SMA(ZJX01,3,1),3,1);
ZJX03:=crOSS(ZJX02,REVERSE(ZJX02)) AND REF(MA(C,1),10)>REF(MA(C,60),10);
JCLD01:=REF((L+O+C+H)/4,1);
JCLD02:=SMA(Abs(L-JCLD01),16,1)/SMA(MAX(L-JCLD01,0),9,1);
JCLD03:=EMA(IF(L<=LLV(L,25),EMA(JCLD02,9),0),3);
JCLD04:=SMA(ABS(JCLD01-H),16,1)/SMA(MAX(JCLD01-H,0),9,1);
JCLD05:=EMA(IF(H>=HHV(H,25),EMA(JCLD04,9),0),3);
YDBX01:=(2*C+H+L+O)/5;
YDBX02:=EMA((YDBX01-MA(YDBX01,15))/(0.025*AVEDEV(YDBX01,15)),2);
YDBX03:=EMA((YDBX01-MA(YDBX01,60))/(0.025*AVEDEV(YDBX01,60)),2);
RSPL:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100;
JDD01:=100*SMA(MAX(C-REF(C,1),0),5,1)/SMA(ABS(C-REF(C,1)),5,1);
JDD02:=SUM(IF((H-REF(H,1))>0 AND (H-REF(H,1)>(REF(L,1)-L)),(H-REF(H,1)),0),10);
JDD03:=SUM(IF((REF(L,1)-L)>0 AND (REF(L,1)-L)>(H-REF(H,1)),(REF(L,1)-L),0),10);
JDD04:=MA(100*ABS(JDD03-JDD02)/(JDD03+JDD02),5);
JDD05:=100*(HHV(H,10)-C)/(HHV(H,10)-LLV(L,10));
JDD06:=LLV(2*JDD01-JDD05+JDD04,1);
JDD07:=MAX(JDD06-200,0);
JDD08:=MIN(JDD06,0);
asr0:=IF(FROMOPEN<240,REF(C,1),C);
ASR1:=100*(WINNER(ASR0*1.1)-WINNER(ASR0*0.9));
ASR2:=100*(WINNER(ASR0*1.2)-WINNER(ASR0*0.8));
ASR3:=100*(WINNER(ASR0*1.3)-WINNER(ASR0*0.7));
ASR4:=(68*ASR1+27*ASR2+4*ASR3)/100;
{绘图区}
STICKLINE(SHBR02=1,100,-100,5,0),COLOR000044;
STICKLINE(SHBR03=1,100,-100,5,0),COLOR002200;
DRAWBAND(IF(RSPL>85,16,IF(RSPL<15,-16,0)),RGB(66,66,66),0,RGB(99,99,99));
DRAWBAND(100,RGB(168,168,0),100-JDD07,RGB(168,168,0));
DRAWBAND(-100-JDD08,RGB(168,168,0),-100,RGB(168,168,0));
进场:IF(JCLD03>REF(JCLD03,1),JCLD03,0),COLORRED,NODRAW;
洗盘:IF(JCLD03<REF(JCLD03,1),JCLD03,0),COLORGREEN,NODRAW;
冲顶:IF(JCLD05>REF(JCLD05,1),JCLD05,0),COLORFF00FF,NODRAW;
出场:IF(JCLD05<REF(JCLD05,1),-JCLD05,0),COLORYELLOW,NODRAW;
STICKLINE(JCLD03>REF(JCLD03,1),0,MIN(JCLD03,100),2.1,0 ),COLOR000099;
STICKLINE(JCLD03>REF(JCLD03,1),0,MIN(JCLD03,100),1.5,0 ),COLOR0000BB;
STICKLINE(JCLD03>REF(JCLD03,1),0,MIN(JCLD03,100),0.9,0 ),COLOR0000DD;
STICKLINE(JCLD03>REF(JCLD03,1),0,MIN(JCLD03,100),0.3,0 ),COLOR0000FF;
STICKLINE(JCLD03<REF(JCLD03,1),0,MIN(JCLD03,100),2.1,0),COLOR009900;
STICKLINE(JCLD03<REF(JCLD03,1),0,MIN(JCLD03,100),1.5,0),COLOR00BB00;
STICKLINE(JCLD03<REF(JCLD03,1),0,MIN(JCLD03,100),0.9,0),COLOR00DD00;
STICKLINE(JCLD03<REF(JCLD03,1),0,MIN(JCLD03,100),0.3,0),COLOR00FF00;
STICKLINE(JCLD05>REF(JCLD05,1),0,MAX(-JCLD05,-100),2.1,0 ),COLOR990099;
STICKLINE(JCLD05>REF(JCLD05,1),0,MAX(-JCLD05,-100),1.5,0 ),COLORBB00BB;
STICKLINE(JCLD05>REF(JCLD05,1),0,MAX(-JCLD05,-100),0.9,0 ),COLORDD00DD;
STICKLINE(JCLD05>REF(JCLD05,1),0,MAX(-JCLD05,-100),0.3,0 ),COLORFF00FF;
STICKLINE(JCLD05<REF(JCLD05,1),0,MAX(-JCLD05,-100),2.1,0),COLOR009999;
STICKLINE(JCLD05<REF(JCLD05,1),0,MAX(-JCLD05,-100),1.5,0),COLOR00BBBB;
STICKLINE(JCLD05<REF(JCLD05,1),0,MAX(-JCLD05,-100),0.9,0),COLOR00DDDD;
STICKLINE(JCLD05<REF(JCLD05,1),0,MAX(-JCLD05,-100),0.3,0),COLOR00FFFF;
NOTEXT01:IF(YDBX02>100,100,IF(YDBX02<-100,-100,YDBX02)),COLORLIMAGENTA;
NOTEXT02:IF(YDBX03>100,100,IF(YDBX03<-100,-100,YDBX03)),COLORLICYAN;
NOTEXTR9:IF(ABS((C-MA(C,12))/MA(C,12)*100)>10,2.72*(C-MA(C,12))/MA(C,12)*100,0),DOTLINE,COLORBROWN;
STICKLINE(ZJX03,0,30,2,0),COLORBLUE;
STICKLINE(ZJX03,30,60,1,0),COLORWHITE;
DRAWTEXT(ZJX03,70,'庄家出现'),COLORRED;
DRAWNUMBER(FILTER(ASR4<24,5),0,100-ASR4),COLORYELLOW;
