非分笔图:= if(TIME0=0,1,0),linethick0;SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);量能饱和度:SAT,linethick0;AA10:MA(CLOSE,8),color0000FF;AA12:MA(CLOSE,12),color0000FF;BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);MA13:=MA(CLOSE,13);FILLRGN((((AA12 <= AA10) AND (BB12 >= 1)) AND (BB10 >= 1)),AA10,AA12),Color0098FF;FILLRGN((((AA12 >= AA10) AND (BB10 <= 1)) AND (BB10 <= 1)),AA10,AA12),color00FF00;x1:=(C+L+H)/3;bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10;ema8:=ema(c,8);DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),ema8,'∠45上升'),colorwhite;顶:=COST(95),linethick2,Colorred;Var11:=(2*CLOSE+HIGH+LOW)/4;底:EMA(Var11,99)*0.91, linethick2,colorgreen;AA1:=AMOUNT/V;BB1:=L<AA1*0.9; CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;DD1:=L<MA(C,5)*0.921; EE1:=V<MA(V,5)*1.5; FF1:=BB1 AND CC1 AND DD1 AND EE1;DRAWTEXT(ff1,(LOW* 0.99),'老\n鼠\n仓'),Color4080FF;A51:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);黑马线:=EMA(A51,5);A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));DRAWTEXT(CROSS(趋势线,0)AND 黑马线<40,(HIGH* 0.97),'▲\n大\n黑\n马'),COLORYELLOW;LC:=REF(CLOSE,1);RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);FF:=EMA(CLOSE,3);MA15:=EMA(CLOSE,21);DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底\n背\n离'),ColorA6E500;DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶\n背\n离'),Color1880FF;VAR2:=LLV(LOW,27);VAR3:=HHV(HIGH,34);VAR4:=EMA((CLOSE-Var2)/(Var3-Var2)*4,4)*25;注意买:=IF((Var4<10),80,100);RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;K:=SMA(RSV,3,1);D:=SMA(K,3,1);J:=3*K-2*D;超跌:=IF(J<0,10,0);BDDD:=LLV(J,2)=LLV(J,8);买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,low,'短\n线'),Color8000FF;MTM:=C-REF(C,1);DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);DRAWTEXT(filter(买=1,5),LOW-0.03,'拉\n升'),ColorFFDE00;STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;var9Q:=c= hhv(c,4)and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);     stickline(var9Q,c,(o+c)/2,7,0),color000055;     stickline(var9Q,c,(o+c)/2,6,0),color000066;     stickline(var9Q,c,(o+c)/2,5,0),color000077;     stickline(var9Q,c,(o+c)/2,4,0),color000099;     stickline(var9Q,c,(o+c)/2,3,0),color0000bb;     stickline(var9Q,c,(o+c)/2,2,0),color0000dd;     stickline(var9Q,c,(o+c)/2,1,0),color0000ff;varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);     stickline(varaQ,c,(o+c)/2,7,0),colorff11ff;     stickline(varaQ,c,(o+c)/2,6,0),colorff33ff;     stickline(varaQ,c,(o+c)/2,5,0),colorff55ff;     stickline(varaQ,c,(o+c)/2,4,0),colorff77ff;     stickline(varaQ,c,(o+c)/2,3,0),colorff99ff;     stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;     stickline(varaQ,c,(o+c)/2,1,0),colorffddff;varbQ:=c=llv(c,4) and (ref(c,1)<REF(C,2) ref(c,1)< and ref(c,2)="llv(c,4)" or c<ref(c,2) ref(c,1)="llv(c,4)" ref(c,1)hhv(c,4) and c<REF(C,1) and or c<ref(c,2);<br c      stickline(varbQ,c,(o+c)/2,7,0),color333333;     stickline(varbQ,c,(o+c)/2,6,0),color555555;     stickline(varbQ,c,(o+c)/2,5,0),color777777;     stickline(varbQ,c,(o+c)/2,4,0),color999999;     stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;     stickline(varbQ,c,(o+c)/2,2,0),colordddddd;     stickline(varbQ,c,(o+c)/2,1,0),colorffffff;varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)=ref(c,1);     stickline(varcQ,o,(o+c)/2,7,0),color003300;     stickline(varcQ,o,(o+c)/2,6,0),color005500;     stickline(varcQ,o,(o+c)/2,5,0),color007700;     stickline(varcQ,o,(o+c)/2,4,0),color009900;     stickline(varcQ,o,(o+c)/2,3,0),color00bb00;     stickline(varcQ,o,(o+c)/2,2,0),color00dd00;     stickline(varcQ,o,(o+c)/2,1,0),color00ff00;vardQ:=ref(c,1)=hhv(c,4) and cref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<REF(C,1); stickline(vardQ,o,(o+c)/2,7,0),colorff1100;stickline(vardQ,o,(o+c)/2,6,0),colorff3300;stickline(vardQ,o,(o+c)/2,5,0),colorff5500;stickline(vardQ,o,(o+c)/2,4,0),colorff7700;stickline(vardQ,o,(o+c)/2,3,0),colorff9900;stickline(vardQ,o,(o+c)/2,2,0),colorffbb00;stickline(vardQ,o,(o+c)/2,1,0),colorffdd00;{input: n(5,0,999,1),n1(10,0,999,1),n2(20,0,999,1),n3(30,0,999,1);A74:=MA(CLOSE,20);A75:=(CLOSE > MA(CLOSE,5));A76:=(MA(CLOSE,5) > MA(CLOSE,10));A77:=(CLOSE > MA(CLOSE,10));A78:=(MA(CLOSE,5) > MA(CLOSE,20));A79:=(CLOSE > MA(CLOSE,20));A710:=REF(A74,1);A711:=(A74 > A710);AVX:=(((((IF(A75,10,(0 - 10)) + IF(A76,10,(0 - 10))) + IF(A77,10,(0 - 10))) + IF(A78,10,(0 - 10))) + IF(A79,10,(0 - 10))) + IF(A711,10,(0 - 10)));DSLX:=(CLOSE / INDEXC);DSLX1:=MA(DSLX,5);DSLX2:=MA(DSLX,10);V1:=MA(VOL,5);V2:=MA(VOL,10);T := (SYSPARAM(3)-SYSPARAM(2))+1,linethick0;HHg := HHV(H, T);ddg := LLV(L, T);{Hk := LL-HH; G12 := LL-HK*1.55; }DD:=FINANCE(35);SS:=FINANCE(37);GG:=FINANCE(3);TH:=DYNAINFO(39);DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(AVX,1) AND (V1 >= V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股的量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(AVX,1) AND (V1 < V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股虽然走势趋强，但量能还显不足，可以考虑短线进场，仓位在1/2左右。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(AVX,1) AND (V1 > V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股量价配合良好，但相对其它股票并没有明显走强，可以考虑短线进场，仓位1/2左右。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(AVX,1) AND (V1 <= V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股形态尚可，但量能不足，股票也未完全走强，可以短线参与，仓位1/3左右。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股形态变坏，但走势相对其它股票尚可，重仓者减持大半，清仓者可以观望。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股随大盘一起下跌，程明显缩量走势，考虑到大盘风险，减持或清仓。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(1,AVX) AND (V1 >= V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股放量下跌，走势明显偏弱，离场观望。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((CROSS(1,AVX) AND (V1 < V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股缩量下跌，走势偏弱，离场观望。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股形态良好，强势明显，量能充足，可以继续持有。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股上行趋势不变，强势依然，但量能开始转弱，注意风险。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股仍然具备上涨潜力，但股性偏弱，可考虑减仓。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股走势趋弱，量能不足，减持大部分筹码。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股形态不佳，注意成交量的变化，但目前不适合参与。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX >= DSLX1)),HHV(HIGH,0)*1.2,'该股趋势不明，股价偏弱，注意量能变化，目前不宜参与。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股有走强迹象，但量能不足，趋势不明，不适合操作。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c<200 and ((((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)) AND (DSLX < DSLX1)),HHV(HIGH,0)*1.2,'该股走势太弱，没有参与价值。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(AVX,1) AND (V1 >= V2)),HHV(HIGH,0)*1.2,'大盘量能理想，有明显走强迹象，可以考虑中线进场参与，仓位在2/3左右，   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(AVX,1) AND (V1 >= V2)),HHV(HIGH,0)*1.2,'如前期经过一轮下跌，此时为最佳买点，但如果前期有过一段涨幅则介入需谨慎。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(AVX,1) AND (V1 < V2)),HHV(HIGH,0)*1.2,'大盘虽然走势趋强，但量能还显不足，如果前期经过一轮下跌，   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(AVX,1) AND (V1 < V2)),HHV(HIGH,0)*1.2,'可以考虑短线进场，仓位在1/2左右，一旦量能放大可以加仓买入。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(1,AVX) AND (V1 >= V2)),HHV(HIGH,0)*1.2,'大盘形态走坏，重仓者可以减去大部分仓位。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (CROSS(1,AVX) AND (V1 < V2)),HHV(HIGH,0)*1.2,'大盘缩量调整，注意风险，短线清仓观望。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 >= V2)),HHV(HIGH,0)*1.2,'大盘走势良好，量能理想，可以继续持有强势股。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (((AVX >= 1) AND (REF(AVX,1) > 0)) AND (V1 < V2)),HHV(HIGH,0)*1.2,'大盘形态良好，但量能稍显不足，随时准备减仓。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 >= V2)),HHV(HIGH,0)*1.2,'大盘趋势不明，注意成交量变化，目前不适宜进场。   '),color0000FF,LINETHICK3,ALIGN4;DRAWTEXT(非分笔图 and (BARPOS = SYSPARAM(2)) and c>200 and (((AVX < 1) AND (REF(AVX,1) < 0)) AND (V1 < V2)),HHV(HIGH,0)*1.2,'大盘趋势向下，量能萎缩，不适合进场。   '),color0000FF,LINETHICK3,ALIGN4;} N=5  N1= 10  N2 = 20  N3=30

PARTLINE(EMA((2*C+H+L)/4,5)>REF(EMA((2*C+H+L)/4,5),1),EMA((2*C+H+L)/4,5)),colorred;
PARTLINE(EMA((2*C+H+L)/4,5)<REF(EMA((2*C+H+L)/4,5),1),EMA((2*C+H+L)/4,5)),colorblue;
PARTLINE(EMA((2*C+H+L)/4,13)>REF(EMA((2*C+H+L)/4,13),1),EMA((2*C+H+L)/4,13)),colorred;
PARTLINE(EMA((2*C+H+L)/4,13)<REF(EMA((2*C+H+L)/4,13),1),EMA((2*C+H+L)/4,13)),colorblue;
PARTLINE(EMA((L+C+O)/3,26)>REF(EMA((L+C+O)/3,26),1),REF(EMA((L+C+O)/3,26),1)),colorred,LINETHICK2;
PARTLINE(EMA((L+C+O)/3,26)<REF(EMA((L+C+O)/3,26),1),REF(EMA((L+C+O)/3,26),1)),colorblue,LINETHICK2;
PARTLINE((( EMA(L,250)+EMA((C+L)/2,250))/2)>REF((( EMA(L,250)+EMA((C+L)/2,250))/2),1),(( EMA(L,250)+EMA((C+L)/2,250))/2)),colorred,POINTDOT;
PARTLINE((( EMA(L,250)+EMA((C+L)/2,250))/2)<REF((( EMA(L,250)+EMA((C+L)/2,250))/2),1),(( EMA(L,250)+EMA((C+L)/2,250))/2)),colorblue,POINTDOT;

{自用主图}
系统成本:COST(50),LINETHICK0,colorcyan;
起步成本:COST(10),LINETHICK0,colorred;
当日换手:((VOL / CAPITAL) * 100),LINETHICK0;
十日换手:SUM(当日换手,10),LINETHICK0;
百日换手:SUM(当日换手,100),LINETHICK0;

LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
跑了不悔:if(CROSS(84,RSI),HIGH*1.02,high+1),pointdot,linethick7,COLORYELLOW;
high+1,pointdot,linethick7,COLOR000000;

EMA5:EMA(C,5);EMA34:EMA(C,34);
KS:=(1-C/SMA(C,13,1))*100;RKS:=REF(KS,1);
MLS:=RKS/KS>1.23 AND RKS>10 AND C/REF(C,1)>1.02;
超跌:STICKLINE(KS>=10,H,L,0,1),colorCYAN,linethick3;
反弹:STICKLINE(MLS=1,H,L,0,1),colormagenta,linethick2;
牛线:EMA(C,13),colorred,linethick2;
熊线:EMA(KS*C/100+牛线,3),colorblue,linethick2;

启动线:=(SUM(EMA((C+L)/2,2)/2.98,3));
强弱线:=EMA(启动线,21);
Var1:=2*MA(LLV((C+L)/2,8)*1.1,13)-EMA((C+L)/2,3)-((C+L)/2)*0.1;
Var2:=if((EMA((C+L)/2,3)-Var1)*5>0,POW((EMA((C+L)/2,3)-Var1)*5,2)/10,-1*POW((EMA((C+L)/2,3)-Var1)*5,2)/10);
Var3:=IF(Var2>0,Var2-0,0);
DRAWTEXT(CROSS(Var3,0) AND (C+L)/2>MA((C+L)/2,8),强弱线*1.01,'注控'),LINETHICK2,ALIGN1,COLORFFFFFF;

QH:=REF(H,2);
QL:=REF(L,2);
QO:=REF(O,2);
QC:=REF(C,2);
ZO:=REF(O,1);
ZC:=REF(C,1);
JYZHK:= ABS(QO-QC)/QO<0.02 AND ZO/ZC>1.02  AND ABS(O-C)/O<0.02 AND C>MA(C,30);
JYZHV:=V<REF(V,1) ;
JYZH:=JYZHK AND JYZHV;
DRAWTEXT(JYZH,L,'金印'),COLORcyan;




{DRAWGBK(C,COLORRGB(10,0,0),COLORRGB(10,0,0),1);}
{-----------------------☆功能开关------------------------}
{K线}
aa1:=wma(c,2);
bb1:=ema(aa1,2);
a0:=ma(bb1,3);
aa2:=wma((h+c+o)/3,18);
dd3:=a0>=aa2 and c>aa2;
dd4:=a0<aa2 ;
dd5:=a0>aa2 ;
cc1:=((c-ref(ma(c,6),1))/6+ma(c,6))*1.004;
cc2:=cross(c,cc1) and cc1>ref(cc1,1);
{逃顶-止损}
Zb1:=HHV(L,20);
xx1 := MAX(MAX((H-L),ABS(REF(C,1)-H)),ABS(REF(C,1)-L));
xx2 :=ma(Xx1,13);
xx3 :=ref(C,1)-ref(Xx2,1);
xx4 :=hhv(Xx3,20);
{成本}
强弱分界:ema(cost(85),10),LINEthick2,COLORyellow;
CB1:=EMA(COST(5),5);
CB2:=EMA(COST(13),5);
CB3:=EMA(COST(34),5);
CB4:=llv(CB1,34);
CB5:=llv(CB2,34);
CB6:=llv(CB3,34);
CB7:=EMA(C,5);
CB8:=llv(CB7,34);

{K线}
STICKLINE((dd4 or dd5) and o<=c ,h,l,0.5,0),Color00cc99;
STICKLINE((dd4 or dd5) and o<=c ,c,o,7,0),Color00cc99;
STICKLINE((dd4 or dd5) and o>=c ,h,l,0.5,0),Color3F8C3A;
STICKLINE((dd4 or dd5) and o>=c ,c,o,7,0),Color3F8C3A;
STICKLINE((dd3 or c>aa2) and o<=c,c,o,7,0),Colorred;
STICKLINE((dd3 or c>aa2) and o<=c,h,l,0.5,0),Colorred;
STICKLINE((dd3 or c>aa2) and o>=c,c,o,7,0),Colorff33ff;
STICKLINE((dd3 or c>aa2) and o>=c,h,l,0.5,0),Colorff33ff;
STICKLINE(cc2,h,l,0.5,0),colorwhite;
STICKLINE(cc2,o,c,7,0),colorwhite;
STICKLINE(MA(C,13)>O and C>MA(C,13) and O<c,O,C,8,0),coloryellow;
STICKLINE(MA(C,13)>O and C>MA(C,13),H,L,0.5,0),coloryellow;

{逃顶-止损
partline(zb1,Zb1=ref(Zb1,1),rgb(255,0,0)),DOTLINE;
PARTLINE(XX4,xx4=ref(xx4,1),RGB(0,255,0)),DOTLINE;}

{成本}
一关:IF(CB1>CB4,CB1,CB4),linethick0,COLORBLUE;
二关:IF(CB2>CB5,CB2,CB5),linethick0,COLORGREEN;
三关:IF(CB3>CB6,CB3,CB6),linethick0,COLORMAGENTA;
冲关:IF(CB7>CB8,CB7,CB8),COLORWHITE;

W00:=COST(1);W10:=COST(10);W20:=COST(20);
W30:=COST(30);W40:=COST(40);W50:=COST(50);
W60:=COST(60);W70:=COST(70);W80:=COST(80);
W90:=COST(90);W100:=COST(99);
W5:=COST(5);W15:=COST(15);W25:=COST(25);
W35:=COST(35);W45:=COST(45);W55:=COST(55);
W65:=COST(65);W75:=COST(75);W85:=COST(85);W95:=COST(95);
C5:=W5-W00; C10:=W10-W5;C15:=W15-W10;C20:=W20-W15;C25:=W25-W20;
C30:=W30-W25;C35:=W35-W30;C40:=W40-W35;C45:=W45-W40;C50:=W50-W45;
C55:=W55-W50;C60:=W60-W55;C65:=W65-W60;C70:=W70-W65;C75:=W75-W70;
C80:=W80-W75;C85:=W85-W80;C90:=W90-W85;C95:=W95-W90;C100:=W100-W95;
ZX:=MIN(C5,MIN(C10,MIN(C15,MIN(C20,MIN(C25,MIN(C30,MIN(C35,MIN(C40,MIN(C45,MIN(C50,MIN(C55,MIN(C60,MIN(C65,MIN(C70,MIN(C75,MIN(C80,MIN(C85,MIN(C90,MIN(C95,C100))))))))))))))))))) LINETHICK0;
FILLRGN(ZX=C5,W00,W5) COLORGRAY;
FILLRGN(ZX=C10,W10,W5) COLORGRAY;FILLRGN(ZX=C15,W15,W10) COLORGRAY;FILLRGN(ZX=C20,W20,W15) COLORGRAY;
FILLRGN(ZX=C25,W25,W20) COLORGRAY;FILLRGN(ZX=C30,W30,W25) COLORGRAY;FILLRGN(ZX=C35,W35,W30) COLORGRAY;FILLRGN(ZX=C40,W40,W35) COLORGRAY;
FILLRGN(ZX=C45,W45,W40) COLORGRAY;FILLRGN(ZX=C50,W50,W45) COLORGRAY;FILLRGN(ZX=C55,W55,W50) COLORGRAY;FILLRGN(ZX=C60,W60,W55) COLORGRAY;
FILLRGN(ZX=C65,W65,W60) COLORGRAY;FILLRGN(ZX=C70,W70,W65) COLORGRAY;FILLRGN(ZX=C75,W75,W70) COLORGRAY;FILLRGN(ZX=C80,W80,W75) COLORGRAY;
FILLRGN(ZX=C85,W85,W70) COLORGRAY;FILLRGN(ZX=C90,W90,W85) COLORGRAY;FILLRGN(ZX=C95,W95,W90) COLORGRAY;FILLRGN(ZX=C100,W100,W95) COLORGRAY;
STICKLINE(C>=O,H,L,0.7,0) COLORRED;
STICKLINE(C<O,H,L,0.7,0) COLORDDDD00;
STICKLINE(C>=O,C,O,7,1) COLORRED;
STICKLINE(C<O,C,O,7,0) COLORDDDD00;
M10:MA(C,10) COLORRED;
M60:MA(C,60) COLORYELLOW;
PARTLINE(M10<REF(M10,1),M10) COLORGREEN;

mid:=(o+c)/2;
hsl:=if(capital=0,v/sum(v,100),v/capital);
ljhs:=hsl;
cyc1:=mid;
ljhs2:=hsl;
cyc2:=mid;
ljhs3:=hsl;
cyc3:=mid;
ljhsm:=hsl;
cycm:=mid;

<%
vmid = ffl.vardata("mid")
vhsl = ffl.vardata("hsl")
vljhs = ffl.vardata("ljhs")
vljhs2 = ffl.vardata("ljhs2")
vljhs3 = ffl.vardata("ljhs3")
vljhsm = ffl.vardata("ljhsm")
vcyc1 = ffl.vardata("cyc1")
vcyc2 = ffl.vardata("cyc2")
vcyc3 = ffl.vardata("cyc3")
vcycm = ffl.vardata("cycm")

last=ubound(vmid)
for i=1 to last
   vljhs(i) = vljhs(i -1) * (1 - vhsl(i)) * 4 / 5 + vhsl(i)
        vcyc1(i) = (vmid(i) * vhsl(i) + vcyc1(i-1) * vljhs(i -1) * (1 - vhsl(i)) * 4 / 5) / vljhs(i)
   vljhs2(i) = vljhs2(i -1) * (1 - vhsl(i)) * 12 / 13 + vhsl(i)
        vcyc2(i) = (vmid(i) * vhsl(i) + vcyc2(i-1) * vljhs2(i -1) * (1 - vhsl(i)) * 12 / 13) / vljhs2(i)
   vljhs3(i) = vljhs3(i -1) * (1 - vhsl(i)) * 33 / 34 + vhsl(i)
        vcyc3(i) = (vmid(i) * vhsl(i) + vcyc3(i-1) * vljhs3(i -1) * (1 - vhsl(i)) * 33 / 34) / vljhs3(i)
   vljhsm(i) = vljhsm(i -1) * (1 - vhsl(i)) + vhsl(i)
        vcycm(i) = (vmid(i) * vhsl(i) + vcycm(i-1) * vljhsm(i -1) * (1 - vhsl(i))) / vljhsm(i)
next
ffl.vardata("ljhs") = vljhs
ffl.vardata("ljhs2") = vljhs2
ffl.vardata("ljhs3") = vljhs3
ffl.vardata("ljhsm") = vljhsm
ffl.vardata("cyc1") = vcyc1
ffl.vardata("cyc2") = vcyc2
ffl.vardata("cyc3") = vcyc3
ffl.vardata("cycm") = vcycm

%>
cyc5:cyc1,coloryellow;
cyc13:cyc2,COLORMAGENTA;
cyc34:cyc3,colorgreen;
cyc∞:cycm,COLORCYAN;

a0:=BARSCOUNT(c);a3:=SYSPARAM(3);a2:=SYSPARAM(2);
a4:=SYSPARAM(4);a5:=SYSPARAM(5);
nn0:=a3-a2;nn:=a0-a2;hh1:=(a4-a5)/8;
hh2:=hh1/4;
ll1:=llv(l,nn0);ll2:=ll1[a3];
y0:=a0>=a2;vv0:=if(y0=1 and SYSPARAM(1)>=a0,v,0);
c1:=if(BETWEEN(c,a4-0*hh1,a4-1*hh1),vv0,0);
c2:=if(BETWEEN(c,a4-1*hh1,a4-2*hh1),vv0,0);
c3:=if(BETWEEN(c,a4-2*hh1,a4-3*hh1),vv0,0);
c4:=if(BETWEEN(c,a4-3*hh1,a4-4*hh1),vv0,0);
c5:=if(BETWEEN(c,a4-4*hh1,a4-5*hh1),vv0,0);
c6:=if(BETWEEN(c,a4-5*hh1,a4-6*hh1),vv0,0);
c7:=if(BETWEEN(c,a4-6*hh1,a4-7*hh1),vv0,0);
c8:=if(BETWEEN(c,a4-7*hh1,a4-8*hh1),vv0,0);
c9:=if(BETWEEN(c,a4-8*hh1,a4-9*hh1),vv0,0);
c10:=if(BETWEEN(c,a4-9*hh1,a4-10*hh1),vv0,0);
v1:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c1,nn0),0),2)),LINETHICK;
v2:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c2,nn0),0),2));
v3:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c3,nn0),0),2));
v4:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c4,nn0),0),2));
v5:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c5,nn0),0),2));
v6:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c6,nn0),0),2));
v7:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c7,nn0),0),2));
v8:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c8,nn0),0),2));
v9:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c9,nn0),0),2));
v10:=STRTONUM(NUMTOSTR(if(ISLASTBAR,sum(c10,nn0),0),2));
av0:=max(v1,max(v2,max(v3,max(v4,max(v5,max(v6,max(v7,max(v8,max(v9,v10)))))))));
x1:=v1/av0>=nn/nn0 and nn>=0;
x3:=v3/av0>=nn/nn0 and nn>=0;
x5:=v5/av0>=nn/nn0 and nn>=0;
x7:=v7/av0>=nn/nn0 and nn>=0;
FILLRGN(v1/av0>=nn/nn0 and nn>=0,a4-0*hh1,a4-1*hh1+hh1*0.5),color666666;
FILLRGN(v2/av0>=nn/nn0 and nn>=0,a4-1*hh1,a4-2*hh1+hh1*0.5),color666666;
FILLRGN(v3/av0>=nn/nn0 and nn>=0,a4-2*hh1,a4-3*hh1+hh1*0.5),color666666;
FILLRGN(v4/av0>=nn/nn0 and nn>=0,a4-3*hh1,a4-4*hh1+hh1*0.5),color666666;
FILLRGN(v5/av0>=nn/nn0 and nn>=0,a4-4*hh1,a4-5*hh1+hh1*0.5),color666666;
FILLRGN(v6/av0>=nn/nn0 and nn>=0,a4-5*hh1,a4-6*hh1+hh1*0.5),color666666;
FILLRGN(v7/av0>=nn/nn0 and nn>=0,a4-6*hh1,a4-7*hh1+hh1*0.5),color666666;
FILLRGN(v8/av0>=nn/nn0 and nn>=0,a4-7*hh1,a4-8*hh1+hh1*0.5),color666666;
{阴柱}
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,0,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,8,0 ),COLOR008800;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLOR009900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLOR00AA00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLOR00BB00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLOR00CC00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLOR00DD00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLOR00EE00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLOR00FF00;
{红柱}
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,0,0) ,COLORFFBBFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,8,0) ,COLORFF00FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLORFF22FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLORFF44FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLORFF66FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLORFF88FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLORFF99FF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLORFFAAFF;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLORFFBBFF;
SSL:CLOSE,LINETHICK;
上限:a4,LINETHICK;
间距:HH1,LINETHICK;
DRAWNUMBER(FILTER(refx(x1<ref(x1,1),6) and v1>0,10),a4,a4-0*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x3<ref(x3,1),6) and v3>0,10),(a4-2.7*3*hh2),a4-2*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x5<ref(x5,1),6) and v5>0,10),(a4-3.2*5*hh2),a4-4*hh1,2),COLORCYAN;
DRAWNUMBER(FILTER(refx(x7<ref(x7,1) and v7>0,5),10),ll2+1.1*7*hh2,a4-6*hh1,2),COLORCYAN;
ema17:ema(c,17);
ema50:ema(c,50);
ema144:ema(c,144);

MB1:EMA(CLOSE,5),COLORred;
MB2:EMA(MB1,3),COLORBLUE;
MB3:EMA(MB2,3),COLORBLUE;
MB4:EMA(MB3,3),COLORBLUE;
MB5:EMA(MB4,3),COLORBLUE;
MB21:EMA(CLOSE,21),COLORyellow;
MB22:EMA(MB21,3),COLORwhite;
MB23:EMA(MB22,3),COLORwhite;
MB24:EMA(MB23,3),COLORwhite;
MB25:EMA(MB24,3),COLORwhite;

{趋势分析(主图)}
{SAT:=IF((AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100>100,100,(AMOUNT/C)/(HHV(AMOUNT,20)/HHV(C,20))*100);
DRAWTEXTREL(12,5,'量能饱和度：'+NUMTOSTRN(SAT,0)),LINETHICK3,Color8000FF;}
AA10:MA(CLOSE,8),color0000FF;
AA12:MA(CLOSE,12),color0000FF;
BB10:=((ATAN((AA10 - REF(AA10,1))) * 3.1416) * 10);
BB12:=((ATAN((AA12 - REF(AA12,1))) * 3.1416) * 10);
MA13:=MA(CLOSE,13);
{FILLRGN(AA10,AA12,(((AA12 <= AA10) AND (BB12 >= 1)) AND (BB10 >= 1))),Color0098FF;
FILLRGN(AA10,AA12,(((AA12 >= AA10) AND (BB10 <= 1)) AND (BB10 <= 1))),color00FF00;}

x1:=(C+L+H)/3;
bb13:=atan(ema(x1,13)-ref(ema(x1,13),1))*3.1416*10;
ema8:=ema(c,8);
DRAWTEXT(filter(bb13>1 and ema(x1,13)>ref(ema(x1,8),1),10),ema8,'∠45'),colorwhite;

压力:MA(REF(HHV(C,30),1),2),Color9DFFFF;
支撑:MA(REF(LLV(C,30),1),2),ColorABFF46;
AA1:=AMOUNT/V;
BB1:=L<AA1*0.9;
CC1:=(C-REF(C,1))/REF(C,1)*100>1.2;
DD1:=L<MA(C,5)*0.921;
EE1:=V<MA(V,5)*1.5;
FF1:=BB1 AND CC1 AND DD1 AND EE1;
DRAWTEXT(ff1,(LOW* 0.99),'鼠仓'),Color4080FF;

k:=SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
d:=SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1);
A51:=3*k-2*d;
hmx:=EMA(A51,5);
A54:=((C-LLV(L,21))/(HHV(H,21)-LLV(L,21)))*100;
趋势线:=(MA(3*SMA(A54,6,1)-2*SMA(SMA(A54,5,1),5,1),2));
DRAWTEXT(CROSS(趋势线,0) AND hmx<40,(HIGH* 0.97),'DHM'),COLORYELLOW;

{LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),ColorA6E500;
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.02),'顶背离'),Color1880FF;}

VAR2:=LLV(LOW,27);
VAR3:=HHV(HIGH,34);
VAR4:=EMA((CLOSE-Var2)/(Var3-Var2)*4,4)*25;
注意买:=IF((Var4<10),80,100);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
超跌:=IF(J<0,10,0);
BDDD:=LLV(J,2)=LLV(J,8);
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,low,'短线'),Color8000FF;

MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(filter(买=1,5),LOW-0.03,'拉升'),ColorFFDE00;
STICKLINE(CLOSE>OPEN,OPEN,LOW,0.5,0 ),COLOR0000FF;
STICKLINE(CLOSE>OPEN,CLOSE,HIGH,0.5 ,0 ),COLOR0000FF;
STICKLINE(OPEN>=CLOSE,CLOSE,LOW,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE,OPEN,HIGH,0.5 ,0 ),COLOR00FF00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,7,0 ),COLORff7700;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,6,0 ),COLORff9900;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,5,0 ),COLORffbb00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,4,0 ),COLORffcc00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,3,0 ),COLORffdd00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,2,0 ),COLORffee00;
STICKLINE(OPEN>=CLOSE ,CLOSE ,OPEN,1,0 ),COLORffFF00;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,7,0) ,COLOR000055;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,6,0) ,COLOR000066;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,5,0) ,COLOR000077;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,4,0) ,COLOR000099;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,3,0) ,COLOR0000bb;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,2,0) ,COLOR0000dd;
STICKLINE(CLOSE>OPEN,CLOSE,OPEN,1,0) ,COLOR0000ff;

var9Q:=c= hhv(c,4) and (ref(c,1)>=ref(c,2) or ref(c,1)>=ref(c,3)) or ref(c,1)=hhv(c,4) and close>=ref(c,2) or ref(c,2)=hhv(c,4) and ref(c,3)=llv(c,4) and c>=ref(c,1) or ref(c,3)=hhv(c,4) and c>=ref(c,1) and c>=ref(c,2);
     stickline(var9Q,c,(o+c)/2,7,0),color000055;
     stickline(var9Q,c,(o+c)/2,6,0),color000066;
     stickline(var9Q,c,(o+c)/2,5,0),color000077;
     stickline(var9Q,c,(o+c)/2,4,0),color000099;
     stickline(var9Q,c,(o+c)/2,3,0),color0000bb;
     stickline(var9Q,c,(o+c)/2,2,0),color0000dd;
     stickline(var9Q,c,(o+c)/2,1,0),color0000ff;
varaQ:=c=hhv(c,4) and ref(c,1)=llv(c,4);
     stickline(varaQ,c,(o+c)/2,7,0),colorff11ff;
     stickline(varaQ,c,(o+c)/2,6,0),colorff33ff;
     stickline(varaQ,c,(o+c)/2,5,0),colorff55ff;
     stickline(varaQ,c,(o+c)/2,4,0),colorff77ff;
     stickline(varaQ,c,(o+c)/2,3,0),colorff99ff;
     stickline(varaQ,c,(o+c)/2,2,0),colorffbbff;
     stickline(varaQ,c,(o+c)/2,1,0),colorffddff;
varbQ:=c=llv(c,4) and (ref(c,1)<ref(c,2) or ref(c,1)<ref(c,3)) or ref(c,1)=llv(c,4) and c<ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<>hhv(c,4) and c<ref(c,1) or ref(c,3)=llv(c,4) and c<ref(c,1) and c<ref(c,2);
     stickline(varbQ,c,(o+c)/2,7,0),color333333;
     stickline(varbQ,c,(o+c)/2,6,0),color555555;
     stickline(varbQ,c,(o+c)/2,5,0),color777777;
     stickline(varbQ,c,(o+c)/2,4,0),color999999;
     stickline(varbQ,c,(o+c)/2,3,0),colorbbbbbb;
     stickline(varbQ,c,(o+c)/2,2,0),colordddddd;
     stickline(varbQ,c,(o+c)/2,1,0),colorffffff;
varcQ:=ref(c,1)=llv(c,4) and c>=ref(c,2) or ref(c,2)=llv(c,4) and ref(c,1)<=ref(c,3) and ref(c,2)<ref(c,4) and c>=ref(c,1);
     stickline(varcQ,o,(o+c)/2,7,0),color003300;
     stickline(varcQ,o,(o+c)/2,6,0),color005500;
     stickline(varcQ,o,(o+c)/2,5,0),color007700;
     stickline(varcQ,o,(o+c)/2,4,0),color009900;
     stickline(varcQ,o,(o+c)/2,3,0),color00bb00;
     stickline(varcQ,o,(o+c)/2,2,0),color00dd00;
     stickline(varcQ,o,(o+c)/2,1,0),color00ff00;
{vardQ:=ref(c,1)=hhv(c,4) and c<ref(c,2) or (ref(c,2)=hhv(c,4) and ref(c,1)>ref(c,3) or ref(c,3)=hhv(c,4) and ref(c,1)>ref(c,2)) and ref(c,2)>=ref(c,4) and c<ref(c,1);
stickline(vardQ,o,(o+c)/2,7,0),colorff1100;
stickline(vardQ,o,(o+c)/2,6,0),colorff3300;
stickline(vardQ,o,(o+c)/2,5,0),colorff5500;
stickline(vardQ,o,(o+c)/2,4,0),colorff7700;
stickline(vardQ,o,(o+c)/2,3,0),colorff9900;
stickline(vardQ,o,(o+c)/2,2,0),colorffbb00;
stickline(vardQ,o,(o+c)/2,1,0),colorffdd00;};

DRAWGBK((CLOSE>0),COLORRGB(180,180,180),COLORRGB(1,1,1),1);
上市日期年:REF(YEAR,(BARSCOUNT(CLOSE)-1)),LINETHICK0,colorFF;
月:REF(MONTH,(BARSCOUNT(CLOSE)-1)),LINETHICK0,colorFF00FF;
日:REF(DAY,(BARSCOUNT(CLOSE)-1)),LINETHICK0,colorFFFF;
DRAWTEXT((SYSPARAM(2)=BARPOS),CLOSE,('证券代码:'+STKLABEL)),ALIGN4,colorFF;
DRAWTEXT((BARPOS=SYSPARAM(2)),HIGH,(((((((((((((((((((((((((((((((('                 所属板块:'+BLKNAME)+'  发行价')+NUMTOSTR(FINANCE(51),2))+'元')+'  发行量')+NUMTOSTR(FINANCE(52),2))+'万股')+'\n')+'总股本')+NUMTOSTR(FINANCE(1),0))+'万股')+'  流通A股')+NUMTOSTR(FINANCE(7),0))+'万股')+'  净资产')+NUMTOSTR(FINANCE(35),2))+'亿元')+'  每股收益')+NUMTOSTR(FINANCE(33),2))+'元')+'  每股未分配')+NUMTOSTR(FINANCE(32),2))+'元')+'  市盈率')+NUMTOSTR(DYNAINFO(39),2))+'%')+'  投资收益')+NUMTOSTR(FINANCE(24),2))+'元')+'  股东总数')+NUMTOSTR(FINANCE(50),0))+'户')),ALIGN4,color222222;
VAR1:=((((((2*CLOSE)+HIGH)+LOW)+OPEN)/5));
A1:(((((EMA(VAR1,3)+EMA(VAR1,6))+EMA(VAR1,12))+EMA(VAR1,24))/4));
A2:(EMA(A1,2));
A3:(EMA(A2,2));
A4:(EMA(A3,2));
A5:(EMA(A4,2));
A6:(EMA(A5,2));
A7:(EMA(A6,2));
A8:((EMA(VAR1,2.78)*1.028));
A9:((MA(OPEN,3.2)*1.028));
AA:=((CLOSE/REF(CLOSE,1))>=1.099);
AB:=(VOL/REF(VOL,1));
关注:IF((((CLOSE/REF(CLOSE,1))>=1.07) AND (AB<1)),1,0),LINETHICK0;
龙头战法第一买点:=IF((AA AND (AB<1)),1,0);
龙头战法第二买点:=IF((((CLOSE/REF(CLOSE,1))>=1.07) AND (AB<1)),1,0);
DRAWTEXT((龙头战法第二买点=1),(REF(LOW,1)*1.1),'  龙头战法D2买点'),colorFFFF;
买线:=(EMA(CLOSE,2));
卖线:=(EMA(((SLOPE(CLOSE,21)*20)+CLOSE),42));
STICKLINE((买线>=卖线),CLOSE,OPEN,8,0),colorAA;
STICKLINE((买线>=卖线),CLOSE,OPEN,7,0),colorBB;
STICKLINE((买线>=卖线),CLOSE,OPEN,6,0),colorCC;
STICKLINE((买线>=卖线),CLOSE,OPEN,4,0),colorDD;
STICKLINE((买线>=卖线),CLOSE,OPEN,2,0),colorEE;
STICKLINE((买线>=卖线),LOW,HIGH,0.1,0),colorFF;
STICKLINE((买线<卖线),CLOSE,OPEN,8,0),colorAAAA00;
STICKLINE((买线<卖线),CLOSE,OPEN,7,0),colorBBBB00;
STICKLINE((买线<卖线),CLOSE,OPEN,6,0),colorCCCC00;
STICKLINE((买线<卖线),CLOSE,OPEN,4,0),colorDDDD00;
STICKLINE((买线<卖线),CLOSE,OPEN,2,0),colorEEEE00;
STICKLINE((买线<卖线),LOW,HIGH,0.1,0),colorFFFF00;

VAR1:=((收盘价 > 向前引用(收盘价,1)) AND (收盘价 > 向前引用(收盘价,2)));
VAR2:=((向前引用(VAR1,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR3:=((向前引用(VAR2,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR4:=((向前引用(VAR3,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR5:=((向前引用(VAR4,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR6:=((向前引用(VAR5,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR7:=((向前引用(VAR6,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR8:=((向前引用(VAR7,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR9:=((向前引用(VAR8,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VARA:=((向前引用(VAR9,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VARB:=((向前引用(VARA,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VARC:=((向前引用(VARB,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
画柱线((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),收盘价,向前引用(收盘价,1),8,0),,colorred;
VARD:=((收盘价 < 向前引用(收盘价,1)) AND (收盘价 < 向前引用(收盘价,2)));
VARE:=((向前引用(VARD,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VARF:=((向前引用(VARE,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR10:=((向前引用(VARF,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR11:=((向前引用(VAR10,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR12:=((向前引用(VAR11,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR13:=((向前引用(VAR12,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR14:=((向前引用(VAR13,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR15:=((向前引用(VAR14,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR16:=((向前引用(VAR15,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
VAR17:=((向前引用(VAR16,1) AND (收盘价 <= 向前引用(收盘价,1))) AND (收盘价 >= 向前引用(收盘价,2)));
VAR18:=((向前引用(VAR17,1) AND (收盘价 >= 向前引用(收盘价,1))) AND (收盘价 <= 向前引用(收盘价,2)));
画柱线((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),收盘价,向前引用(收盘价,1),8,0),colorblue;
VAR19:=(向前引用((((((((((((VARD OR VARE) OR VARF) OR VAR10) OR VAR11) OR VAR12) OR VAR13) OR VAR14) OR VAR15) OR VAR16) OR VAR17) OR VAR18),1) AND VAR1);
画柱线(VAR19,向前引用(收盘价,1),向前引用(收盘价,2),8,0),colorwhite;
VAR1A:=(向前引用((((((((((((VAR1 OR VAR2) OR VAR3) OR VAR4) OR VAR5) OR VAR6) OR VAR7) OR VAR8) OR VAR9) OR VARA) OR VARB) OR VARC),1) AND VARD);
画柱线(VAR1A,向前引用(收盘价,1),向前引用(收盘价,2),8,1),colormagenta;

ok:=指数平滑移动平均(开盘价,60);
cg:=指数平滑移动平均(收盘价,60);
pdu:=条件函数(ok>向前引用(ok,1) and cg>向前引用(cg,1),1,0);
pdd:=条件函数(ok<向前引用(ok,1) and cg<向前引用(cg,1),1,0);
pdm:=条件函数(pdu=0 and pdu=0,1,0);
z1:=简单移动平均(收盘价,13);
zx:=向前引用(z1,13/2+1);
life:=(指数平滑移动平均(收盘价,60)+指数平滑移动平均(收盘价,90))/2;
var1:=(2*收盘价+最高价+最低价)/4;
snook:=指数平滑移动平均(var1,99)*0.91;
a1:=(收盘价-向前引用(收盘价,1))/向前引用(收盘价,1)*100;
ma5:=上一次条件成立位置(a1>3);
ma20:=条件函数(ma5>0,1,0);
画柱线(收盘价>zx,最高价,最低价,1,0),colorcyan;
画柱线(收盘价>zx and 收盘价>=life,开盘价,收盘价,8,0),colorblue;
画柱线(收盘价>zx and 收盘价<=snook,开盘价,收盘价,8,1),colorgreen;
画柱线(收盘价>zx and 收盘价>snook and 收盘价<life,开盘价,收盘价,8,0),colorff00ff;
画柱线(收盘价>zx and ma20=0,开盘价,收盘价,8,0),colorred;
画柱线(收盘价>zx,开盘价,收盘价,3,0),coloryellow;
画图标(交叉函数(收盘价,zx),最低价*0.99,4);
画图标(交叉函数(zx,收盘价),最高价*1.01,5);
by20:=简单移动平均(收盘价,5);
by21:=简单移动平均(收盘价,20);
by22:=条件函数(by20>by21,by21,by20);
招财猫:by21,colorgreen,Linethick1;
鼠变异:by22,colorblue,Linethick2;
画分段线(鼠变异>向前引用(鼠变异,1) and 鼠变异=by21,鼠变异),Linethick1,colorgreen;
画分段线(鼠变异>向前引用(鼠变异,1) and 鼠变异=by21 and pdu=1,鼠变异),Linethick2,colorred;
画分段线(鼠变异>向前引用(鼠变异,1) and 鼠变异<>by21,鼠变异),coloryellow,Linethick2;
显示解盘文字(收盘价>zx and 收盘价>=life,'老鼠出洞了，逮住它！'),colorff;
显示解盘文字(收盘价>zx and 收盘价>snook and 收盘价<life,'老鼠玩猫猫，守着它！'),colorff0000;
显示解盘文字(收盘价>zx and 收盘价<=snook,'老鼠露尾巴，动作快！'),colorff00;
显示解盘文字(收盘价<=zx,'老鼠没有了，打个盹！'),color808080;
显示解盘文字(鼠变异>向前引用(鼠变异,1) and 鼠变异<>by21,'发现鼠迹！'),colorff00;
显示解盘文字(鼠变异>向前引用(鼠变异,1) and 鼠变异=by21 and pdu<>1,'瞬间鼠影！'),colorff66ff;
显示解盘文字(鼠变异>向前引用(鼠变异,1) and 鼠变异=by21 and pdu=1,'恶鼠难遁！'),colorff;
显示解盘文字(收盘价>zx and ma20=0,'老鼠去哪里，思考哦！'),colorffff;

input:P(13,1,20);
多:=EMA(C,3),COLORYELLOW;
空:=EMA(C,5),COLOR00FF00;
均衡:=EMA(空,5),COLORWHITE,;
中:=HHV(MA(H,13),13),colorFF9966,Colorgreen,LINETHICK1;
Var4:=(LOW+HIGH+CLOSE)/3;
操作:MA(Var4,1),colorgreen,linethick2;
拉升:=HHV(操作,13),colorgreen,linethick0;
拉升买:=HHV(操作,13)coloryellow,linethick0;
Var1:=((HIGH+LOW+CLOSE)/3-MA((HIGH+LOW+CLOSE)/3,89))/(0.015*AVEDEV((HIGH+LOW+CLOSE)/3,89));
Var2:=MA(Var1,13);
STICKLINE(操作<拉升买,中,拉升买,1,0),COLOR9FBC7D;
强弱分界:=eMA(CLOSE,60), Color438200,LINETHICK3;
f0:=ema(c,5),linethick0;
f1:=sma(f0,3,1);
f2:=sma(f0,5,1);
drawicon(f0>f2,f2,10);
PARTLINE(拉升买,拉升买+0.01),colorgreen,,linethick2;
PARTLINE(操作=拉升买,操作),colorred,linethick3;
STICKLINE(操作>ref(操作,1),操作,操作+0.02,3,0),coloryellow,linethick2;
STICKLINE(拉升>ref(拉升,1),拉升,拉升+0.02,3,0),coloryellow,linethick2;
STICKLINE(操作<拉升买,操作,拉升买,1,0),COLOR9FBC7D;
PARTLINE(中>拉升买,中),colorgreen;
f0:=ema(c,5);
f1:=sma(f0,3,1);
f2:=sma(f0,5,1);
f0:=ema(c,5);
f1:=sma(f0,3,1);
f2:=sma(f0,5,1);
STICKLINE(F0<F2,H,L,1,1),Colorgreen;
STICKLINE(F0<F2,O,C,6,1),Colorgreen;
大趋势:EMA(CLOSE,245),linethick1,COLORred;
Var1:=REF(CLOSE,2);
A2:= SMA(MAX(CLOSE-Var1,0),7,1)/SMA(ABS(CLOSE-Var1),7,1)*100,COLORGREEN,linethick0;
Var2:=REF(CLOSE,1);
Var3:=SMA(MAX(CLOSE-Var2,0),7,1)/SMA(ABS(CLOSE-Var2),7,1)*100;
DRAWICON(A2< REF(A2,1) AND A2>79,操作*1.05,5);
Var1:=1;
Var2:=(CLOSE-MA(CLOSE,P))/MA(CLOSE,P)*100;
Var3:=CLOSE>OPEN AND OPEN-LOW>HIGH-CLOSE;
Var4:=REF(Var2,1)<-20 AND Var3;
Var5:=REF(Var2,1)<-20 AND CLOSE>OPEN AND(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20;
Var6:=FILTER(Var4 OR Var5,3);
Var7:=OPEN>CLOSE AND HIGH-IF(CLOSE>OPEN,CLOSE,OPEN)>IF(OPEN<CLOSE,OPEN,CLOSE)-LOW;
Var8:=REF(Var2,1)>ABS(-20)AND Var7;
Var9:=REF(Var2,1)>ABS(-20)AND CLOSE<OPEN AND(REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*1000>20;
VarA:=FILTER(Var8 OR Var9,3);
VarB:=CLOSE>OPEN AND OPEN-LOW>HIGH-CLOSE;
VarC:=REF(Var2,1)<-13 AND Var3;
VarD:=REF(Var2,1)<-13AND CLOSE>OPEN AND(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*1000>20;
VarE:=FILTER(VarC OR VarD,3);
VarF:=OPEN>CLOSE AND HIGH-IF(CLOSE>OPEN,CLOSE,OPEN)>IF(OPEN<CLOSE,OPEN,CLOSE)-LOW;
Var10:=REF(Var2,1)>ABS(-13) AND Var7;
Var11:=REF(Var2,1)>ABS(-13)AND CLOSE<OPEN AND(REF(CLOSE,1)-CLOSE)/REF(CLOSE,1)*1000>20;
Var12:=FILTER(Var10 OR Var11,3);
DRAWICON(VarA*Var1>0,HIGH,2);

ap:=FILTER(BACKSET(dynainfo(7)=c and dynainfo(10)=amount,31),31);
ma5:ma(c,5),ColorFFFFFA;
ma10:ma(c,10),Color00FFFC;
ma30:ma(c,30),ColorFF00FD;
ma60:ma(c,60),Color00FF05;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.764)*0.764 ,l),POINTDOT,linethick2,coloryellow;
if(BARSLAST( ap)>0,INTPART(CLOSE/0.809)*0.809+0.809 ,l),POINTDOT,linethick2,colormagenta;
DRAWLINE(ap,L,c>0,c+c*-26/10000,1),colorwhite;
DRAWLINE(ap,L,c>0,c+c*-120/10000,1),coloryellow;
DRAWLINE(ap,L,c>0,c+c*-180/10000,1),colormagenta;
DRAWLINE(ap,l,c>0,ref(l,1),1),colorgreen;
STICKLINE(ap,c*1.10,c*0.90,0,1),colorgreen;
DRAWTEXT(ap ,l*0.98,' 起涨点坐标↑' ),linethick2,colorred;
{关键上涨支撑价位}
DPZX:=EMA(C,1);
GGZX:=AMOUNT/V/100;
重心:=IF(CAPITAL>0,GGZX,DPZX);
zc1:=LLV(重心,2);
zc2:=LLV(重心,4);
STICKLINE(BARPOS and BARSTATUS=2,zc1,zc1,120,0),LINETHICK1,COLORGREEN;
{DRAWTEXT(BARPOS and BARSTATUS=2,zc1*1.06,'上涨关键价位'+NUMTOSTR(zc1)),ALIGN2,LINETHICK1,COLORGREEN;
STICKLINE(BARPOS and BARSTATUS=2,zc2,zc2,120,0),LINETHICK1,COLORYELLOW;
DRAWTEXT(BARPOS and BARSTATUS=2,zc2*0.99,'下跌支撑价位'+NUMTOSTR(zc2)),ALIGN2,LINETHICK1,coloryellow;}

//请打开十字光标。参数NN可调整MACD指标线的大小
DRAWGBK(c>0 , COLORRgb(0,0,0), COLORRGB(0,0,0),1);
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*NN;
DEA:=EMA(DIFF,9);
MACD:=2*(DIFF-DEA),COLORSTICK;
N1:=sysparam(3);
N:=N1-sysparam(2)+1;
HH:=HHV(H,N);
LL:=LLV(L,N);
最高:HH[N1],COLORRED,LINEDOT;
最低:LL[N1],COLORRED,LINEDOT;
STICKLINE(DIFF>DEA,最低+(最高-最低)*0.5,最低+(最高-最低)*0.5+MACD,5,0),,,Color0000B7;
STICKLINE(DIFF<DEA,最低+(最高-最低)*0.5,最低+(最高-最低)*0.5+MACD,5,0),,Color008C8C;
STICKLINE(c>o,c,o,6,1),,Color86C2FF;
STICKLINE(c<o,c,o,6,0),COLORCYAN;
STICKLINE(c=o and c>ref(c,1),c,o,6,1),,Color86C2FF;
STICKLINE(c=o and c<ref(c,1),c,o,6,0),COLORffcc00;
STICKLINE(c=o and c=ref(c,1),c,o,6,0),COLORYELLOW;
STICKLINE(c>o,c,h,0.5,1),,Color86C2FF;
STICKLINE(c>o,o,l,0.5,1),,Color86C2FF;
STICKLINE(c<o,o,h,0.5,0),COLORffcc00;
STICKLINE(c<o,c,l,0.5,0),COLORffcc00;
STICKLINE(c=o and c>ref(c,1),c,h,0.5,0),,Color86C2FF;
STICKLINE(c=o and c>ref(c,1),c,l,0.5,0),,Color86C2FF;
STICKLINE(c=o and c=ref(c,1),c,h,0.5,0),COLORYELLOW;
STICKLINE(c=o and c=ref(c,1),c,l,0.5,0),COLORYELLOW;
STICKLINE(c=o and c<ref(c,1),c,h,0.5,0),COLORffcc00;
STICKLINE(c=o and c<ref(c,1),c,l,0.5,0),COLORffcc00;
最低+(最高-最低)*0.5+DIFF,COLORGREEN;
最低+(最高-最低)*0.5+DEA,COLORMAGENTA;
DRAWTEXT(BARSCOUNT(C)=SYSPARAM(3),最低+(最高-最低)*0.5,'0 轴'),SHIFT2,COLORBBBBBB;

amv0:=vol*(o+c+H+L)/4;
势:WMA(amv0,21)/WMA(vol,21);  
压:6*hhv(势,2)-5*势;
托:2*势-压;

KS:=(收盘价-简单移动平均(收盘价,13))/简单移动平均(收盘价,13)*(-100);
反向先导:指数平滑移动平均(KS/10+指数平滑移动平均(收盘价,10),3),ColorFF0000,LINETHICK2;
STICKLINE(CLOSE>势,OPEN,CLOSE,6,1),  COLORRED;
STICKLINE(CLOSE=势,OPEN,CLOSE,6,1),  COLORRED;
STICKLINE(CLOSE>势,LOW,OPEN,0.8,1),  COLORRED;
STICKLINE(CLOSE=势,LOW,OPEN,0.8,1),  COLORRED;
STICKLINE(CLOSE>势,CLOSE,HIGH,0.8,1),COLORRED;
STICKLINE(CLOSE=势,CLOSE,HIGH,0.8,1),COLORRED;

STICKLINE(CLOSE<势,CLOSE,OPEN,6,0),  COLORgreen;
STICKLINE(CLOSE=势,OPEN,LOW,0.8,0),  COLORgreen;
STICKLINE(CLOSE<势,HIGH,CLOSE,0.8,0),COLORgreen;

input: m(88,1,200),n(6,1,200);
check1:=checkuser(1);
var1:=ema(amount/v/100,3);
控盘成本:ema(var1,m);
低吸伏击:ema(var1,m)*0.85,Linethick2,colorffff00;
走势铁底:低吸伏击*0.87,Linethick3,colorff00ff;
var2:=l<=走势铁底 and c>ref(c,1)*1.02;
控盘成本,Linethick2,colorff;
partline(控盘成本<ref(控盘成本,1),控盘成本),Linethick2,colorff00;
drawicon(filter(var2,n),l,1);