{参数 N 0 200 3 }
WN:=1;
WA1:=REF(H,WN)=HHV(H,2*WN+1);
WB1:=FILTER(WA1,WN);
WC1:=BACKSET(WB1,WN+1);
WD1:=FILTER(WC1,WN);
WA2:=REF(L,WN)=LLV(L,2*WN+1);
WB2:=FILTER(WA2,WN);
WC2:=BACKSET(WB2,WN+1);
WD2:=FILTER(WC2,WN);
WE1:=(REF(LLV(L,2*WN),1)+REF(HHV(H,2*WN),1))/2;
WE2:=(H+L)/2;
WH1:=(WD1 AND NOT(WD2 AND WE1>=WE2)) OR ISLASTBAR OR BARSCOUNT(C)=1;
WL1:=(WD2 AND NOT(WD1 AND WE1<WE2));
WH2:=WD1 AND NOT(WD2 AND WE1>=WE2);
WX1:=REF(BARSLAST(WH1),1)+1;
WF1:=BACKSET(WH1 AND COUNT(WL1,WX1)>0,LLVBARS(IF(WL1,L,10000),WX1));
WG1:=WF1>REF(WF1,1);
WI1:=BACKSET(WG1,2);
WLD:=WI1>REF(WI1,1);
WL2:=WLD OR ISLASTBAR OR BARSCOUNT(C)=1;
WX2:=REF(BARSLAST(WL2),1)+1; WF2:=BACKSET(WL2 AND COUNT(WH2,WX2)>0,HHVBARS(IF(WH2,H,0),WX2));
WG2:=WF2>REF(WF2,1);
WI2:=BACKSET(WG2,2);
WHD:=WI2>REF(WI2,1);
WR1:=BACKSET(ISLASTBAR,BARSLAST(WHD)+1); WS1:=WR1>REF(WR1,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(WLD)+1); WU1:=WT1>REF(WT1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(WHD),1)+2); WS2:=WR2>REF(WR2,1);
WT2:=BACKSET(WU1,REF(BARSLAST(WLD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(WLD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(WLD),1)+2); WU4:=WT4>REF(WT4,1);
WR3:=BACKSET(WS2,REF(BARSLAST(WHD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(WHD),1)+2); WS4:=WR4>REF(WR4,1);
HS2:=DRAWLINE(WS3,H, WS2,H,1);
HS3:=DRAWLINE(WS2,H,WS1,H,1);
HL2:IF(WN=0,DRAWNULL,HS2),COLORGREEN;
HL3:IF(WN=0,DRAWNULL,HS3),COLORYELLOW;
{
LS1:=DRAWLINE(WU4,L,WU3,L,1);
LS2:=DRAWLINE(WU3,L,WU2,L,1);
LS3:=DRAWLINE(WU2,L,WU1,L,1);}
{
LL1:IF(WN=0,DRAWNULL,LS1),DOTLINE,COLORRED;
LL2:IF(WN=0,DRAWNULL,LS2),DOTLINE,COLORGREEN;
LL3:IF(WN=0,DRAWNULL,LS3),DOTLINE,COLORYELLOW;
}
VAR1:=DATE<>REF(DATE,1);
VAR2:=REFX(VAR1,1); { OR ISLASTBAR}{每日收盘价}
DRAWTEXT(VAR2 AND PERIOD<5,IF(C>=O,C+0.01,C-0.01),VAR2STR(C,2)),COLORWHITE;
{每个高低点价格}
DRAWTEXT(VAR2 AND WS4,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(VAR2 AND WS3,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(VAR2 AND WS2,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VAR2 AND WS1,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(VAR2 AND WU4,L*0.995,VAR2STR(L,2)),COLORRED;
DRAWTEXT(VAR2 AND WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(VAR2 AND WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(VAR2 AND WU1,L*0.995,VAR2STR(L,2)),COLORMAGENTA;
S22:=WU3>REF(WU3,1);
三低:REF(L,BARSLAST(S22)),DOTLINE,COLORYELLOW;
S33:=WU2>REF(WU2,1);
二低:REF(L,BARSLAST(S33)),DOTLINE,COLORYELLOW;
S44:=WU1>REF(WU1,1);
一低:REF(L,BARSLAST(S44)),DOTLINE,COLORMAGENTA;
MA21:MA(C,21),COLORGREEN,LINETHICK2;
IF(MA21 > REF(MA21,1),MA21,DRAWNULL),COLORMAGENTA,LINETHICK2;
年线:MA(C,233),COLORBLUE;
{画涨停跌停涨停试盘K线并标注字}
ZT1:=IF(FINANCE(3)=1,(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H));
DT1:=IF(FINANCE(3)=1,(C<=DTPRICE(REF(CLOSE,1),0.1) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L));
SZT1:=H>=ZTPRICE(REF(C,1),0.1) AND C<>H;
YUZ:=O/REF(C,1)>1.05 AND C<O AND C>REF(C,1);
STICKLINE(ZT1,C,O,-1,0),COLORRED;
STICKLINE(DT1,C,O,-1,0),COLORGREEN;
STICKLINE(YUZ,C,O,-1,0),COLORGREEN;
{STICKLINE(SZT1,C,O,-1,0),COLORRED;}
DRAWTEXT(ZT1 AND PERIOD=5,H,'涨'),COLORYELLOW,DRAWABOVE;
DRAWTEXT(DT1 AND PERIOD=5,H,'跌'),COLORGREEN,DRAWABOVE;
DRAWTEXT(YUZ AND PERIOD=5,H,'预'),COLORGREEN,DRAWABOVE;
DRAWTEXT(SZT1 AND PERIOD=5,H,'试'),COLORMAGENTA,DRAWABOVE;
{黄金柱 向右横线+价格标注 修正版}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=(REFX(V,1)+REFX(V,2)+REFX(V,3))/3;
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
HJZ:=SPJ AND CJL AND ZDJ AND C>O AND ISVALID(REFX(V,3));
HJZ2:=BARSLAST(HJZ);
HJZC:=REF(C,HJZ2);
ZDJ1:=FINDLOW(L,HJZ2-3,3,1);
ZDJ2:=MIN(HJZC,ZDJ1);
STICKLINE(HJZ,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(HJZ,OPEN,CLOSE,0.1,0),COLORRED;
DRAWSL(1,ZDJ2,0,HJZ2,2), COLORYELLOW;
DRAWTEXT(REFX(HJZ,1) OR ISLASTBAR, ZDJ2, VAR2STR(ZDJ2,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT((HJZ AND L>REF(C,1)),H,'帅'),COLORYELLOW,DRAWABOVE;
ZT2:=IF(FINANCE(3)=1,H>=ZTPRICE(REF(CLOSE,1),0.1),H>=ZTPRICE(REF(CLOSE,1),0.2));
ZT3:=BARSLAST(ZT2);
GZ:=BARSLASTCOUNT(MA(C,21)>REF(MA(C,21),1));
涨停高点:=IF(ZT3<9,FINDHIGH(H,0,ZT3+1,1),DRAWNULL);
涨停后跌:=IF(GZ>0,(C/涨停高点-1)*100,DRAWNULL);
DRAWTEXT(ISLASTBAR,L*0.965,VARCAT(VAR2STR(涨停后跌,2),'%')),COLORGREEN; |