通达信裸K升级版主图+箱体捉妖副图 源码 附图

{箱体捉妖专F1源码如下}
{================背景 ================};
DRAWGBK(ISLASTBAR, RGB(60,60,60),RGB(0,0,0),0,'0',0);
A1:=EMA((C - REF(C,1)) / REF(C,3),10) * 100;
A2:=EMA(EMA(EMA(EMA(A1,2),2),2),3);
A3:=(C - MA(C,26)) / MA(C,26) * 100;
0,LINETHICK2;
A4:=1;
黄金坑:IF(MA((C - MA(C,28)) / MA(C,28),3) * 100 < -15,MA((C - MA(C,28)) / MA(C,28),3) * 100,0) * A4,LINETHICK2,COLOR00F600;
A5:IF(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0 AND MA(C,5) > MA(C,10) AND A3 > EMA(MA((C - MA(C,28)) / MA(C,28),3) * 100,5) AND A2 > REF(A2,1),MA((C - MA(C,28)) / MA(C,28),3) * 100,0) * A4;
持股线:(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0 AND MA(C,5) > MA(C,10) AND A3 > EMA(MA((C - MA(C,28)) / MA(C,28),3) * 100,5) AND DYNAINFO(17) > 0) * A5 * A4,LINETHICK1,COLORRED;
VARD1:=MA((C - MA(C,28)) / MA(C,28),3) * 100;
STICKLINE(VARD1 < -20 AND  VARD1> REF(VARD1,1) * A4,VARD1,-6,4,0),COLORC8C8FA;
STICKLINE(VARD1 < -20,VARD1,-6,4,0),COLOR00C8FA;
STICKLINE(VARD1 < -20,0,-6,4,0),COLOR00C800;
STICKLINE(VARD1< -20 AND  VARD1> REF(VARD1,1) * A4,0,-6,4,0),COLOR6464FA;
A6:=(MA(C,3) + MA(C,6) + MA(C,12) + MA(C,24)) / 4;
A7:=A6 + 3 * STD(A6,10);
A8:=MA(C,26) + 2 * STD(C,26);
买点:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND A2 > REF(A2,1)) * A5,COLORFF0000,NODRAW;
STICKLINE(买点,买点,0,3,0),COLOR990000;{蓝色}
DRAWTEXT(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND A2 > REF(A2,1),-6,'买'),COLORYELLOW;
VAK1:=(V > 0 AND A5 > 0 AND A2 > REF(A2,1)) * EMA(A5,5),COLOR005999;
STICKLINE(VAK1,VAK1,0,2,0),COLORRED ;{红色}
VAK2:=(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(EMA(C,2),HHV(EMA(C,5),26))) * EMA(A5,2),COLOR000999;
STICKLINE(VAK2,VAK2,0,3,0),COLORWHITE  ;{白色}
VAK3:=(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(EMA(C,2),HHV(EMA(C,5),26))) * -3,COLOR009999;
STICKLINE(VAK3,VAK3,0,6,0),COLORYELLOW;{色}
STICKLINE(VAK3,VAK3,0,2,0),COLOR005555;
STICKLINE(VAK3,VAK3,0,1,0),COLOR007777;
STICKLINE(VAK3,VAK3,0,0.2,0),COLOR009999;
卖点:(V > 0 AND CROSS(0.5,持股线)) * REVERSE(MA((C - MA(C,28)) / MA(C,28),3) * 100) * A4,COLORGREEN;
STICKLINE(卖点,卖点,0,3,0),COLOR009900;{绿色};

短线起爆:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(EMA(C,2),HHV(EMA(C,5),26))) * 10 * A4,NODRAW;
VAK4:=(V > 0 AND EMA((C - MA(C,28)) / MA(C,28),2) > MA((C - MA(C,28)) / MA(C,28),4) AND MA((C - MA(C,28)) / MA(C,28),4) > REF(MA((C - MA(C,28)) / MA(C,28),4),1) AND SMA(MAX(C - REF(C,1),0),14,1) / SMA(ABS(C - REF(C,1)),14,1) * 100 > 64.5 AND EMA(C,1) > (A7 OR A8)) * EMA(A5,5) / 2.5 * A4,COLORRED;
STICKLINE(VAK4,VAK4,0,3,0),COLORYELLOW;{黄色}
VAK5:=(V > 0 AND EMA((C - MA(C,28)) / MA(C,28),2) > MA((C - MA(C,28)) / MA(C,28),4) AND MA((C - MA(C,28)) / MA(C,28),4) > REF(MA((C - MA(C,28)) / MA(C,28),4),1) AND (V > 0 AND A5 > 0 AND A2 > REF(A2,1)) * EMA(A5,5) = 0) * A3 * A4,COLORADA899;
STICKLINE(VAK5,VAK5,0,3,0),COLORLIBLUE ;{灰色};

DRAWBMP(短线起爆 < 0,-3,'BUY1');
IF(EMA(C,2) > HHV(EMA(C,5),26) AND A5 > 0 * A4,持股线,DRAWNULL),LINETHICK3,COLORMAGENTA;
A9:=EMA((EMA(C * V,3) / EMA(V,3) + EMA(C * V,6) / EMA(V,6) + EMA(C * V,12) / EMA(V,12) + EMA(C * V,24) / EMA(V,24)) / 4,13);
A10:=1.06 * A9 * A4;
A11:=(C - REF(C,1)) / REF(C,1) * 100;
STICKLINE(A11 > 8.5 AND CROSS(MA(C,1),EMA(H,10) * (1 + 5 / 100)) AND CROSS(MA(C,1),A10),MA((C - MA(C,28)) / MA(C,28),3) * 100 * 2,MA((C - MA(C,28)) / MA(C,28),3) * 100,1,0),COLORFF0099;
STICKLINE(A11 > 8.5 AND CROSS(MA(C,1),EMA(H,10) * (1 + 5 / 100)) AND CROSS(MA(C,1),A10),MA((C - MA(C,28)) / MA(C,28),3) * 100 * 1.5,MA((C - MA(C,28)) / MA(C,28),3) * 100,1,0),COLORRED;
DRAWTEXT(A11 > 8.5 AND CROSS(MA(C,1),EMA(H,10) * (1 + 5 / 100)) AND CROSS(MA(C,1),A10) > 0,MA((C - MA(C,28)) / MA(C,28),3) * 100 * 2,'追板'),COLORYELLOW;
DRAWTEXT(V > 0 AND CROSS(0.5,持股线),5,'卖'),COLORGREEN;
追板选股:(A11 > 8.5 AND CROSS(MA(C,1),EMA(H,10) * (1 + 5 / 100)) AND CROSS(MA(C,1),A10)) * 10,NODRAW;
{DRAWGBKLAST(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0,STRIP(RGB(0,0,0),RGB(100,100,100),1));};


{箱体捉妖专F2如下}

{================背景 ================};
DRAWGBK(ISLASTBAR, RGB(60,60,60),RGB(0,0,0),0,'0',0);

A2:=BARSLAST(((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > MA(H,30) * (1 + 13 / 100)) <> REF((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > MA(H,30) * (1 + 13 / 100),1));
A3:=SUM(IF(C >= REF(C,1),(C - REF(C,1)) / REF(C,1) * 100,0),A2 + 1);
A4:=(H + L + O + C) / 4;
A5:=EMA(A4,13) - EMA(A4,34);
A6:=EMA(A5,5);
A7:=(A5 - A6) * 5;
A8:=IF(A7 >= 1000,1000,IF(A7 <= A4,A4,A7));
A9:=FORCAST(FORCAST(A8,32),10);
A10:=(C - EMA(C,13)) / EMA(C,13) * (0 - 100);
A11:=EMA(A10 / 10 + EMA(C,13),8);
A12:=EMA(C,3);
A13:=EMA(SLOPE(C,22) * 20 + C,45);
A14:=IF(PERIOD > 8 AND PERIOD < 11,MA(A13,1),IF(PERIOD = 8,MA(A13,4),IF(PERIOD = 7,MA(A13,8),IF(PERIOD = 6,MA(A13,16),IF(PERIOD = 5,MA(A13,32),0)))));
A15:=A14 * 0.865;
A16:=IF(A12 > A14,A12,A15);
A17:=REVERSE(A16) + 2 * A9;
总涨幅:IF((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > MA(H,30) * (1 + 13 / 100) AND REF(A17,1) < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 AND DYNAINFO(17) > 0,A3,0) ,LINETHICK2,COLORMAGENTA  ;
VAK1:=(总涨幅 > 0 AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10) * 总涨幅 ,COLORRED;
STICKLINE(VAK1,VAK1,0,2,0),COLORRED ;{红色}
VAK2:=(总涨幅 > 0 AND 总涨幅 > REF(总涨幅,1) AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10) * 总涨幅 / 2 ,COLORFF0000;
STICKLINE(VAK2,VAK2,0,3,0),COLORYELLOW ;{黄色}
VAK3:=(总涨幅 > 0 AND 总涨幅 = REF(总涨幅,1) AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10) * 总涨幅 / 3 ,COLORGREEN;
STICKLINE(VAK3,VAK3,0,3,0),COLORGREEN ;{绿色}
VAK4:=CROSS((EMA(C,5) * 7 + EMA(C,10) * 3) / 10,MA(H,30) * (1 + 13 / 100)) * 总涨幅 / 1.5 ,COLORYELLOW;
STICKLINE(VAK4,VAK4,0,3,0),COLORBLUE ;{蓝色}
起稳:IF((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > A17 AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 AND DYNAINFO(7) > 0 AND (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 < MA(H,30) * (1 + 13 / 100),A3,0) / 150 ,NODRAW,COLORWHITE;
VAK5:=(起稳 > 0) * REVERSE(起稳) ,COLORGRAY;
STICKLINE(VAK5,VAK5,0,3,0),COLORRED ;{红色吸筹}
VAK6:=(起稳 > 0 AND EMA(C,2) > MA(H,30) * (1 + 13 / 100) * 1.0382) * REVERSE(起稳) / 1.5 ,COLORFF0099;
STICKLINE(VAK6,VAK6,0,3,0),COLORWHITE ;{白色}
VAK7:=(起稳 > 0 AND EMA(C,2) > MA(H,30) * (1 + 13 / 100) * 1.0382) * 起稳 / 1.5 ,COLORFF0099;
STICKLINE(VAK7,VAK7,0,6,0),COLOR990033;
STICKLINE(VAK7,VAK7,0,2,0),COLORCC0055;
STICKLINE(VAK7,VAK7,0,1,0),COLOREE0077;
STICKLINE(VAK7,VAK7,0,0.2,0),COLORFF0099;
DRAWTEXT(起稳 > 0 AND CROSS(EMA(C,2),MA(H,30) * (1 + 13 / 100) * 1.0382) ,起稳 * 0.69,'准备→'),COLORWHITE;
DRAWTEXT(FILTER(CROSS((EMA(C,5) * 7 + EMA(C,10) * 3) / 10,MA(H,30) * (1 + 13 / 100)),5) ,总涨幅 * 1.09,'捉妖'),COLORYELLOW;
{DRAWFLAGTEXT((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > A17 AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 AND (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 < MA(H,30) * (1 + 13 / 100),起稳,' ←涨幅'+NUMTOSTRN(起稳,2)+'【此股处在起稳状态将震荡上行】'),COLORYELLOW;
DRAWFLAGTEXT((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 > MA(H,30) * (1 + 13 / 100) AND A17 < (EMA(C,5) * 7 + EMA(C,10) * 3) / 10,总涨幅,' ←涨幅'+NUMTOSTRN(总涨幅,2)+'【此股已成妖股逢低积极做多请参考分钟周期多空线指标买卖】'),COLORWHITE;
DRAWFLAGTEXT((EMA(C,5) * 7 + EMA(C,10) * 3) / 10 < A17 AND (EMA(C,5) * 7 + EMA(C,10) * 3) / 10 < MA(H,30) * (1 + 13 / 100),起稳,' ←'+'【此股处在下跌趋势持币观望】'),COLORGREEN;
DRAWGBKLAST(C > 0,STRIP(RGB(0,0,0),RGB(100,100,100),1));};
VAK8:=(总涨幅 > 0 AND CROSS(A17,(EMA(C,5) * 7 + EMA(C,10) * 3) / 10)) * 总涨幅 ,COLORGREEN;
STICKLINE(VAK8,VAK8,0,3,0),COLORCYAN ;{青色};



{裸K升级版如下}

{========================额外==========================}
Z1:=STRCAT(DYBLOCK,' ');
Z2:=STRCAT(Z1,HYBLOCK);
Z3:=STRCAT(Z2,' ');
Z4:=STRCAT(Z3,GNBLOCK);
Z5:=STRCAT(Z4,' ');
Z6:=STRCAT(Z5,FGBLOCK);
DRAWTEXT_FIX(1,0.00,0.012,0,' 主题概念：'),COLORYELLOW;
DRAWTEXT_FIX(ISLASTBAR,0.0433,0.012,0,STRCAT(Z6,ZHBLOCK)),COLOR38B0DE;
KK1:=REF(LLV(C,3),1)/REF(LLV(C,6),8);
KK2:=REF(LLV(C,3),1)/REF(LLV(C,6),16);
KK3:=REF(LLV(C,3),1)/REF(LLV(C,15),23);
W13:=IF(KK1>1.05,1,0),KK1,COLORYELLOW,NODRAW;
W21:=IF(KK2>1.05,1,0),KK2,COLORYELLOW,NODRAW;
W55:=IF(KK3>1.05,1,0),KK3,COLORYELLOW,NODRAW;
KK4:=H/REF(LLV(L,3),6);
KK5:=REF(HHV(KK4,64),1);
波段值:=KK4,COLOR6666FF,NODRAW;
主力段位值:=KK5,COLORGREEN,NODRAW;
MA8:=MA(C,8),COLORYELLOW,NODRAW;
MA20:=MA(C,20),COLORMAGENTA,LINETHICK2,NODRAW;
MA120:=MA(C,120),COLORCYAN,LINETHICK2,NODRAW;
MA250:=MA(C,250),COLORGREEN,LINETHICK2,NODRAW;
乖离线:=((C-REF(MA20,1))/20+MA20)*1.20;
TT1:=CROSS(MA20,MA120)  AND CROSS(MA20,MA250) AND V>REF(V,1);
TT2:=MA20>REF(MA20,2) AND V>REF(V,1) AND CROSS(C,MA20);
STICKLINE(TT1,L,L-0.09,4,0),COLORYELLOW;
DRAWTEXT(TT1,L-0.13,'金叉'),COLORYELLOW;
STICKLINE(CROSS(C,MA120) AND CROSS(C,MA250) AND CROSS(C,MA20),L,L-0.09,4,0),COLORYELLOW;
STICKLINE(TT2,L,L-0.09,4,0),COLORYELLOW;
DRAWTEXT(TT2,L-0.13,'B1'),COLORYELLOW;
STICKLINE(CROSS(C,乖离线),H,H+0.09,4,0),COLOR00FF00;
DRAWTEXT(CROSS(C,乖离线) ,H+0.13,'S'),COLOR00FF00;
STICKLINE(MA250>=REF(MA250,1) AND MA20>=REF(MA20,1) AND CROSS(C,MA250),L,L-0.09,4,0),COLORFFCC66;
STICKLINE(MA120>=REF(MA120,1) AND CROSS(C,MA20) AND CROSS(C,MA120) AND V>REF(V,1),L,L-0.09,4,0),COLORFF00FF;
DRAWTEXT(MA120>=REF(MA120,1) AND CROSS(C,MA20) AND CROSS(C,MA120) AND V>REF(V,1),L-0.13,'B2'),COLORFF00FF;
HS:=100*VOL/(FINANCE(7)/100) NODRAW;
MHS:=REF(HHV(HS,52),3),COLORWHITE,NODRAW;
N:=3;
A1:=REF(H,N)=HHV(H,2*N+1);
B1:=FILTER(A1,N);
C1:=BACKSET(B1,N+1);
D1:=FILTER(C1,N);{高点}
A2:=REF(L,N)=LLV(L,2*N+1);
B2:=FILTER(A2,N);
C2:=BACKSET(B2,N+1);
D2:=FILTER(C2,N);{低点}
E1:=(REF(LLV(L,2*N),1)+REF(HHV(H,2*N),1))/2;
E2:=(H+L)/2;{高低点出现在同一K线上时可作取舍}
H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
L1:=(D2 AND NOT(D1 AND E1<E2));
H2:=D1 AND NOT(D2 AND E1>=E2);X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 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),LINETHICK0;{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(C)=1;
X2:=REF(BARSLAST(L2),1)+1;
WF2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,H,0),X2));
G2:=WF2>REF(WF2,1);
WI2:=BACKSET(G2,2);
HD:=WI2>REF(WI2,1),LINETHICK0;{过滤后高点}
R1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);
S1:=R1>REF(R1,1); {前一高}
T1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);
U1:=T1>REF(T1,1); {前一低}
R2:=BACKSET(S1,REF(BARSLAST(HD),1)+2);
S2:=R2>REF(R2,1); {前二高}
T2:=BACKSET(U1,REF(BARSLAST(LD),1)+2);
U2:=T2>REF(T2,1); {前二低}
T3:=BACKSET(U2,REF(BARSLAST(LD),1)+2);
U3:=T3>REF(T3,1); {前三低}
T4:=BACKSET(U3,REF(BARSLAST(LD),1)+2);
U4:=T4>REF(T4,1); {前四低}
R3:=BACKSET(S2,REF(BARSLAST(HD),1)+2);
S3:=R3>REF(R3,1); {前三高}
R4:=BACKSET(S3,REF(BARSLAST(HD),1)+2);
S4:=R4>REF(R4,1); {前四高}
★压力1:DRAWLINE(S2,H,S1,H,1),COLORMAGENTA,DOTLINE;
★支撑1:DRAWLINE(U2,L,U1,L,1),COLOR8FBC8F,DOTLINE;
★压力2:DRAWLINE(S3,H,S2,H,1),COLORYELLOW,DOTLINE;
★支撑2:DRAWLINE(U3,L,U2,L,1),COLOR99CC32,DOTLINE;
★压力3:DRAWLINE(S4,H,S3,H,1),COLOR0000FF,DOTLINE;
★支撑3:DRAWLINE(U4,L,U3,L,1),COLOR00FF7F,DOTLINE;
ZT:=BETWEEN(CLOSE/REF(CLOSE,1),1.048,1.0995);
STICKLINE(ZT,O,C,3,0),COLOR0077BB;
STICKLINE(ZT,O,C,2.6,0),COLOR0088CC;
STICKLINE(ZT,O,C,2.2,0),COLOR0099CC;
STICKLINE(ZT,O,C,1.8,0),COLOR00AADD;
STICKLINE(ZT,O,C,1.4,0),COLOR00BBDD;
STICKLINE(ZT,O,C,1,0),COLOR00CCEE;
STICKLINE(ZT,O,C,0.6,0),COLOR00DDEE;
STICKLINE(ZT,O,C,0.2,0),COLOR00EEFF;
STICKLINE(ZT,O,C,0.1,0),COLOR00FFFF;
STICKLINE(ZT,H,L,0,0),COLOR00FFFF;
ZT1:=BETWEEN(CLOSE/REF(CLOSE,1),1.0996,1.12);
STICKLINE(ZT1,O,C,3,0),COLOR6666FF;
STICKLINE(ZT1,H,L,0,0),COLOR6666FF;
ZT2:=BETWEEN(CLOSE/REF(CLOSE,1),1.12,1.21);
STICKLINE(ZT2,O,C,3,0),COLORRED;
STICKLINE(ZT2,H,L,0,0),COLORRED;
DRAWICON(S2,H*1.01,10);
DRAWICON(S3,H*1.01,10);
DRAWNUMBER(S2,H*1.02,H),COLORMAGENTA;
DRAWNUMBER(S1,H*1.02,H),COLORRED;
DRAWNUMBER(S3,H*1.02,H),COLORWHITE;
DRAWICON(U1,L*0.997,11);
DRAWICON(U2,L*0.997,11);
DRAWICON(U3,L*0.997,11);
DRAWICON(U4,L*0.997,11);
DRAWNUMBER(U1,L*0.98,L),COLORGREEN;
DRAWNUMBER(U2,L*0.98,L),COLORGREEN;
DRAWNUMBER(U3,L*0.98,L),COLORGREEN;
DRAWNUMBER(U4,L*0.98,L),COLORGREEN;
A10304:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B10304:=FILTER(A10304,3);
C10304:=BACKSET(B10304,3+1);
D10304:=FILTER(C10304,3);{高点}
A20304:=REF(LOW,3)=LLV(LOW,2*3+1);
B20304:=FILTER(A20304,3);
C20304:=BACKSET(B20304,3+1);
D20304:=FILTER(C20304,3);{低点}
E10304:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E20304:=(HIGH+LOW)/2;{高低点出现在同一K线上时可作取舍}
H10304:=(D10304 AND NOT(D20304 AND E10304>=E20304)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
H20304:=D10304 AND NOT(D20304 AND E10304>=E20304);
L10304:=D20304 AND NOT(D10304 AND E10304=E20304);
X10304:=REF(BARSLAST(H10304),1)+1;
F10304:=BACKSET(H10304 AND COUNT(L10304,X10304)>0,LLVBARS(IF(L10304,LOW,10000),X10304));
G10304:=F10304>REF(F10304,1);
I10304:=BACKSET(G10304,2);
LD0304:=I10304>REF(I10304,1);{过滤后低点}
L20304:=LD0304 OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X20304:=REF(BARSLAST(L20304),1)+1;
F2:=BACKSET(L20304 AND COUNT(H20304,X20304)>0,HHVBARS(IF(H20304,HIGH,0),X20304));
G20304:=F2>REF(F2,1);
I2:=BACKSET(G20304,2);
HD0304:=I2>REF(I2,1);{过滤后高点}
J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD0304),BARSLAST(LD0304))+1);
J2:=J1>REF(J1,1);
A3:=H;
B3:=REF(H,REF(BARSLAST(HD0304),1)+1)>REF(H,REF(BARSLAST(HD0304),1)+2+REF(BARSLAST(HD0304),REF(BARSLAST(HD0304),1)+2));
D3:=A3 AND B3 AND HD0304;
E3:=BACKSET(D3,REF(BARSLAST(HD0304),1)+2);
HH:=E3>REF(E3,1);{找出全部长期高点}
A4:=L>REF(L,REF(BARSLAST(LD0304),1)+1);
B4:=REF(L,REF(BARSLAST(LD0304),1)+1);
D4:=A4 AND B4 AND LD0304; E4:=BACKSET(D4,REF(BARSLAST(LD0304),1)+2);
LL:=E4>REF(E4,1);{找出全部长期低点}
H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1; {后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}
X3:=REF(BARSLAST(H3),1)+1; F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));
G3:=F3>REF(F3,1); I3:=BACKSET(G3,2); LZ:=I3>REF(I3,1); {长期低点，也可供引用}
L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;
X4:=REF(BARSLAST(L4),1)+1; F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));
G4:=F4>REF(F4,1); I4:=BACKSET(G4,2); HZ:=I4>REF(I4,1);{长期高点，也可供引用}
K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1); K2:=K1>REF(K1,1);
UU:=BACKSET(ISLASTBAR,BARSLAST(LD0304)+1);VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD0304),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(ISLASTBAR,BARSLAST(HD0304)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD0304),1)+2);
XX20304:=WW2>REF(WW2,1);
{以下语句为三角形部分}
底:=REF(L,BARSLAST(VV)),COLORRED,LINETHICK2;
顶:=REF(H,BARSLAST(VV2)),COLORGREEN,LINETHICK2;
{以下语句为三角形部分}
顶线:REF(H,BARSLAST(VV2)),COLORMAGENTA,LINETHICK5;
底线:REF(L,BARSLAST(VV)),COLORRED,LINETHICK1;
STICKLINE(VV,顶,底,0,0),COLORYELLOW,LINETHICK3;
DRAWLINE(VV2,H,VV,L,0),COLORYELLOW,LINETHICK3;
DRAWLINE(VV2,H,VV,顶,0),COLORYELLOW,LINETHICK3;
STICKLINE(VV2 ,顶,底,0,0),COLORGREEN,LINETHICK3;
DRAWLINE(VV,L,VV2,H,0),COLORGREEN,LINETHICK3;
DRAWLINE(VV,L,VV2,底,0),COLORGREEN,LINETHICK3;

原理解析：
{箱体捉妖专F1源码如下}{================背景 ================}
填充背景(ISLASTBAR, RGB(60,60,60),RGB(0,0,0),0,'0',0)
A1赋值:EMA((C - 1日前的C) / 3日前的C,10) * 100
A2赋值:A1的2日指数移动平均,2),2),3)
A3赋值:(C - C的26日简单移动平均) / C的26日简单移动平均 * 100
0,LINETHICK2
A4赋值:1
输出黄金坑:IF(MA((C - MA(C,28)) / MA(C,28),3) * 100 < -15,MA((C - MA(C,28)) / MA(C,28),3) * 100,0) * A4,LINETHICK2,COLOR00F600
输出A5:IF(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0 AND MA(C,5) > MA(C,10) AND A3 > EMA(MA((C - MA(C,28)) / MA(C,28),3) * 100,5) AND A2 > 1日前的A2,MA((C - MA(C,28)) / MA(C,28),3) * 100,0) * A4
输出持股线:(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0 AND MA(C,5) > MA(C,10) AND A3 > EMA(MA((C - MA(C,28)) / MA(C,28),3) * 100,5) AND DYNAINFO(17) > 0) * A5 * A4,LINETHICK1,画红色
VARD1赋值:MA((C - MA(C,28)) / MA(C,28),3) * 100
STICKLINE(VARD1 < -20 AND VARD1> 1日前的VARD1 * A4,VARD1,-6,4,0),COLORC8C8FA
当满足条件VARD1 < -20时,在VARD1和-6之间画柱状线
当满足条件VARD1 < -20时,在0和-6之间画柱状线
STICKLINE(VARD1< -20 AND VARD1> 1日前的VARD1 * A4,0,-6,4,0),COLOR6464FA
A6赋值:(C的3日简单移动平均 + C的6日简单移动平均 + C的12日简单移动平均 + C的24日简单移动平均) / 4
A7赋值:A6 + 3 * A6的10估算标准差
A8赋值:C的26日简单移动平均 + 2 * C的26估算标准差
输出买点:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND A2 > 1日前的A2) * A5,COLORFF0000,NODRAW
当满足条件买点时,在买点和0之间画柱状线
{蓝色}DRAWTEXT(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND A2 > 1日前的A2,-6,'买'),COLORYELLOW
VAK1赋值:(V > 0 AND A5 > 0 AND A2 > 1日前的A2) * A5的5日指数移动平均,COLOR005999
当满足条件VAK1时,在VAK1和0之间画柱状线
{红色}VAK2赋值:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(C的2日指数移动平均,26日内C的5日指数移动平均最高值)) * A5的2日指数移动平均,COLOR000999
当满足条件VAK2时,在VAK2和0之间画柱状线
{白色}VAK3赋值:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(C的2日指数移动平均,26日内C的5日指数移动平均最高值)) * -3,COLOR009999
当满足条件VAK3时,在VAK3和0之间画柱状线
当满足条件VAK3时,在VAK3和0之间画柱状线
当满足条件VAK3时,在VAK3和0之间画柱状线
当满足条件VAK3时,在VAK3和0之间画柱状线
输出卖点:(V > 0 AND 0.5上穿持股线) * MA((C - MA(C,28的相反数) / MA(C,28),3) * 100) * A4,COLORGREEN
当满足条件卖点时,在卖点和0之间画柱状线
{绿色}
输出短线起爆:(V > 0 AND BARSLASTCOUNT(A5>0)=1 AND CROSS(C的2日指数移动平均,26日内C的5日指数移动平均最高值)) * 10 * A4,NODRAW
VAK4赋值:(V > 0 AND EMA((C - MA(C,28)) / MA(C,28),2) > MA((C - MA(C,28)) / MA(C,28),4) AND MA((C - MA(C,28)) / MA(C,28),4) > REF(MA((C - MA(C,28)) / MA(C,28),4),1) AND SMA(MAX(C - REF(C,1),0),14,1) / SMA(C - REF(C,1的绝对值),14,1) * 100 > 64.5 AND EMA(C,1) > (A7 OR A8)) * EMA(A5,5) / 2.5 * A4,画红色
当满足条件VAK4时,在VAK4和0之间画柱状线
{黄色}VAK5赋值:(V > 0 AND EMA((C - MA(C,28)) / MA(C,28),2) > MA((C - MA(C,28)) / MA(C,28),4) AND MA((C - MA(C,28)) / MA(C,28),4) > REF(MA((C - MA(C,28)) / MA(C,28),4),1) AND (V > 0 AND A5 > 0 AND A2 > REF(A2,1)) * EMA(A5,5) = 0) * A3 * A4,COLORADA899
当满足条件VAK5时,在VAK5和0之间画柱状线
{灰色}
DRAWBMP(短线起爆 < 0,-3,'BUY1')
IF(C的2日指数移动平均 > 26日内C的5日指数移动平均最高值 AND A5 > 0 * A4,持股线,DRAWNULL),LINETHICK3,COLORMAGENTA
A9赋值:EMA((EMA(C * V,3) / EMA(V,3) + EMA(C * V,6) / EMA(V,6) + EMA(C * V,12) / EMA(V,12) + EMA(C * V,24) / EMA(V,24)) / 4,13)
A10:=1.06 * A9 * A4
A11:=(C - 1日前的C) / 1日前的C * 100
STICKLINE(A11 > 8.5 AND CROSS(C的1日简单移动平均,H的10日指数移动平均 * (1 + 5 / 100)) AND CROSS(C的1日简单移动平均,A10),MA((C - MA(C,28)) / MA(C,28),3) * 100 * 2,MA((C - MA(C,28)) / MA(C,28),3) * 100,1,0),COLORFF0099
STICKLINE(A11 > 8.5 AND CROSS(C的1日简单移动平均,H的10日指数移动平均 * (1 + 5 / 100)) AND CROSS(C的1日简单移动平均,A10),MA((C - MA(C,28)) / MA(C,28),3) * 100 * 1.5,MA((C - MA(C,28)) / MA(C,28),3) * 100,1,0),画红色
DRAWTEXT(A11 > 8.5 AND CROSS(C的1日简单移动平均,H的10日指数移动平均 * (1 + 5 / 100)) AND CROSS(C的1日简单移动平均,A10) > 0,MA((C - MA(C,28)) / MA(C,28),3) * 100 * 2,'追板'),COLORYELLOW
DRAWTEXT(V > 0 AND 0.5上穿持股线,5,'卖'),COLORGREEN
输出追板选股:(A11 > 8.5 AND CROSS(C的1日简单移动平均,H的10日指数移动平均 * (1 + 5 / 100)) AND CROSS(C的1日简单移动平均,A10)) * 10,NODRAW
{ 填充背景LAST(MA((C - MA(C,28)) / MA(C,28),3) * 100 > 0,STRIP(RGB(0,0,0),RGB(100,100,100),1))
}
{箱体捉妖专F2如下}{================背景 ================}
填充背景(ISLASTBAR, RGB(60,60,60),RGB(0,0,0),0,'0',0)
A2赋值:上次((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3距今天数 / 10 > H的30日简单移动平均 * (1 + 13 / 100)) <> REF((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 > H的30日简单移动平均 * (1 + 13 / 100),1))
A3赋值:SUM(IF(C >= 1日前的C,(C - 1日前的C) / 1日前的C * 100,0),A2 + 1)
A4赋值:(H + L + O + C) / 4
A5赋值:A4的13日指数移动平均 - A4的34日指数移动平均
A6赋值:A5的5日指数移动平均
A7赋值:(A5 - A6) * 5
A8赋值:IF(A7 >= 1000,1000,IF(A7 <= A4,A4,A7))
A9赋值:FORCAST(FORCAST(A8,32),10)
A10:=(C - C的13日指数移动平均) / C的13日指数移动平均 * (0 - 100)
A11:=A10 / 10 + C的13日指数移动平均,8)
A12:=C的3日指数移动平均
A13:=EMA(SLOPE(C,22) * 20 + C,45)
A14:=IF(PERIOD > 8 AND PERIOD < 11,A13的1日简单移动平均,IF(PERIOD = 8,A13的4日简单移动平均,IF(PERIOD = 7,A13的8日简单移动平均,IF(PERIOD = 6,A13的16日简单移动平均,IF(PERIOD = 5,A13的32日简单移动平均,0)))))
A15:=A14 * 0.865
如果A12 > A14返回A12否则返回A15
A17:=A16的相反数 + 2 * A9
输出总涨幅:IF((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 > H的30日简单移动平均 * (1 + 13 / 100) AND 1日前的A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 AND DYNAINFO(17) > 0,A3,0) ,LINETHICK2,COLORMAGENTA
VAK1赋值:(总涨幅 > 0 AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10) * 总涨幅 ,画红色
当满足条件VAK1时,在VAK1和0之间画柱状线
{红色}VAK2赋值:(总涨幅 > 0 AND 总涨幅 > 1日前的总涨幅 AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10) * 总涨幅 / 2 ,COLORFF0000
当满足条件VAK2时,在VAK2和0之间画柱状线
{黄色}VAK3赋值:(总涨幅 > 0 AND 总涨幅 = 1日前的总涨幅 AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10) * 总涨幅 / 3 ,COLORGREEN
当满足条件VAK3时,在VAK3和0之间画柱状线
{绿色}VAK4赋值:CROSS((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10,H的30日简单移动平均 * (1 + 13 / 100)) * 总涨幅 / 1.5 ,COLORYELLOW
当满足条件VAK4时,在VAK4和0之间画柱状线
输出{蓝色}起稳:IF((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 > A17 AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 AND DYNAINFO(7) > 0 AND (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 < H的30日简单移动平均 * (1 + 13 / 100),A3,0) / 150 ,NODRAW,画白色
VAK5赋值:(起稳 > 0) * 起稳的相反数 ,COLORGRAY
当满足条件VAK5时,在VAK5和0之间画柱状线
{红色吸筹}VAK6赋值:(起稳 > 0 AND C的2日指数移动平均 > H的30日简单移动平均 * (1 + 13 / 100) * 1.0382) * 起稳的相反数 / 1.5 ,COLORFF0099
当满足条件VAK6时,在VAK6和0之间画柱状线
{白色}VAK7赋值:(起稳 > 0 AND C的2日指数移动平均 > H的30日简单移动平均 * (1 + 13 / 100) * 1.0382) * 起稳 / 1.5 ,COLORFF0099
当满足条件VAK7时,在VAK7和0之间画柱状线
当满足条件VAK7时,在VAK7和0之间画柱状线
当满足条件VAK7时,在VAK7和0之间画柱状线
当满足条件VAK7时,在VAK7和0之间画柱状线
DRAWTEXT(起稳 > 0 AND CROSS(C的2日指数移动平均,H的30日简单移动平均 * (1 + 13 / 100) * 1.0382) ,起稳 * 0.69,'准备→'),画白色
DRAWTEXT(FILTER(CROSS((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10,H的30日简单移动平均 * (1 + 13 / 100)),5) ,总涨幅 * 1.09,'捉妖'),COLORYELLOW
{DRAWFLAGTEXT((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 > A17 AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 AND (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 < H的30日简单移动平均 * (1 + 13 / 100),起稳,' ←涨幅'+NUMTOSTRN(起稳,2)+'【此股处在起稳状态将震荡上行】'),COLORYELLOW
DRAWFLAGTEXT((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 > H的30日简单移动平均 * (1 + 13 / 100) AND A17 < (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10,总涨幅,' ←涨幅'+NUMTOSTRN(总涨幅,2)+'【此股已成妖股逢低积极做多请参考分钟周期多空线指标买卖】'),画白色
DRAWFLAGTEXT((C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 < A17 AND (C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10 < H的30日简单移动平均 * (1 + 13 / 100),起稳,' ←'+'【此股处在下跌趋势持币观望】'),COLORGREEN
填充背景LAST(C > 0,STRIP(RGB(0,0,0),RGB(100,100,100),1))
}
VAK8赋值:(总涨幅 > 0 AND CROSS(A17,(C的5日指数移动平均 * 7 + C的10日指数移动平均 * 3) / 10)) * 总涨幅 ,COLORGREEN
当满足条件VAK8时,在VAK8和0之间画柱状线
{青色}
{裸K升级版如下}{========================额外==========================}Z1赋值:STRCAT(DYBLOCK,' ')
Z2赋值:STRCAT(Z1,HYBLOCK)
Z3赋值:STRCAT(Z2,' ')
Z4赋值:STRCAT(Z3,GNBLOCK)
Z5赋值:STRCAT(Z4,' ')
Z6赋值:STRCAT(Z5,FGBLOCK)
当满足条件1时,在横轴0.00纵轴0.012位置书写文字
DRAWTEXT_FIX(ISLASTBAR,0.0433,0.012,0,STRCAT(Z6,ZHBLOCK)),COLOR38B0DE
KK1赋值:REF(3日内C最低值,1)/REF(6日内C最低值,8)
KK2赋值:REF(3日内C最低值,1)/REF(6日内C最低值,16)
KK3赋值:REF(3日内C最低值,1)/REF(15日内C最低值,23)
如果KK1>1.05返回1否则返回0
如果KK2>1.05返回1否则返回0
如果KK3>1.05返回1否则返回0
KK4赋值:H/REF(3日内L最低值,6)
KK5赋值:REF(64日内KK4最高值,1)
波段值赋值:KK4,COLOR6666FF,NODRAW
主力段位值赋值:KK5,COLORGREEN,NODRAW
MA8赋值:C的8日简单移动平均,COLORYELLOW,NODRAW
MA20:=C的20日简单移动平均,COLORMAGENTA,LINETHICK2,NODRAW
MA120:=C的120日简单移动平均,COLORCYAN,LINETHICK2,NODRAW
MA250:=C的250日简单移动平均,COLORGREEN,LINETHICK2,NODRAW
乖离线赋值:((C-1日前的MA20)/20+MA20)*1.20
TT1赋值:MA20上穿MA120 AND MA20上穿MA250 AND V>1日前的V
TT2赋值:MA20>2日前的MA20 AND V>1日前的V AND C上穿MA20
当满足条件TT1时,在L和L-0.09之间画柱状线
当满足条件TT1时,在L-0.13和'金叉'位置书写文字
STICKLINE(C上穿MA120 AND C上穿MA250 AND C上穿MA20,L,L-0.09,4,0),COLORYELLOW
当满足条件TT2时,在L和L-0.09之间画柱状线
当满足条件TT2时,在L-0.13和'B1'位置书写文字
STICKLINE(C上穿乖离线,H,H+0.09,4,0),COLOR00FF00
DRAWTEXT(C上穿乖离线 ,H+0.13,'S'),COLOR00FF00
STICKLINE(MA250>=1日前的MA250 AND MA20>=1日前的MA20 AND C上穿MA250,L,L-0.09,4,0),COLORFFCC66
STICKLINE(MA120>=1日前的MA120 AND C上穿MA20 AND C上穿MA120 AND V>1日前的V,L,L-0.09,4,0),COLORFF00FF
DRAWTEXT(MA120>=1日前的MA120 AND C上穿MA20 AND C上穿MA120 AND V>1日前的V,L-0.13,'B2'),COLORFF00FF
HS赋值:100*成交量/(FINANCE(7)/100) NODRAW
MHS赋值:REF(52日内HS最高值,3),画白色,NODRAW
N赋值:3
A1赋值:N日前的H=2*N+1日内H最高值
B1赋值:A1的N过滤
C1赋值:BACKSET(B1,N+1)
D1赋值:C1的N过滤
{高点}A2赋值:N日前的L=2*N+1日内L最低值
B2赋值:A2的N过滤
C2赋值:BACKSET(B2,N+1)
D2赋值:C2的N过滤
{低点}E1赋值:(REF(2*N日内L最低值,1)+REF(2*N日内H最高值,1))/2
E2赋值:(H+L)/2
{高低点出现在同一K线上时可作取舍}H1赋值:(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR C的有效数据周期数=1
L1赋值:(D2 AND NOT(D1 AND E1H2赋值:D1 AND NOT(D2 AND E1>=E2)
X1赋值:REF(上次H1距今天数,1)+1
如果L1返回L否则返回10000
G1赋值:F1>1日前的F1
I1赋值:BACKSET(G1,2)
LD赋值:I1>1日前的I1,LINETHICK0
{过滤后低点}L2赋值:LD OR ISLASTBAR OR C的有效数据周期数=1
X2赋值:REF(上次L2距今天数,1)+1
如果H2返回H否则返回0
G2赋值:WF2>1日前的WF2
WI2赋值:BACKSET(G2,2)
HD赋值:WI2>1日前的WI2,LINETHICK0
{过滤后高点}R1赋值:BACKSET(ISLASTBAR,上次HD距今天数+1)
S1赋值:R1>1日前的R1
{前一高}T1赋值:BACKSET(ISLASTBAR,上次LD距今天数+1)
U1赋值:T1>1日前的T1
{前一低}R2赋值:BACKSET(S1,REF(上次HD距今天数,1)+2)
S2赋值:R2>1日前的R2
{前二高}T2赋值:BACKSET(U1,REF(上次LD距今天数,1)+2)
U2赋值:T2>1日前的T2
{前二低}T3赋值:BACKSET(U2,REF(上次LD距今天数,1)+2)
U3赋值:T3>1日前的T3
{前三低}T4赋值:BACKSET(U3,REF(上次LD距今天数,1)+2)
U4赋值:T4>1日前的T4
{前四低}R3赋值:BACKSET(S2,REF(上次HD距今天数,1)+2)
S3赋值:R3>1日前的R3
{前三高}R4赋值:BACKSET(S3,REF(上次HD距今天数,1)+2)
S4赋值:R4>1日前的R4
输出{前四高}★压力1:DRAWLINE(S2,H,S1,H,1),COLORMAGENTA,DOTLINE
输出★支撑1:DRAWLINE(U2,L,U1,L,1),COLOR8FBC8F,DOTLINE
输出★压力2:DRAWLINE(S3,H,S2,H,1),COLORYELLOW,DOTLINE
输出★支撑2:DRAWLINE(U3,L,U2,L,1),COLOR99CC32,DOTLINE
输出★压力3:DRAWLINE(S4,H,S3,H,1),COLOR0000FF,DOTLINE
输出★支撑3:DRAWLINE(U4,L,U3,L,1),COLOR00FF7F,DOTLINE
ZT赋值:BETWEEN(收盘价/1日前的收盘价,1.048,1.0995)
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在O和C之间画柱状线
当满足条件ZT时,在H和L之间画柱状线
ZT1:=BETWEEN(收盘价/1日前的收盘价,1.0996,1.12)
当满足条件ZT1时,在O和C之间画柱状线
当满足条件ZT1时,在H和L之间画柱状线
ZT2:=BETWEEN(收盘价/1日前的收盘价,1.12,1.21)
当满足条件ZT2时,在O和C之间画柱状线
当满足条件ZT2时,在H和L之间画柱状线
当满足条件S2时,在H*1.01和10之间画图标
当满足条件S3时,在H*1.01和10之间画图标
DRAWNUMBER(S2,H*1.02,H),COLORMAGENTA
DRAWNUMBER(S1,H*1.02,H),画红色
DRAWNUMBER(S3,H*1.02,H),画白色
当满足条件U1时,在L*0.997和11之间画图标
当满足条件U2时,在L*0.997和11之间画图标
当满足条件U3时,在L*0.997和11之间画图标
当满足条件U4时,在L*0.997和11之间画图标
DRAWNUMBER(U1,L*0.98,L),COLORGREEN
DRAWNUMBER(U2,L*0.98,L),COLORGREEN
DRAWNUMBER(U3,L*0.98,L),COLORGREEN
DRAWNUMBER(U4,L*0.98,L),COLORGREEN
A10304:=3日前的最高价=2*3+1日内最高价最高值
B10304:=A10304的3过滤
C10304:=BACKSET(B10304,3+1)
D10304:=C10304的3过滤
{高点}A20304:=3日前的最低价=2*3+1日内最低价最低值
B20304:=A20304的3过滤
C20304:=BACKSET(B20304,3+1)
D20304:=C20304的3过滤
{低点}E10304:=(REF(2*3日内最低价最低值,1)+REF(2*3日内最高价最高值,1))/2
E20304:=(最高价+最低价)/2
{高低点出现在同一K线上时可作取舍}H10304:=(D10304 AND NOT(D20304 AND E10304>=E20304)) OR ISLASTBAR OR 收盘价的有效数据周期数=1
H20304:=D10304 AND NOT(D20304 AND E10304>=E20304)
L10304:=D20304 AND NOT(D10304 AND E10304=E20304)
X10304:=REF(上次H10304距今天数,1)+1
如果L10304返回最低价否则返回10000
G10304:=F10304>1日前的F10304
I10304:=BACKSET(G10304,2)
LD0304:=I10304>1日前的I10304
{过滤后低点}L20304:=LD0304 OR ISLASTBAR OR 收盘价的有效数据周期数=1
X20304:=REF(上次L20304距今天数,1)+1
如果H20304返回最高价否则返回0
G20304:=F2>1日前的F2
I2赋值:BACKSET(G20304,2)
HD0304:=I2>1日前的I2
{过滤后高点}J1赋值:BACKSET(ISLASTBAR,MIN(上次HD0304距今天数,BARSLAST(LD0304))+1)
J2赋值:J1>1日前的J1
A3赋值:H
B3赋值:REF(H,REF(上次HD0304距今天数,1)+1)>REF(H,REF(上次HD0304距今天数,1)+2+REF(上次HD0304距今天数,REF(上次HD0304距今天数,1)+2))
D3赋值:A3 AND B3 AND HD0304
E3赋值:BACKSET(D3,REF(上次HD0304距今天数,1)+2)
HH赋值:E3>1日前的E3
{找出全部长期高点}A4赋值:L>REF(L,REF(上次LD0304距今天数,1)+1)
B4赋值:REF(L,REF(上次LD0304距今天数,1)+1)
D4赋值:A4 AND B4 AND LD0304
E4赋值:BACKSET(D4,REF(上次LD0304距今天数,1)+2)
LL赋值:E4>1日前的E4
{找出全部长期低点}H3赋值:HH OR ISLASTBAR OR C的有效数据周期数=1
{后面进行过滤，方法同前。只是不用考虑高低点出现在同一K线}X3赋值:REF(上次H3距今天数,1)+1
F3赋值:BACKSET(H3 AND 统计X3日满足LL的天数>0,LLVBARS(IF(LL,L,POW(10,20)),X3))
G3赋值:F3>1日前的F3
I3赋值:BACKSET(G3,2)
LZ赋值:I3>1日前的I3
{长期低点，也可供引用}L4赋值:LZ OR ISLASTBAR OR C的有效数据周期数=1
X4赋值:REF(上次L4距今天数,1)+1
F4赋值:BACKSET(L4 AND 统计X4日满足HH的天数>0,HHVBARS(IF(HH,H,-POW(10,20)),X4))
G4赋值:F4>1日前的F4
I4赋值:BACKSET(G4,2)
HZ赋值:I4>1日前的I4
{长期高点，也可供引用}K1赋值:BACKSET(ISLASTBAR,MIN(上次HZ距今天数,BARSLAST(LZ))+1)
K2赋值:K1>1日前的K1
UU赋值:BACKSET(ISLASTBAR,上次LD0304距今天数+1)
VV赋值:UU>1日前的UU
WW赋值:BACKSET(VV,REF(上次LD0304距今天数,1)+2)
XX赋值:WW>1日前的WW
UU2赋值:BACKSET(ISLASTBAR,上次HD0304距今天数+1)
VV2:=UU2>1日前的UU2
WW2:=BACKSET(VV2,REF(上次HD0304距今天数,1)+2)
XX20304:=WW2>1日前的WW2
{以下语句为三角形部分}底赋值:REF(L,上次VV距今天数),画红色,LINETHICK2
顶赋值:REF(H,上次VV2距今天数),COLORGREEN,LINETHICK2
{以下语句为三角形部分}顶线:REF(H,上次VV2距今天数),COLORMAGENTA,LINETHICK5
输出底线:REF(L,上次VV距今天数),画红色,LINETHICK1
当满足条件VV时,在顶和底之间画柱状线
DRAWLINE(VV2,H,VV,L,0),COLORYELLOW,LINETHICK3
DRAWLINE(VV2,H,VV,顶,0),COLORYELLOW,LINETHICK3
当满足条件VV2 时,在顶和底之间画柱状线
DRAWLINE(VV,L,VV2,H,0),COLORGREEN,LINETHICK3
DRAWLINE(VV,L,VV2,底,0),COLORGREEN,LINETHICK3