{顶底趋势浪自动画线主图}
A1:=REF(HIGH,10)=HHV(HIGH,2*10+1);
B1:=FILTER(A1,10);
C1:=BACKSET(B1,10+1);
D1:=FILTER(C1,10);{高点}
A2:=REF(LOW,10)=LLV(LOW,2*10+1);
B2:=FILTER(A2,10);
C2:=BACKSET(B2,10+1);
D2:=FILTER(C2,10);{低点}
E1:=(REF(LLV(LOW,2*10),1)+REF(HHV(HIGH,2*10),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=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,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);{过滤后高点}
浪折线上: DRAWLINE(LD,L,HD,H,0),COLORRED,LINETHICK1;
浪折线下: DRAWLINE(HD,H,LD,L,0),COLORGREEN,LINETHICK1;
J1:=BACKSET(ISLASTBAR ,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
新浪顶底线: DRAWLINE(J2,IF(HD,H,L),ISLASTBAR ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),COLORYELLOW;
{每个高点画水平线}
WR1:=BACKSET(ISLASTBAR,BARSLAST(HD)+1); WS1:=WR1>REF(WR1,1);
WR2:=BACKSET(WS1,REF(BARSLAST(HD),1)+2); WS2:=WR2>REF(WR2,1);
WR3:=BACKSET(WS2,REF(BARSLAST(HD),1)+2); WS3:=WR3>REF(WR3,1);
WR4:=BACKSET(WS3,REF(BARSLAST(HD),1)+2); WS4:=WR4>REF(WR4,1);
WR5:=BACKSET(WS4,REF(BARSLAST(HD),1)+2); WS5:=WR5>REF(WR5,1);
WT1:=BACKSET(ISLASTBAR,BARSLAST(LD)+1); WU1:=WT1>REF(WT1,1);
WT2:=BACKSET(WU1,REF(BARSLAST(LD),1)+2); WU2:=WT2>REF(WT2,1);
WT3:=BACKSET(WU2,REF(BARSLAST(LD),1)+2); WU3:=WT3>REF(WT3,1);
WT4:=BACKSET(WU3,REF(BARSLAST(LD),1)+2); WU4:=WT4>REF(WT4,1);
一高:REF(H,BARSLAST(WS1>REF(WS1,1))),DOTLINE,COLORMAGENTA;
二高:REF(H,BARSLAST(WS2>REF(WS2,1))),DOTLINE,COLORRED;
三高:REF(H,BARSLAST(WS3>REF(WS3,1))),DOTLINE,COLORYELLOW;
四高:REF(H,BARSLAST(WS4>REF(WS4,1))),DOTLINE,COLORGREEN;
五高:REF(H,BARSLAST(WS5>REF(WS5,1))),DOTLINE,COLORCYAN;
{标注每个高低点价格}
VAR1:=DATE<>REF(DATE,1);
DRAWTEXT(VAR1 AND WS1,H,VAR2STR(H,2)),COLORMAGENTA,DRAWABOVE;
DRAWTEXT(VAR1 AND WS2,H,VAR2STR(H,2)),COLORRED,DRAWABOVE;
DRAWTEXT(VAR1 AND WS3,H,VAR2STR(H,2)),COLORYELLOW,DRAWABOVE;
DRAWTEXT(VAR1 AND WS4,H,VAR2STR(H,2)),COLORGREEN,DRAWABOVE;
DRAWTEXT(VAR1 AND WS5,H,VAR2STR(H,2)),COLORCYAN,DRAWABOVE;
DRAWTEXT(VAR1 AND WU1,L*0.995,VAR2STR(L,2)),COLORMAGENTA;
DRAWTEXT(VAR1 AND WU2,L*0.995,VAR2STR(L,2)),COLORYELLOW;
DRAWTEXT(VAR1 AND WU3,L*0.995,VAR2STR(L,2)),COLORGREEN;
DRAWTEXT(VAR1 AND WU4,L*0.995,VAR2STR(L,2)),COLORRED;
{每个交叉点画竖线}
MA22:MA(C,22),COLORMAGENTA;
DRAWSL(CROSS(MA22,一高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,二高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,三高),L,10000,360,1),COLORYELLOW;
DRAWSL(CROSS(MA22,四高),L,10000,360,1),COLORYELLOW;
MA5:MA(C,5),COLORWHITE;
MA10:MA(C,10),COLORYELLOW;
MA55:MA(C,55),COLORGREEN;
MA120:MA(C,120),COLORGRAY;
MA233:MA(C,233),COLORBLUE;
{画涨停跌停涨停试盘K线并标注字}
ZT1:=IF(NAMEINCLUDE('ST'),(C>=ZTPRICE(REF(CLOSE,1),0.05) AND C=H),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C>=ZTPRICE(REF(CLOSE,1),0.2) AND C=H),(C>=ZTPRICE(REF(CLOSE,1),0.1) AND C=H)));
DT1:=IF(NAMEINCLUDE('ST'),(C<=DTPRICE(REF(CLOSE,1),0.05) AND C=L),IF(FINANCE(3)=3 OR FINANCE(3)=4,(C<=DTPRICE(REF(CLOSE,1),0.2) AND C=L),(C<=DTPRICE(REF(CLOSE,1),0.1) 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;
{涨停价一半划线并标注价格}
VAR6:=BARSLAST(ZT1);
VAR7:=IF(O>REF(C,1),(REF(C,1)+C)/2,(O+C)/2);
DRAWSL(1,REF(VAR7,VAR6),0,1,0),COLORMAGENTA;
DRAWTEXT(REFX(ZT1,1) OR ISLASTBAR,REF(VAR7,VAR6),VAR2STR(REF(VAR7,VAR6),2)),COLORYELLOW,DRAWABOVE;
{K线图显示分时图的均价线}
B:=CURRBARSCOUNT;
BA:=DAY<>REF(DAY,1);
BB2:=BARSLAST(BA)+1;
B3:=MA(C,BB2);
B4:=SUM(AMO,BB2)/SUM(VOL,BB2)/100;
B5:=IF(CAPITAL>0,B4,B3);
均价1:=IF(B<=CONST(BB2) AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B5,DRAWNULL),COLORYELLOW,LINETHICK2;
均价:IF(B<=48 AND (PERIOD=1 OR PERIOD=0 OR PERIOD=8),B4,DRAWNULL),COLORYELLOW,LINETHICK2;
{黄金柱 向右横线+价格标注 修正版}
SPJ:=C<=REFX(C,1) AND C<=REFX(C,2) AND C<=REFX(C,3);
CJL:=V>=REFX(V,1) AND V>=REFX(V,2) AND V>=REFX(V,3);
ZDJ:=O<=REFX(L,1) AND O<=REFX(L,2) AND O<=REFX(L,3);
HJZ1:=SPJ AND CJL AND ZDJ AND C>O;
STICKLINE(HJZ1,OPEN,CLOSE,3,0),COLORYELLOW;
STICKLINE(HJZ1,OPEN,CLOSE,0.1,0),COLORRED;
HJZ2:=BARSLAST(HJZ1);
HJZ_PRICE:=REF(C,HJZ2);
DRAWSL(1,HJZ_PRICE, 0, 1, 0),COLORYELLOW;
DRAWTEXT(REFX(HJZ1,1) OR HJZ1 OR ISLASTBAR OR CURRBARSCOUNT=1, HJZ_PRICE, VAR2STR(HJZ_PRICE,2)),COLORYELLOW,DRAWABOVE;
{画昨日收盘价线}
RI1:=DATE<>REF(DATE,1);
RI2:=BARSLAST(RI1)+1;
RI3:=REF(C,RI2);
昨天:STICKLINE(PERIOD=1 AND RI2,RI3,RI3,4,1),COLORWHITE;
{主图标注日期星期}
星期几:=VARCAT(' 星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',''))))));
日期:=VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VARCAT(VAR2STR(YEAR,0),'年'),VAR2STR(MONTH,0)),'月'),VAR2STR(DAY,0)),'日'),星期几);
DRAWTEXT_FIX(ISLASTBAR,0.85,1,0,日期),COLORYELLOW;
{易变盘时间画箭头}
DRAWICON(TIME=1305, L*0.998, 1); |
IP卡
狗仔卡
显身卡
RAWLINE(LD,L,HD,H,0),COLOR00FFFF,LINETHICK1;
LV(L,BARSLAST(HD));