DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);ZBGS1:=SUM((WINNER(C)*100),30)/30*0.1;ZBGS2:=SUM((WINNER(C)*100),20)/20*0.4;ZBGS3:=SUM((WINNER(C)*100),10)/10*0.3;ZBGS4:=SUM((WINNER(C)*100),5)/5*0.1;ZBGS5:=SUM((WINNER(C)*100),3)/3*0.1;ZBGSZ:=ZBGS1+ZBGS2+ZBGS3+ZBGS4+ZBGS5;赚钱效应:IF(ZBGSZ>38,ZBGSZ,ZBGSZ*1.3),NODRAW;活跃度:IF(SUMBARS(VOL,CAPITAL)< 100,100-SUMBARS(VOL,CAPITAL),1),NODRAW;获利筹码:IF(WINNER(CLOSE),WINNER(CLOSE)*100,0),NODRAW;Z1:=STRCAT(HYBLOCK,' ');Z2:=STRCAT(Z1,DYBLOCK);Z3:=STRCAT(Z2,' ');DRAWTEXT_FIX(ISLASTBAR,0.02,0.02,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;DRAWKLINE(H,O,L,C);SN1:=(L+H)/2;N5:=IF(BARSCOUNT(C),SMA(SN1,3,1),C),COLORWHITE,DOTLINE;N3:=IF(BARSCOUNT(C),SMA(SN1,21,1),C),COLORYELLOW;MA5:MA(C,5)LINETHICK2,COLOR00CCFF;五日乖离率:=(C-MA5)/MA5*100;BB5:=ATAN((MA5/REF(MA5,1)-1)*100)*180/3.1416;速度5:=SMA(EMA((MA5-REF(MA5,1))/REF(MA5,1),3)*100,3,1);加速度5:=EMA((速度5-REF(速度5,1)),3),NODRAW;IF(BB5>30 AND MA5>REF(MA5,1),MA5,DRAWNULL),LINETHICK2,COLORRED;IF(BB5< 0 AND MA5< REF(MA5,1),MA5,DRAWNULL),LINETHICK2,COLORGREEN;VAR3:=LLV(HIGH,240);VAR4:=100*(CLOSE-VAR3)/VAR3;VAR5:=(CLOSE-LLV(LOW,528))/(HHV(HIGH,528)-LLV(LOW,528))*100;VAR6:=(CLOSE-LLV(CLOSE,530))/(HHV(CLOSE,530)-LLV(CLOSE,530))*100;VAR7:=0;VAR8:=SMA(MAX(CLOSE-REF(CLOSE,1),0),34,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),7,1)*100;VAR9:=SMA(MAX(CLOSE-REF(CLOSE,1),0),13,1)/SMA(ABS(CLOSE-REF(CLOSE,1)),13,1)*100;VAR10:=IF(TROUGHBARS(3,16,1)=0 AND HIGH>LOW+0.04,4,0);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);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);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);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);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);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);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);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);VAR19:=EMA(CLOSE,2)-EMA(CLOSE,150);买1:=VAR10;买2:=(VAR11+VAR13+VAR15+VAR17);卖1:=(VAR12+VAR14+VAR16+VAR18);B:IF(买1>0 OR 买2>0,LOW*0.99,DRAWNULL),CROSSDOT,LINETHICK3,COLORYELLOW;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.99,1) ;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);ZB:=EMA(EMA(VAR3,5),5)*3, COLORSTICK;VARA:=IF(VAR9 AND CROSS(MA(CLOSE,3),MA(CLOSE,5)),20,0);K:=EMA(VAR7,5)*2, , COLORFF00FF;D:=EMA(K,5), , COLORWHITE;J:=K*3-D*2, ,COLORYELLOW;VARB:=BETWEEN(CLOSE,MA(CLOSE,3),MA(CLOSE,5)) AND J>10;HS:=VOL/CAPITAL*100, , COLORGREEN;VARE:=MA(100*(CLOSE-LLV(CLOSE,34))/(HHV(HIGH,34)-LLV(LOW,34)),5)-20;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);DRAWTEXT(VAR11 AND COUNT(VAR11,30)=1,LOW*0.98,'机构进场'),COLORYELLOW;VAR1A:=IF(VARE>0,VARE,0);VAR1B:=IF(VAR14>=200 AND VAR13>=150,15,IF(VAR14<=-200 AND VAR13<=-150,-15,VAR16))+60;VAR1C:=VAR1A>48 AND VAR1B>60 AND VAR19< 100;DRAWTEXT(VAR1C AND COUNT(VAR1C,30)=1,H*1.02,'大顶(底)') COLORWHITE;
{上下轨}N11:=2,200,13;UR00:=2,200,6;LR0:=2,200,6;TC01:=IF(H=HHV(H,8*UR00),H,DRAWNULL);TC02:=CONST(BARSLAST(TC01=H))+1;UPPER:=CONST(IF(TC02=1,H,REF(H,TC02-1)));BC1:=IF(L=LLV(L,8*LR0),L,DRAWNULL);BC2:=CONST(BARSLAST(BC1=L))+1;LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1)));LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;HP:=CURRBARSCOUNT<=TC02 AND H=UPPER;NOD:=(IF(TC02>BC2,TC02,BC2)-IF(TC02>BC2,BC2,TC02));LR1:=FORCAST(C,NOD+1);NP:IF(CURRBARSCOUNT<=MAX(BC2,TC02),CONST(IF(MIN(TC02,BC2)=1,LR1,REF(LR1,MIN(TC02,BC2)-1))),DRAWNULL),DOTLINE,COLORRED;LR2:=SLOPE(C,NOD+1);LR3:=CONST(IF(MIN(TC02,BC2)=1,LR2,REF(LR2,MIN(TC02,BC2)-1)));STICKLINE(IF(BC2>TC02,HP,LP),LOWER,UPPER,0,0),COLORWHITE;STICKLINE(IF(BC2>TC02,LP,HP),LOWER,UPPER,0,0),COLORWHITE;FP:NP-LR3*(NOD),DOTLINE,COLORYELLOW;EQU:(NP+FP)/2,DOTLINE,COLORWHITE;AD:=ABS(NP-FP);DBL0:=BARSLAST(BC1!=DRAWNULL)+1;DBH:=BARSLAST(TC01!=DRAWNULL)+1;BSP:=IF(BC2>TC02,DBL0,DBH)-1;LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND H>LRL,H,LRL);AT2:=HHV(AT1-LRL,MAX(BC2,TC02));AT3:=CONST(BARSLAST(AT1-LRL=AT2));AT4:=CONST(IF(AT3=0,H,REF(H,AT3)));AT5:=CONST(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)));ATL:=LRL+AT5;UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC02) AND L<LRL,L,LRL);UT2:=HHV(LRL-UT1,MAX(BC2,TC02));UT3:=CONST(BARSLAST(LRL-UT1=UT2));UT4:=CONST(IF(UT3=0,H,REF(H,UT3)));UT5:=CONST(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)));UTL:=LRL-UT5;RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,ATL,CONST(REF(ATL,MIN(BC2,TC02)-11)));RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC02)-10,UTL,CONST(REF(UTL,MIN(BC2,TC02)-11)));中轨:IF(NP>FP,IF(LRL<=RH,LRL,DRAWNULL),IF(LRL>=RL,LRL,DRAWNULL)),COLORBBBBBB;上轨:IF(NP>FP,IF(ATL<=RH,ATL,DRAWNULL),IF(ATL>=RL,ATL,DRAWNULL)),COLORBLUE;下轨:IF(NP>FP,IF(UTL<=RH,UTL,DRAWNULL),IF(UTL>=RL,UTL,DRAWNULL)),COLORFF00FF;
LT:=LLVBARS(L,60);LT1:=LLVBARS(L,60);LTT:=BARSLAST(CURRBARSCOUNT=CONST(LT)+1);HT:=FINDHIGHBARS(H,LT+1,60,1);DT:=FINDLOW(L,LT1+1,60,1);锅盖:DRAWLINE(CURRBARSCOUNT=CONST(HT)+1,H,ISLASTBAR,REF(H,HT),0),COLORGREEN ,LINETHICK1;
{顶底}底:DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),H,''),LINETHICK2,COLORYELLOW;DRAWICON(底,L*0.99,1);顶:DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),H,''),LINETHICK2,COLORYELLOW;DRAWICON(顶,H*1.01,2);
{涨跌停变色}X_2:=REF(CLOSE,1);X_3:=REF(CLOSE,1)*1.097;X_4:=CLOSE>=X_3 AND CLOSE=HIGH;STICKLINE(X_4,O,CLOSE,2,0),COLORYELLOW;X_5:=IF(DTPRICE(REF(CLOSE,1),0.1)=CLOSE,2,0);STICKLINE(X_5,OPEN,CLOSE,2,0),COLORGREEN;
{九转}AH:=HHV(H,60);AL:=LLV(L,60);A0:=(AH-AL)/21;A11:=C>REF(C,4);NT:=BARSLASTCOUNT(A11);TJ11:=NT=9;TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;DRAWTEXT(AY>0,H+1.1*A0,VAR2STR(AY,0)),COLORYELLOW;DRAWTEXT(NT=9,H+1.1*A0,'9'),COLORGREEN;DRAWTEXT(NT=13,H+1.1*A0,'13'),COLORGREEN;DRAWTEXT(NT=18,H+1.1*A0,'18'),COLORGREEN;B11:=C<REF(C,4);NT0:=BARSLASTCOUNT(B11);TJ21:=NT0=9 ;TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;DRAWTEXT(AY1>0,L-1*A0,VAR2STR(AY1,0)),COLORLIGREEN;DRAWTEXT(NT0=9,H+1.1*A0,'9'),COLORYELLOW;DRAWTEXT(NT0=13,H+1.1*A0,'13'),COLORYELLOW;