大陰線跌幅:=5;
最后陰線周期:=5;
{壓力陰線判斷}{收盤價(jià)=3,開盤價(jià)=0,最高價(jià)=1,最低價(jià)=2}
波峰距離:=PEAKBARS(3,5.00,1),NODRAW;{波段高}
波谷距離:=TROUGHBARS(2,5.00,1);{波段低}
距離:=CURRBARSCOUNT,NODRAW;
比前跌率:=(REF(C,1)-C)*100/REF(C,1);{當(dāng)日跌幅判斷}
本日跌率:=(O-C)*100/O;{陰線大小判斷}
距離FK1:=波峰距離-1;{波峰右邊K距離}
線位置:= REF(L,距離FK1);
TJ1:=波峰距離>波谷距離+5 AND 波峰距離<121;
TJ2:=REF(本日跌率,距離FK1)>大陰線跌幅 OR REF(比前跌率,距離FK1)>大陰線跌幅;{陰線>5% 或者跌幅>5%}
TJ3:=距離<240;
TJ4:=REF(C,距離FK1) HXTJ:= 線位置=REF(線位置,1) AND TJ2 AND TJ4;{畫線條件}
TT1:=BARSLAST(CROSS(HXTJ,0.5));
DZTJ:=FILTER(HXTJ AND TJ1 AND TJ3,20);{打字條件}
TT2:=BARSLAST(DZTJ);
QF:=BACKSET(TT2=0,TT1+2);
TT3:=BARSLAST(CROSS(QF=1,0.5));
陰一頂:DRAWLINE(CURRBARSCOUNT=CONST(TT3)+1,H,ISLASTBAR,REF(H,TT3),0),COLOR00FF00,DOTLINE;
陰一底:DRAWLINE(CURRBARSCOUNT=CONST(TT3)+1,L,ISLASTBAR,REF(L,TT3),0),COLOR00FF00,DOTLINE;
DRAWTEXT(ISLASTBAR,陰一頂,VARCAT(VAR2STR(陰一頂,2),’—‘)),COLOR00FF00;
DRAWTEXT(ISLASTBAR,陰一底,VARCAT(VAR2STR(陰一底,2),’—‘)),COLOR00FF00;
{最高、最低凹口 震蕩K線判斷}
T1:=CONST(LLVBARS(L,10));{最低值}
{T1:=CONST(HHVBARS(H,10));{最高值}
T1H:=CONST(REF(H,T1));
T1L:=CONST(REF(L,T1));
CCB:=CONST(CURRBARSCOUNT);
T2:=CONST(BARSLAST(CURRBARSCOUNT>CCB+T1 AND H>T1H));
T2H:=CONST(REF(H,T2));
T2L:=CONST(REF(L,T2));
T3:=CONST(BARSLAST(CURRBARSCOUNT>CCB+T2 AND H>T2H));
T3H:=CONST(REF(H,T3));
T3L:=CONST(REF(L,T3));
陰二頂:DRAWLINE(CURRBARSCOUNT=T3+1, T3H, ISLASTBAR, T3H, 1),COLOR0099FF,LINETHICK1,DOTLINE;
陰二底:DRAWLINE(CURRBARSCOUNT=T3+1, T3L, ISLASTBAR, T3L, 1),COLOR0099FF,LINETHICK1,DOTLINE;
DRAWTEXT(ISLASTBAR,陰二頂,VARCAT(VAR2STR(陰二頂,2),’—‘)),COLOR0099FF;
DRAWTEXT(ISLASTBAR,陰二底,VARCAT(VAR2STR(陰二底,2),’—‘)),COLOR0099FF;
{120天內(nèi)的大陰線 支撐陰線}
A0A:=CURRBARSCOUNT;
A1A:=V/REF(V,1);
A2A:=(REF(C,1)-C)/REF(C,1)*100;{大陰線跌幅}
大陰線:=O<=REF(C,1) AND C大陰線跌幅 AND A0A<121 AND A2A<9 {AND A1A>1.9};
大陰:= BARSLAST(FILTER(大陰線,最后陰線周期));{N:=5;}
陰三頂:DRAWLINE(CURRBARSCOUNT=CONST(大陰)+1,H,ISLASTBAR,REF(H,大陰),0),COLORMAGENTA,DOTLINE;
陰三底:DRAWLINE(CURRBARSCOUNT=CONST(大陰)+1,L,ISLASTBAR,REF(L,大陰),0),COLORMAGENTA,DOTLINE;
DRAWICON(CURRBARSCOUNT=CONST(大陰)+1,H*1.02,2);
DRAWTEXT(ISLASTBAR,陰三頂,VARCAT(VAR2STR(陰三頂,2),’—‘)),COLORMAGENTA;
DRAWTEXT(ISLASTBAR,陰三底,VARCAT(VAR2STR(陰三底,2),’—‘)),COLORMAGENTA;
{N 2 1000 100 }
STICKLINE(IF(CURRBARSCOUNT<=100,V=CONST(LLV(V,100)),DRAWNULL),C,O,3,0),COLORFFFFFF;{百日地量}
DRAWTEXT(IF(CURRBARSCOUNT<=100,V=CONST(LLV(V,100)),DRAWNULL), L, ' 百地量')LINETHICK1,COLORFFFFFF;
{M1:=13;M2:=55;M3:=100;
地量10日:= V=LLV(V,M1) AND BARSCOUNT(V)>=M1;
地量50日:= V=LLV(V,M2) AND BARSCOUNT(V)>=M2;
百日地量:= V=LLV(V,M3) AND BARSCOUNT(V)>=M3;
STICKLINE(百日地量,OPEN,CLOSE,1,0),COLORMAGENTA;
STICKLINE(地量10日,OPEN,CLOSE,1,0),COLORWHITE;
STICKLINE(地量50日,OPEN,CLOSE,1,0),COLORWHITE;}
倍量拄:=VOL>=REF(V,1)*1.95 AND C>REF(C,1);
梯量拄:=V>=REF(V,1) AND REF(V,1)>=REF(V,2) AND C>O AND REF(C>O,1);
STICKLINE(梯量拄,C,O,1,0),COLORLIRED{粉};
STICKLINE(倍量拄,C,O,1,0),COLORYELLOW{黃};
NNN1:=DRAWTEXT(梯量拄,L*0.999, ‘ 梯量拄’),LINETHICK1,COLORLIRED{粉};
NNN2:=DRAWTEXT(倍量拄,L*0.99, ‘ 倍量拄’),LINETHICK1,COLORYELLOW{黃};
{長(zhǎng)陰短柱}
A11:=CLOSE A12:=OPEN-CLOSE;{第一個(gè)陰線的實(shí)柱長(zhǎng)}
B11:=BARSLAST(CLOSE>=OPEN);
B12:=REF(CLOSE,B11)-REF(OPEN,B11);{第一個(gè)陽(yáng)線的實(shí)柱長(zhǎng)}
C10:=B11<3;
C11:=A12-B12>0;
C12:=VOL C13:=VOL C14:=IF(B11=2,C13,C12);
CC:=C10 AND C11 AND C13;{必須條件}
G11:=VOL G21:=VOL<(1/3*SUM(VOL,5)/5+1/3*REF(VOL,B11)+1/3*LLV(VOL,5));{好，不壞}
G22:=10.00>100*SUM(DYNAINFO(37),5)/5;{小測(cè)試無(wú)副作用}
G23:=10000000*(HIGH-LOW)/VOL;
G24:=10000000*(REF(HIGH,B11)-REF(LOW,B11))/REF(VOL,B11);
G241:=SUM(G24,12)/12;
G25:=G23>G241;
GG:=G11 AND G21 AND G22 AND G25;{重要的限制條件}
F11:=CC AND GG;
STICKLINE(F11,C,O,1,0),COLORBLUE{藍(lán)};
DRAWICON(F11,HIGH*1.01,27);{輸出三：長(zhǎng)陰短柱};
{120日區(qū)間高低點(diǎn)判斷}
N:=30;
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
HD:= FILTER(C1,N);
RH:=BACKSET(CURRBARSCOUNT=2,BARSLAST(HD)+1);
SH:=RH>REF(RH,1);
階段高點(diǎn):REF(H ,BARSLAST(SH)),LINETHICK1,COLORWHITE;{階段高點(diǎn)}
DRAWTEXT(ISLASTBAR,階段高點(diǎn),VARCAT(VAR2STR(階段高點(diǎn),2),’ 元’)),COLORFFFFFF;
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
LD:=FILTER(C2,N);
RL:=BACKSET(CURRBARSCOUNT=2,BARSLAST(LD)+1);
SL:=RL>REF(RL,1);
階段低點(diǎn):REF(L ,BARSLAST(SL)),LINETHICK1,COLORRED;{階段低點(diǎn)}
DRAWTEXT(ISLASTBAR,階段低點(diǎn),VARCAT(VAR2STR(階段低點(diǎn),2),’ 元’)),COLOR0000FF;
{漲跌停價(jià)判斷}
AA:=(C-REF(C,1))/REF(C,1)*100;
ZS:=(NAMELIKE(‘ST’) OR NAMELIKE(‘*ST’) OR NAMELIKE(‘S’)) AND AA>=4.945;
DS:=(NAMELIKE(‘ST’) OR NAMELIKE(‘*ST’) OR NAMELIKE(‘S’)) AND AA<=-4.945;
漲停價(jià):IF(ZS,REF(C,1)*1.05,REF(C,1)*1.1),NODRAW;
跌停價(jià):IF(DS,REF(C,1)*0.95,REF(C,1)*0.9),NODRAW;
漲家數(shù):INDEXADV,NODRAW,COLORLIMAGENTA ;
跌家數(shù):INDEXDEC,NODRAW,COLORGREEN;
DRAWTEXT_FIX(ISLASTBAR,0,0,0,VARCAT(VARCAT(HYBLOCK,’ ‘),VARCAT(VARCAT(DYBLOCK,’ ‘),VARCAT(GNBLOCK,’ ‘)))),COLORGREEN;{在屏幕左上角顯示所屬行業(yè)板塊};