未来多美好定做的2
{定做的2八分}
input:p(10,1,30),参a(2,1,111),参b(1,1,111),参c(1,1,111),A偏移(0),B偏移(0),C偏移(0),整体偏移(0),参自定义1(1.125,-1,99999),参自定义2(1.25,-1,99999) ,参自定义3(1.375,-1,99999) ,参自定义4(1.5,-1,99999) ,参自定义5(1.625,-1,99999),参自定义6(1.75,-1,99999),参自定义7(1.875,-1,99999),参自定义8(2,-1,99999);
x1:=TROUGH(4,p,1);//BARPOS
x8:=TROUGHBARS(4,p,1)=0;
x11:=TROUGHBARS(4,p,参a);
x18:=TROUGHBARS(4,p,参b);
x13:=TROUGHBARS(4,p,参c);
x3:=PEAK(4,p,1);
x31:=PEAKBARS(4,p,参a);
x38:=PEAKBARS(4,p,参b);
x33:=PEAKBARS(4,p,参c);
x5:=PEAKBARS(4,p,1)=0;
光标位置:=SYSPARAM(1),linethick0;
cldis:=x13[SYSPARAM(1)],linethick0;
chdis:=x33[SYSPARAM(1)],linethick0;
tcl:=光标位置-cldis,linethick0;
tch:=光标位置-chdis,linethick0;
bldis:=x18[SYSPARAM(1)],linethick0;
bhdis:=x38[SYSPARAM(1)],linethick0;
tbl:=光标位置-bldis,linethick0;
tbh:=光标位置-bhdis,linethick0;
aldis:=x11[SYSPARAM(1)],linethick0;
ahdis:=x31[SYSPARAM(1)],linethick0;
tal:=光标位置-aldis,linethick0;
tah:=光标位置-ahdis,linethick0;
K一浪a:=IF(tcl>tch,tal+A偏移,tah+A偏移),linethick0;
K二浪b:=IF(tcl>tch,tbh+B偏移,tbl+B偏移),linethick0;
K三浪c:=IF(tcl>tch,tcl+C偏移,tch+C偏移),linethick0;
PH:=H;
PL:=L;
P一浪a:IF(tcl>tch,PL[tal+A偏移],PH[tah+A偏移]),LINETHICK0;
P二浪b:IF(tcl>tch,PH[tbh+B偏移],PL[tbl+B偏移]),LINETHICK0;
P三浪c:IF(tcl>tch,PL[tcl+C偏移],PH[tch+C偏移]),LINETHICK0;
{kdisab:IF(ldis[SYSPARAM(1)]<hdis[SYSPARAM(1)],lldis-hdis,hhdis-ldis),linethick0;
kc:max(tl,th),linethick0;}
drawline(barpos=K一浪a,p一浪a,barpos=K二浪b,p二浪b,0),color77FFFF,linethick1;
drawline(barpos=K二浪b,p二浪b,barpos=K三浪c,p三浪c,0),color77FFFF,linethick1;
一浪长:P二浪b-P一浪a,linethick0;
//xx:=x;
//SETLBOUND(xx,k看);
{---------------------说话啊-------------------}
{☆§-------------------------------------§☆}
{-------------------------------------}
if 参自定义1>-0.5 then
begin
倍数自定义1:= 参自定义1+整体偏移;
y自定义1:一浪长*倍数自定义1,linethick0;
P自定义1:=P三浪c+y自定义1,linethick0;
partline(barpos>=K三浪c,p自定义1),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义1,numtostr(倍数自定义1,3)+' '+numtostr(P自定义1,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义2>-0.5 then
begin
倍数自定义2:= 参自定义2+整体偏移;
y自定义2:一浪长*倍数自定义2,linethick0;
P自定义2:=P三浪c+y自定义2,linethick0;
partline(barpos>=K三浪c,p自定义2),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义2,numtostr(倍数自定义2,3)+' '+numtostr(P自定义2,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义3>-0.5 then
begin
倍数自定义3:= 参自定义3+整体偏移;
y自定义3:一浪长*倍数自定义3,linethick0;
P自定义3:=P三浪c+y自定义3,linethick0;
partline(barpos>=K三浪c,p自定义3),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义3,numtostr(倍数自定义3,3)+' '+numtostr(P自定义3,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义4>-0.5 then
begin
倍数自定义4:= 参自定义4+整体偏移;
y自定义4:一浪长*倍数自定义4,linethick0;
P自定义4:=P三浪c+y自定义4,linethick0;
partline(barpos>=K三浪c,p自定义4),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义4,numtostr(倍数自定义4,3)+' '+numtostr(P自定义4,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义5>-0.5 then
begin
倍数自定义5:= 参自定义5+整体偏移;
y自定义5:一浪长*倍数自定义5,linethick0;
P自定义5:=P三浪c+y自定义5,linethick0;
partline(barpos>=K三浪c,p自定义5),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义5,numtostr(倍数自定义5,3)+' '+numtostr(P自定义5,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义6>-0.5 then
begin
倍数自定义6:= 参自定义6+整体偏移;
y自定义6:一浪长*倍数自定义6,linethick0;
P自定义6:=P三浪c+y自定义6,linethick0;
partline(barpos>=K三浪c,p自定义6),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义6,numtostr(倍数自定义6,3)+' '+numtostr(P自定义6,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义7>-0.5 then
begin
倍数自定义7:= 参自定义7+整体偏移;
y自定义7:一浪长*倍数自定义7,linethick0;
P自定义7:=P三浪c+y自定义7,linethick0;
partline(barpos>=K三浪c,p自定义7),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义7,numtostr(倍数自定义7,3)+' '+numtostr(P自定义7,3)),COLOR0000FF;
end;
{-------------------------------------}
if 参自定义8>-0.5 then
begin
倍数自定义8:= 参自定义8+整体偏移;
y自定义8:一浪长*倍数自定义8,linethick0;
P自定义8:=P三浪c+y自定义8,linethick0;
partline(barpos>=K三浪c,p自定义8),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=K三浪c,P自定义8,numtostr(倍数自定义8,3)+' '+numtostr(P自定义8,3)),COLOR0000FF;
end;
{§历史影响现在,现在影响未来。§}
{-------------画k线---------------}
{觉得k线被线阻挡,就重新画k线}
{stickline(c>o,c,o,8,1),color5050ff;
stickline(c>o,h,c,0.5,0),color5050ff;
stickline(c>o,o,l,0.5,0),color5050ff;
stickline(c<o,o,c,8,0),colorffff50;
stickline(c<o,h,c,0.5,0),colorffff50;
stickline(c<o,o,l,0.5,0),colorffff50;}
{§未来多美好 公式组§} |