波浪尺

{【波浪尺】}
input:时间线(0,0,1),p(10,3,50);
DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
KLINE(O,H,L,C,0);
{时间之窗}
XV_1:=BARSLAST(BARPOS=SYSPARAM(2)+34)*时间线; 月:=MONTH;日:=DAY;
VERTLINE(XV_1&&(月=1&&日=25||月=3&&日=20||月=5&&日=12||月=6&&日=14||月=7&&日=19||月=8&&日=6||月=9&&日=18||月=10&&日=31||月=11&&日=28||月=12&&日=28)),ColorFFA8FF;
VERTLINE(XV_1&&月=1&&(日=6||日=15||日=21)),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=2&&(日=6||日=15||日=21 )),LINEDOT,Color00A8A9;
VERTLINE(XV_1&&月=3&&(日=6||日=15||日=21 )),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=4&&(日=6||日=15||日=21 )),LINEDOT,Color00A8A9;
VERTLINE(XV_1&&月=5&&(日=6||日=15||日=21 )),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=6&&(日=6||日=21)),LINEDOT,Color00A8A9;
VERTLINE(XV_1&&月=7&&(日=8||日=15||日=23)),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=8&&(日=8||日=15||日=23)),LINEDOT,Color00A8A9;
VERTLINE(XV_1&&月=9&&(日=8||日=15||日=23)),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=10&&(日=8||日=15||日=23 )),LINEDOT,Color00A8A9;
VERTLINE(XV_1&&月=11&&(日=8||日=15||日=23)),LINEDOT,Color00A8A9; VERTLINE(XV_1&&月=12&&(日=8||日=15||日=23 )),LINEDOT,Color00A8A9;
{浪-光标控制}
x1:=TROUGHBARS(4,p,2); x2:=TROUGHBARS(4,p,1); x3:=PEAKBARS(4,p,2); x4:=PEAKBARS(4,p,1);
GB:=SYSPARAM(1); y1:=x2[GB]; y2:=x4[GB]; y3:=GB-y1; y4:=GB-y2; y5:=x2[GB]; y6:=x4[GB]; 
y7:=GB-y5; y8:=GB-y6; y9:=x1[GB]; y10:=x3[GB]; y11:=GB-y9; y12:=GB-y10; PH:=H; PL:=L;
K一浪a:=IF(y3>y4,y11,y12); K二浪b:=IF(y3>y4,y8,y7); K三浪c:=IF(y3>y4,y3,y4);
P一浪a:=IF(y3>y4,PL[y11],PH[y12]); P二浪b:=IF(y3>y4,PH[y8],PL[y7]); P三浪c:=IF(y3>y4,PL[y3],PH[y4]);
VERTLINE(barpos=K三浪c),LINETHICK2,Color009C9C;//竖线
drawline(barpos=K一浪a,p一浪a,barpos=K二浪b,p二浪b,0),LINEDOT,Color009C9C;
drawline(barpos=K二浪b,p二浪b,barpos=K三浪c,p三浪c,0),LINEDOT,Color009C9C;
{}
if 0>-0.5 then
begin 
一浪长:=P二浪b-P一浪a;; y1:=一浪长; P1:=P三浪c+y1;

倍数0382:=0.382;
y0382:=一浪长*倍数0382;
P0382:=P三浪c+y0382;
partline(barpos>=K三浪c,p0382),LINEDOT,COLORGREEN;
DRAWTEXT(barpos=K三浪c,P0382,' ['+numtostr(倍数0382,3)+'] '+numtostr(P0382,2)),PXDN6,COLORGREEN;

倍数0618:=0.618;
y0618:=一浪长*倍数0618;
P0618:=P三浪c+y0618;
partline(barpos>=K三浪c,p0618),LINEDOT,COLORWHITE;
DRAWTEXT(barpos=K三浪c,P0618,' ['+numtostr(倍数0618,3)+'] '+numtostr(P0618,2)),PXDN6,COLORWHITE;

POLYLINE(barpos>=K三浪c,p1),ColorFFC1FF;
DRAWTEXT(barpos=K三浪c,P1,' [1.000]'+' '+numtostr(P1,2)),PXDN6,ColorFFC1FF;

倍数1809:=0.809;
y1809:=一浪长*倍数1809;
P1809:=P三浪c+y1809;
partline(barpos>=K三浪c,p1809),LINEDOT,Color0098FF;
DRAWTEXT(barpos=K三浪c,P1809,' ['+numtostr(倍数1809,3)+'] '+numtostr(P1809,2)),PXDN6,Color0098FF;

倍数1382:=1.382;
y1382:=一浪长*倍数1382;
P1382:=P三浪c+y1382;
partline(barpos>=K三浪c,p1382),LINEDOT,COLORGREEN;
DRAWTEXT(barpos=K三浪c,P1382,' ['+numtostr(倍数1382,3)+'] '+numtostr(P1382,2)),PXDN6,COLORGREEN;

倍数1618:=1.618;
y1618:=一浪长*倍数1618;
P1618:=P三浪c+y1618;
partline(barpos>=K三浪c,p1618),LINEDOT,COLORWHITE;
DRAWTEXT(barpos=K三浪c,P1618,' ['+numtostr(倍数1618,3)+'] '+numtostr(P1618,2)),PXDN6,COLORWHITE;

倍数1809:=1.809;
y1809:=一浪长*倍数1809;
P1809:=P三浪c+y1809;
POLYLINE(barpos>=K三浪c,p1809),LINEDOT,COLORYELLOW;
DRAWTEXT(barpos=K三浪c,P1809,' ['+numtostr(倍数1809,3)+'] '+numtostr(P1809,2)),PXDN6,COLORYELLOW;

倍数2000:=2.000;
y2000:=一浪长*倍数2000;
P2000:=P三浪c+y2000;
POLYLINE(barpos>=K三浪c,p2000),ColorFFE790;
DRAWTEXT(barpos=K三浪c,P2000,' ['+numtostr(倍数2000,3)+'] '+numtostr(P2000,2)),PXDN6,ColorFFE790;
end;