{主升榜主图}总涨幅:(H-LLV(L,180))/LLV(L,180)*100,NODRAW,COLORYELLOW;股票指标网:=STRCAT(HYBLOCK,' ');公式:=STRCAT(股票指标网,DYBLOCK);源码:=STRCAT(公式,' ');DRAWTEXT_FIX(1,0.02,0.02,0,STRCAT(源码,GNBLOCK)),COLORYELLOW;
AAAA:=MA(C,1);AAA:=SMA(SMA(SMA(AAAA,2,1),2,1),2,1); BBB:=MA(AAA,3);DRAWBAND(AAA,RGB(255,255,0),BBB,RGB(0,0,255));CCC:=(3*C+L+O+H)/6;牛线:=(20*CCC+19*REF(CCC,1)+18*REF(CCC,2)+17*REF(CCC,3)+16*REF(CCC,4)+15*REF(CCC,5)+14*REF(CCC,6)+13*REF(CCC,7)+12*REF(CCC,8)+11*REF(CCC,9)+10*REF(CCC,10)+9*REF(CCC,11)+8*REF(CCC,12)+7*REF(CCC,13)+6*REF(CCC,14)+5*REF(CCC,15)+4*REF(CCC,16)+3*REF(CCC,17)+2*REF(CCC,18)+REF(CCC,20))/210,COLORRED,LINETHICK2;马线:=MA(牛线,5);DRAWBAND(牛线,RGB(255,40,0),马线,RGB(256,200,0));STICKLINE(IF((C>REF(C,1)*1.096),2,0),OPEN, CLOSE,3,0),COLORRED;
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;
{BOLL:=MA(CLOSE,20),DOTLINE,COLORWHITE,LINETHICK1;UB:BOLL+2*STD(CLOSE,20),DOTLINE,COLORLIBLUE,LINETHICK1;LB:BOLL-2*STD(CLOSE,20),DOTLINE,COLORRED,LINETHICK1;DRAWBAND(UB,RGB(55,0,0),LB,RGB(0,91,0));中:MA(CLOSE,20),COLORBROWN,DOTLINE,LINETHICK2;}
小妖:=(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1+XMA(XMA(H,25),25),DOTLINE,COLORYELLOW;成妖趋势:=XMA(XMA(L,25),25)-(XMA(XMA(H,25),25)-XMA(XMA(L,25),25))*1,LINETHICK1,COLORRED,DOTLINE;小妖2:=EMA(成妖趋势,25)COLORYELLOW,DOTLINE,LINETHICK1;{DRAWBAND(成妖趋势,RGB(55,0,0),小妖2,RGB(0,91,0));}
DRAWKLINE(H,O,L,C);
STICKLINE(成妖趋势>LOW AND 成妖趋势<HIGH,成妖趋势,MIN(MIN(OPEN,CLOSE),成妖趋势),2,0),COLORYELLOW;STICKLINE(成妖趋势>MIN(C,O) AND 成妖趋势<MAX(C,O),成妖趋势,MIN(OPEN,CLOSE),2,0),COLORYELLOW;STICKLINE(成妖趋势>HIGH,OPEN,CLOSE,2,0),COLORYELLOW;STICKLINE(成妖趋势>HIGH,HIGH,LOW,0,0),COLORYELLOW;
UVAR23:=100*XMA(XMA((C-REF(C,1)),6),6)/XMA(XMA(ABS((C-REF(C,1))),6),6);回调买:=LLV(UVAR23,2)=LLV(UVAR23,7) AND COUNT(UVAR23<0,2) AND CROSS(UVAR23,MA(UVAR23,2));XG5:= 成妖趋势>HIGH AND 回调买 AND L<=成妖趋势;DRAWTEXT(XG5,L*0.98,'买'),COLORWHITE;
JJ:=(HIGH+LOW+CLOSE)/3;QJ0:=VOL/IF(HIGH=LOW,4,HIGH-LOW);QJ1:=IF(CAPITAL=0,QJ0*(JJ-MIN(CLOSE,OPEN)),QJ0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));QJ2:=IF(CAPITAL=0,QJ0*(MIN(OPEN,CLOSE)-LOW),QJ0*IF(HIGH=LOW,1,(JJ-MIN(CLOSE,OPEN))));QJ3:=IF(CAPITAL=0,QJ0*(HIGH-MAX(OPEN,CLOSE)),QJ0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));QJ4:=IF(CAPITAL=0,QJ0*(MAX(CLOSE,OPEN)-JJ),QJ0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJ)));DDX:=((QJ1+QJ2)-(QJ3+QJ4))/IF(CAPITAL=0,10000,10000),COLOR00AAAA,LINETHICK;V2:=SMA(IF(C>=REF(C,1),DDX,-DDX/100),2,1);V5:=SMA(V2*120/FROMOPEN*5,2,1);V10:=SMA(V5,5,1);V20:=SMA(V10,5,1);DY:=CURRBARSCOUNT=1 AND C<REF(C,1);DY2:=REF(V2,1)-DY;XG2:=C>O AND DY2<0.02 AND MA(C,5)>MA(C,60) AND C/REF(C,1)>=1.02 AND H<小妖;DRAWTEXT(XG2 AND L<成妖趋势,L*0.96,'妖'),COLORMAGENTA;
N:=9;M91:=3;M92:=3;RSV:=(CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100;K:=SMA(RSV,M91,1);D:=SMA(K,M92,1);J:=3*K-2*D;金叉:=KDJ.K>KDJ.D AND KDJ.J>KDJ.D AND KDJ.J>KDJ.K;流通市值:=CAPITAL*C/1000000;涨幅:=(C-REF(C,1))/REF(C,1)*100;价格:=C;VAR0:=NOT(NAMELIKE('ST') OR NAMELIKE('*ST') OR NAMELIKE('S') OR DYNAINFO(4)=0 {OR INBLOCK('创业板')} OR INBLOCK('科创板')) OR BARSCOUNT(C)>1;VAR91:=流通市值>0 AND 流通市值<80;VAR92:=涨幅>9.8 AND 涨幅<10.99 AND C=H;VAR93:=价格>2 AND 价格<22;VAR94:=COUNT(VAR92,2)=1;XG1:=金叉 AND VAR0 AND VAR91 AND VAR92 AND VAR93 AND VAR94;DRAWTEXT(XG1,H*1.015,'风'),COLORYELLOW;
ZF:=(C/REF(C,1)-1)*100;高开:=(O/REF(C,1)-1)*100;S0:=DYNAINFO(15)/O/100;开盘满量1:=S0/REF(V,1)*100;T1:=(EMA(O,20)-REF(EMA(O,20),1))/REF(EMA(O,20),1)*100;T2:=REF(L,BARSLAST(CROSS(T1,0)));火力值:=(O-T2)/T2*100;ZB:=CODELIKE('60') OR CODELIKE('00');ZT0:=(C/REF(C,1)-1)*100>9.8 AND H=C;ZTS:=EVERY(ZT0,4)<3;XG:=火力值<=20 AND REF(ZF>9.80,1) AND 高开>=2 AND 高开<=7.5 AND ZB AND ZTS;DRAWTEXT(XG,L*0.98,'火'),COLORMAGENTA;
{顾比}P:=21;擒股指标1:=IF(L=LLV(L,P),L,DRAWNULL);擒股指标2:=CONST(BARSLAST(擒股指标1!=DRAWNULL));擒股指标3:=CONST(IF(擒股指标2=0,H,REF(H,擒股指标2)));擒股指标4:=CONST(REF(BARSLAST(H>擒股指标3),擒股指标2+1)+擒股指标2+1);擒股指标5:=CONST(IF(擒股指标4=0,H,REF(H,擒股指标4)));擒股指标6:=CONST(REF(BARSLAST(H>擒股指标5),擒股指标4+1)+擒股指标4+1);进场:IF(CURRBARSCOUNT<=擒股指标2+21,CONST(IF(擒股指标6=0,H,REF(H,擒股指标6))),DRAWNULL),COLORYELLOW;IF(CURRBARSCOUNT<=擒股指标2+1,IF(L=LLV(L,P),L,DRAWNULL),DRAWNULL),CIRCLEDOT,COLORYELLOW;{TJ0:=REF(C,1)<REF(进场,1) AND C>REF(进场,1);DRAWICON(TJ0,L*0.98,38);}
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;
{倍量上车}紫色倍量:=V/REF(V,1)>=2 AND C>O;STICKLINE(紫色倍量,C,O,1.5,0),COLORMAGENTA{COLORFF0066};{DRAWTEXT(紫色倍量,L*0.99,'倍'),COLORMAGENTA;}
{CG主升浪}BB:=POW(7,4)-385+8; B7:=POW(7,3)-242+115;B2:=19*POW(10,6); B3:=(200*POW(10,5))/10000+3;JY1:=BB*POW(10,4)+B7;JY2:=DATE()+B2;JJYY:=IF((JY2)/10000>B3-20,JY1-JY2,1);R1:=REF(C,1);AA:=VOL>REF(V,1)*1.77;AA3:=REF(V,1)>V*1.72;{周线,全}M1:=MA(V,5),COLORWHITE;M2:=MA(V,40),COLORYELLOW;M3:=IF(BARSCOUNT(C)>10,SMA(V,90+1,1),0),COLORLIRED;M4:=MA(V,135);M5:=MA(C,5);SSV1:=V>=MA(V,135)*1.02 AND C<REF(C,1) AND V>REF(V,1) AND M5<REF(M5,1);{阴线放量}V4:=AA AND V>M3*1.02;GZ3:=(REF(AA AND V4,1) AND V>=REF(V,1)*0.74) OR (REF(AA AND V4,2) AND V>=REF(V,2)*0.73);GZA:=EVERY(GZ3,2) AND EXIST( V>=M3*0.788,3);GZ4:=EVERY(GZ3,2) AND JJYY>3;GGZ:=REF(HHV(C,3)*1.0025,BARSLAST(GZA)),COLOR0088FF;{STICKLINE(C*0.998,GGZ,GGZ,3,1),COLORGREEN;}高点:=REF(HHV(V,150),3)*0.7,COLORGRAY,DOTLINE;参考:=REF(HHV(高点,V*0.8),1),COLORWHITE,DOTLINE;XP:=REF(V,1)>参考*0.95 AND V<参考 AND C<REF(C,1);VXP:=IF(XP,V,0);共振:=IF(HHV(VXP,120),HHV(VXP,120),REF(V*0.993,BARSLAST(XP))),COLORGREEN;量比:=V/共振,COLOR0088FF;倍量:=V/REF(V,1);量能:=V/M3,COLORYELLOW;{量-M3不能放前面，颜色被复盖}HONGV:=V>=HHV(V,65)*0.82 AND H>R1*1.038;DRAWTEXT(REF(量能>1.3 AND HONGV,6) AND O>N3 AND C<N3*1.25,L*0.982,'★'),COLORWHITE;
DRAWTEXT(REF(量能>1.3 AND HONGV,6) AND O>N3 AND C<N3*1.25 AND EXIST(C>=R1*1.06,4),L*0.982,'★'),COLORMAGENTA;
R2:=REF(C*0.999,BARSLAST(量能>5));新高:=V>=HHV(V,220)*0.8 AND MAX(C,O)>=MIN(R2,HHV(C,300))*0.96 AND BARSCOUNT(C)>15 AND JJYY>2;
新高价:=REF(MAX(C,O)*0.99,BARSLAST(FILTER(新高,2))),COLORMAGENTA,NODRAW;
LZ:=REF(量能>3.2 AND HONGV,1) AND V<REF(V,1)*0.8;{立桩}LZ1:=REF(C,BARSLAST(LZ)+1)*1.003,COLOR0088FF,NODRAW;涨停A:=C>=R1*1.095;LZX:=REF(涨停A,1) AND O>C AND 量能>3.5;{涨停阴线洗盘}LZ2:=REF(C,BARSLAST(LZX))*1.003,COLORYELLOW;MONEY:=FILTER(量比>1.2 AND V>高点,3);MONEY2:=COUNT(MONEY,20)>1;MONEY3:=(MONEY AND MONEY2>0) AND JJYY>2;MON4:=MONEY AND MONEY2<1 AND JJYY>2;MON5:=COUNT(MON4,3)<1 AND COUNT(MON4,20) AND EVERY(V>共振*0.9 AND V>M3,3);MO6:=FILTER(MON5,7);MO7:=COUNT(MO6,30)>1;{钱袋+3共振}MO8:=EXIST(MO7,30) AND O>R1*1.018 AND O<=HHV(REF(C,1),30);大压:=REF(C,BARSLAST(MONEY3))*0.99,COLORLICYAN,DOTLINE;{浅绿线}{STICKLINE(MO8,L*1.012,R1,5,0),COLORYELLOW;}{缺口，黄}H1:=REF(C,9)=HHV(C,2*9+1);{N,10}H2:=FILTER(H1,9);H3:=BACKSET(H2,9+1);H4:=FILTER(H3,9);小压:=REF(C*0.999,BARSLAST(H4)),COLORWHITE,NODRAW;{STICKLINE(C*0.998,小压,小压,3,1), COLORGREEN;}H5:=ABS(REF(小压,1)-小压)>小压*0.075 AND H4;小压2:REF(C*0.999,BARSLAST(H5)),COLORLIGRAY,DOTLINE{,NODRAW};STICKLINE(C*0.999,小压2,小压2,0.2,1), COLORGREEN;{小压2绿虚线}
{STICKLINE(ABS(新高价-小压)<小压*0.03 AND JJYY>3,小压,小压*0.999,1,0),COLORMAGENTA;}{新高价紫虚线}
LZ0:=ABS(新高价-大压)<大压*0.035;{STICKLINE(LZ0,大压,大压*1.001,1,0), COLORRED;{大压红虚线}LS:=JJYY>1 AND O<小压 AND C>=小压 AND 小压=REF(小压,5);{找第二个点}LS2:=FILTER(LS,2);{W洗}H6:=C>=HHV(C,30);STICKLINE(LS2,O*1.0031,C,1,0), COLORMAGENTA;DLZ:=FILTER(HONGV,2) AND LS2 AND 倍量>=1.99;{大立桩，红柱+粉柱}DRAWTEXT(DLZ,LLV(L,7),'立桩'),COLORYELLOW;DRAWICON(LS2 AND O<=新高价 AND C>新高价,L*0.99,11);{向上手指}
STICKLINE(LS2 AND O<=大压 AND C>大压,O*1.0031,O*1.02,2,0), COLORRED;{突破大压力}
STICKLINE(LS AND EXIST(REF(H6,1),7),O*1.01,C,0.1,0), COLORYELLOW;{7天反弹}
DRAWTEXT(LS2 AND COUNT(LS2,7)>1,L*0.99,'B'),COLORYELLOW;
STICKLINE(LS2 AND REF(COUNT(LS2,30),1)>0 AND C>=REF(C,1)*1.095,(O+C)/2*1.005,(O+C)/2,3,0), COLORYELLOW;STICKLINE(COUNT(LS2,7) AND O>C*1.04 AND C<N3*1.25,O,C,2,0), COLORGREEN;{洗盘}
XP1:=V=HHV(V,60) AND C<O;XP2:=V<REF(V,1) AND H/C>1.04 AND C<O AND EXIST(H>HHV(L,60),5);STICKLINE(XP2,O,C,2,0), COLORGREEN;{洗盘}
JC:=H>R1*1.091 AND C<=N3*1.23 AND C<R1*1.0992;DRAWICON(JC AND C>N3,H*1.01,12);{涨停洗盘，向下手指}
{DRAWICON(REF(JC,1) AND O>R1*1.005,L*0.99,34);}{OR 34,,TK}Z5:=H>L*1.05 AND C<R1*1.095 AND JJYY>1;{五线反弹}Z6:=Z5>0 AND L<=N5 AND C>O AND H>N5;Z7:=Z6 AND (REF(Z6,2) OR REF(Z6,3)) AND C>N5;STICKLINE(Z7,O*1.005,O*1.002,2,0),COLORYELLOW;
{前峰}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;
SJ1:=(REF(HIGH,3) = HHV(HIGH,((2 * 3) + 1)));SJ2:=FILTER(SJ1,3);SJ3:=BACKSET(SJ2,(3 + 1));SJ4:=FILTER(SJ3,3);SJ5:=(REF(LOW,3) = LLV(LOW,((2 * 3) + 1)));SJ6:=FILTER(SJ5,3);SJ7:=BACKSET(SJ6,(3 + 1));SJ8:=FILTER(SJ7,3);SJ9:=((REF(LLV(LOW,(2 * 3)),1) + REF(HHV(HIGH,(2 * 3)),1)) / 2);SJ10:=((HIGH + LOW) / 2);SJ11:=(((SJ4 AND NOT((SJ8 AND (SJ9 >= SJ10)))) OR BARSTATUS) OR (BARSCOUNT(CLOSE) = 1));SJ12:=(SJ8 AND NOT((SJ4 AND (SJ9 < SJ10))));SJ13:=(SJ4 AND NOT((SJ8 AND (SJ9 >= SJ10))));SJ14:=(REF(BARSLAST(SJ11),1) + 1);SJ15:=BACKSET((SJ11 AND (COUNT(SJ12,SJ14) > 0)),LLVBARS(IF(SJ12,LOW,10000),SJ14));SJ16:=(SJ15 > REF(SJ15,1));SJ17:=BACKSET(SJ16,2);SJ18:=(SJ17 > REF(SJ17,1));SJ19:=((SJ18 OR BARSTATUS) OR (BARSCOUNT(CLOSE) = 1));SJ20:=(REF(BARSLAST(SJ19),1) + 1);SJ21:=BACKSET((SJ19 AND (COUNT(SJ13,SJ20) > 0)),HHVBARS(IF(SJ13,HIGH,0),SJ20));SJ22:=(SJ21 > REF(SJ21,1));SJ23:=BACKSET(SJ22,2);SJ24:=(SJ23 > REF(SJ23,1));SJ25:=BACKSET(BARSTATUS,(BARSLAST(SJ18) + 1));SJ26:=(SJ25 > REF(SJ25,1));SJ27:=BACKSET(BARSTATUS,(BARSLAST(SJ24) + 1));SJ28:=(SJ27 > REF(SJ27,1));底0:REF(LOW,BARSLAST(SJ26)),COLORLIGRAY;顶0:REF(HIGH,BARSLAST(SJ28)),COLORLIGRAY;STICKLINE(SJ26,顶0,底0,0,0),COLORLIGRAY,LINETHICK1;DRAWLINE(SJ28,HIGH,SJ26,顶0,1),COLORLIGRAY,LINETHICK1;STICKLINE(SJ28,顶0,底0,0,0),COLORLIGRAY,LINETHICK1;DRAWLINE(SJ26,LOW,SJ28,底0,1),COLORLIGRAY,LINETHICK1;
{上下轨}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,COLORLIBLUE;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),COLORGRAY;STICKLINE(IF(BC2>TC02,LP,HP),LOWER,UPPER,0,0),COLORGRAY;}
FP:=NP-LR3*(NOD),DOTLINE,COLORLIRED;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;
{顶底}底:DRAWTEXT(CROSS(ZIG(3,8),REF(ZIG(3,8),1)),20,''),LINETHICK2,COLORYELLOW;DRAWICON(底,L*0.99,1);顶:DRAWTEXT(CROSS(REF(ZIG(3,10),1),ZIG(3,10)),20,''),LINETHICK2,COLORYELLOW;DRAWICON(顶,H*1.01,2);
{强庄筑底}VAR01:="DMI.PDI"(12,6);VAR02:="DMI.MDI"(12,6);VAR03:=VAR01>65 AND VAR01>REF(VAR01,1);VAR04:=LLV(VAR01,0);VAR05:=BARSLAST(VAR04=VAR01);VAR06:=(0-REF(VAR02,4))/(VAR04-REF(VAR02,VAR05))>2;VAR07:=VAR01>REF(VAR01,1);VAR08:=VOL>2*MA(VOL,30);VAR09:="DMI.ADX"(12,6);VARA0:="DMI.ADXR"(12,6);VARB0:=CLOSE>MA(CLOSE,30) AND CLOSE<MA(CLOSE,30)*1.04;VARC0:=MA(CLOSE,30)>REF(MA(CLOSE,30),1);VARD0:=BARSLAST(CROSS(MA(CLOSE,5),MA(CLOSE,10)))<BARSLAST(CROSS(MA(CLOSE,10),MA(CLOSE,5)));VARE0:=0-"MACD.DIF"(7,21,3);VARF0:=TROUGHBARS(3,15,1)<4;DRAWTEXT(FILTER(VARF0=1,3),L*0.98,'底'),COLORYELLOW;
{止损价}YC:=REF(CLOSE,1);止损:=(YC*1.0035*97+0.2)/99.65;DRAWTEXT_FIX(C!=0,0.4,0.02,0,STRCAT('止损: ',STRCAT(CON2STR(止损,2),' 元'))),COLORLIGRAY;
{伏击游资}HHHH:=HHV(H,250);LLLL:=LLV(L,250);主力:=(REF(HHHH,1)/REF(LLLL,1))*100,COLORLIMAGENTA;游资:=REF(C,1)/REF(LLV(L,250),1)*100,COLORYELLOW;伏击游资:=游资>=主力,COLORRED,NODRAW;DRAWICON(伏击游资,L*0.98,36);
{趋势评分}X01:=IF(MA(C,5)>MA(C,10),20,0);X02:=IF(MA(C,20)>MA(C,60),10,0);X3:=IF(KDJ.J>KDJ.K,10,0);X4:=IF(MACD.DIF>MACD.DEA,10,0);X5:=IF(MACD.MACD>0,10,0);X6:=IF(V>MA(V,60),10,0);X7:=IF(WINNER(C)>0.5,10,0);X8:=IF(C/REF(C,1)>1.03,10,0);XX:=X01+X02+X3+X4+X5+X6+X7+X8;DRAWTEXT_FIX(V>O,0.02,0.99,0,STRCAT('趋势评分:',STRCAT(CON2STR(XX,0),' '))),COLORYELLOW;
{量托}VOL5:=MA(VOL,5),COLORWHITE;VOL10:=MA(VOL,10),COLORYELLOW;VOL40:=MA(VOL,40),COLORFF00FF ;量托:=VOL5>=VOL40 AND CROSS(VOL10,VOL40) AND REF(VOL10,1)<REF(VOL40,1);DRAWTEXT(量托,L*0.99,'托'),COLORWHITE;
{起爆}火箭起爆点:=(DCLOSE-REF(C,1))/REF(C,1)*100;XG9:=CROSS(火箭起爆点,20) OR CROSS(火箭起爆点,18);DRAWTEXT(XG9,L*0.96,'爆'),COLORFF0066;STICKLINE(XG9,C,O,2,0),COLORFF0066;
{庄家成本}AL:=SUMBARS(V,CAPITAL*1);AL1:=SUM(COST(10),AL)/AL;AL2:=SUM(COST(20),AL)/AL;AL3:=SUM(COST(30),AL)/AL;AL4:=SUM(COST(40),AL)/AL;AL5:=SUM(COST(50),AL)/AL;庄家成本1:=(5*AL1+4*AL2+3*AL3+2*AL4+AL5)/15,COLOR0080FF,DOTLINE;庄家成本:REFDATE(庄家成本1,DATE),COLORWHITE,DOTLINE;DRAWTEXT(CURRBARSCOUNT=15,庄家成本,STRCAT('庄本:',CON2STR(庄家成本,2))),COLORWHITE;
{双低三角}A1:=REF(H,5)=HHV(H,2*5+1);B91:=FILTER(A1,5);C1:=BACKSET(B91,5+1);D1:=FILTER(C1,5);A2:=REF(L,5)=LLV(L,2*5+1);B92:=FILTER(A2,5);C2:=BACKSET(B92,5+1);D2:=FILTER(C2,5);E1:=(REF(LLV(L,2*5),1)+REF(HHV(H,2*5),1))/2; E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}H91:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;L1:=(D2 AND NOT(D1 AND E1<E2)); H92:=D1 AND NOT(D2 AND E1>=E2);X1:=REF(BARSLAST(H91),1)+1; F1:=BACKSET(H91 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,L,10000),X1));G1:=F1>REF(F1,1);I1:=BACKSET(G1,2);LD:=I1>REF(I1,1);{过滤后低点}T91:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); U1:=T91>REF(T91,1);{前一低}T92:=BACKSET(U1,REF(BARSLAST(LD),1)+2);U2:=T92>REF(T92,1);{前二低}{短期支撑:DRAWLINE(U2,L,U1,L,1),COLORRED LINETHICK2;DRAWICON(U1,L*0.99,38);DRAWICON(U2,L*0.99,38);}
{均线粘合}MA1:=MA(C,5),COLORWHITE,LINETHICK1;MA2:=MA(C,10),COLORGREEN,LINETHICK1;MA03:=MA(C,20),COLORCYAN,LINETHICK1;MA4:=MA(C,30),COLORYELLOW,LINETHICK1;MA05:=MA(C,60),COLORRED,LINETHICK1;MAXJX:=MAX(MAX(MA1,MA2),MAX(MA03,MA4));{求四条均线最大值}MINJX:=MIN(MIN(MA1,MA2),MIN(MA03,MA4));{求四条均线最小值}A01:=COUNT(MAXJX/MINJX-1<0.02,2)>=1;{统计最近5个交易日至少出现过一次均线粘合}A02:=C>MA1;{收盘价在5日均线之上}A3:=C>REF(HHV(H,5),1);{收盘价突破5日高点}A4:=C/REF(C,1)>1.01;{涨幅大于1%}A5:=VOL>MA(VOL,5);{成交量大于5日均量}A6:=MA1>MA2 AND MA2>MA03;{5、10、20均线发散多头排列}A7:=MA1>REF(MA1,1);{5日均线拐头向上}XG8:=A01 AND A02 AND A3 AND A4 AND A5 AND A6 AND A7;DRAWICON(XG8,L*0.98,13);
X_04:=MACD.MACD>(-1.2) AND CLOSE<50 AND REF(EVERY(CLOSE/REF(CLOSE,1)<0.999,3),1) AND CLOSE>REF(CLOSE,1) AND MACD.DIF>(-0.13) AND (CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100>0;浅粉:STICKLINE(X_04,OPEN,CLOSE,0.8,0),COLORLIRED;
{龙虎榜}买VV:=GPJYVALUE(2,1,0)/1000;卖VV:=GPJYVALUE(2,2,0)/1000;净额:=(买VV-卖VV);DRAWTEXT(净额>0 AND 净额<10000,H+H/9,VARCAT('榜:',VAR2STR(净额,2))),COLORYELLOW;DRAWTEXT(净额<0 AND 净额>-10000,L+H/9,VARCAT('榜:',VAR2STR(净额,2))),COLOR00CC00;
{涨跌停变色}X_2:=REF(CLOSE,1);X_3:=REF(CLOSE,1)*1.097;X_4:=CLOSE>=X_3 AND CLOSE=HIGH;STICKLINE(X_4,CLOSE-(CLOSE-OPEN)/3,CLOSE,2,0),COLORYELLOW;X_5:=IF(DTPRICE(REF(CLOSE,1),0.1)=CLOSE,2,0);STICKLINE(X_5,OPEN,CLOSE,2.5,0),COLORGREEN;STICKLINE((C-REF(C,1))/REF(C,1)<=-0.0985,CLOSE+(OPEN-CLOSE)/3,CLOSE,2,0),COLORBLUE;
{芙蓉出水}{MA10:=MA(CLOSE,10),COLORYELLOW;MA20:=MA(CLOSE,20),COLORMAGENTA;MA60:=MA(CLOSE,60),COLORGREEN;AA1:=BARSLAST(MA60>MA20 AND (MA20=MA10 OR MA20>MA10));BB1:=REF(COUNT(C<MA60,AA1)=AA1,1);CC1:=CROSS(C,MA60) AND VOL>MA(VOL,5) AND (C-REF(C,1))/REF(C,1)*100>3;芙蓉出水:=BB AND CC1,COLOR00FF00;DRAWTEXT(芙蓉出水,H*1.05,'囦'),COLORFF00FF;}
{量价共振}{趋势2:=3*SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1)-2*SMA(SMA((C-LLV(L,27))/(HHV(H,27)-LLV(L,27))*100,5,1),3,1);ZZ:=趋势2>REF(趋势2,1);K01:=DVOL/1000000;K02:=DCLOSE;V001:=EMA(K01,5);V002:=EMA(K02,5);价异动:=K02>REF(V002,1)*1.06;量异动:=K01>REF(V001,1)*1.6&&ZZ;停牌:=DYNAINFO(17)>0;M21:=SUM(价异动,2)>0 AND 停牌;M22:=SUM(量异动,2)>0 AND REF(趋势2,1)<89;量价共振:FILTER(M21&&M22,3);DRAWTEXT(量价共振,H*1.03,'㊣'),LINETHICK3,COLOR00FFFF;}
融资余额:=GPJYVALUE(3,1,1);倾角:=ATAN((融资余额/REF(融资余额,2)-1)*100)*180/3.1415926;融资创新高:=融资余额>REF(HHV(融资余额,118),1)&&EXIST(倾角>85,2);DRAWTEXT(融资创新高,H*1.01,'R'),COLORYELLOW;{ZJC:=GPJYVALUE(5,1,0);ZJC2:=IF(ZJC>0,ZJC,C);增减额:=IF(FINANCE(3)==0,DRAWNULL,(ZJC2*GPJYVALUE(5,2,0))/10000),NODRAW;DRAWTEXT(增减额>0,H*1.06,'增'),COLORRED,LINETHICK2;DRAWTEXT(增减额<0,H*1.06,'减'),COLORGREEN,LINETHICK2;}
A22:=REF(CLOSE,2)>REF(OPEN,2)AND REF(CLOSE,1)<REF(OPEN,1)AND CLOSE>OPENAND C>REF(C,2)AND REF(C,1)>REF(O,2);STICKLINE(A22,O,C,1,0),COLOR4080FF;{DRAWTEXT(A22,L*0.98,'多方炮'),COLOR4080FF;}
开盘满量:=S0/MA(REF(V,1),5)*100;{竞价抢筹定义}主力入场:=开盘满量>=1.5 AND 高开>=2 AND 高开<=4 ;{竞价抢筹定义}DRAWTEXT(主力入场,L*0.99,'抢筹'),COLORYELLOW;{竞价抢筹提示};
{小小思路}ZB1:=H=ZTPRICE(REF(CLOSE,1),0.1) AND C<H;DRAWTEXT(ZB1,L*0.998,'烂板'),COLORMAGENTA;
WB6:=(H-C)/REF(C,1)*100>3;{长上影}
TJ:=VOL>=REF(V,1)*2.8 AND C>REF(C,1)*1.01 AND WB6;
DRAWTEXT(TJ,LOW*0.986,'柱'),COLORYELLOW;
STICKLINE(TJ,OPEN,CLOSE,1.5,0),COLORYELLOW;
K1:=SUMBARS(TJ,1);
STICKLINE(K1,REF(C,K1-1),REF(C,K1-1),1,0),COLORYELLOW;
{DRAWNUMBER(TJ,H,C),COLORWHITE;}
{九转}{AH:=HHV(H,60);AL9:=LLV(L,60);A0:=(AH-AL)/21;A001:=C>REF(C,4);NT:=BARSLASTCOUNT(A001);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.001,VAR2STR(AY,0)),COLORYELLOW;DRAWTEXT(NT=9,H*1.001,'9'),COLORGREEN;DRAWTEXT(NT=13,H*1.001,'13'),COLORGREEN;DRAWTEXT(NT=18,H*1.001,'18'),COLORGREEN;B1:=C<REF(C,4);NT0:=BARSLASTCOUNT(B1);TJ21:=NT0=9 ;TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;DRAWTEXT(AY1>0,H*1.001,VAR2STR(AY1,0)),COLORLIGREEN;DRAWTEXT(NT0=9,H*1.001,'9'),COLORYELLOW;DRAWTEXT(NT0=13,H*1.001,'13'),COLORYELLOW;DRAWTEXT(NT0=18,H*1.001,'18'),COLORYELLOW;};
