未来多美好定做的3
input:p(10,1,30),参hl(1,1,111),HL偏移(0),整体偏移(0),参自定义1(1,-1,99999),参自定义2(0.382,-1,99999) ,参自定义3(1.5,-1,99999) ,参自定义4(1.618,-1,99999) ,参自定义5(2.191,-1,99999),参自定义6(0.316,-1,99999),参自定义7(-1,-1,99999),参自定义8(-1,-1,99999),
参自定义9(-1,-1,99999),参自定义10(-1,-1,99999),参自定义11(-1,-1,99999),参自定义12(-1,-1,99999);
zig(4,p);
x1:=TROUGH(4,p,1);//BARPOS
x8:=TROUGHBARS(4,p,1)=0;
x13:=TROUGHBARS(4,p,参hl);
x3:=PEAK(4,p,1);
x33:=PEAKBARS(4,p,参hl);
x5:=PEAKBARS(4,p,1)=0;
光标位置:=SYSPARAM(1),linethick0;
ldis:=x13[SYSPARAM(1)],linethick0;
hdis:=x33[SYSPARAM(1)],linethick0;
tl:=光标位置-ldis,linethick0;
th:=光标位置-hdis,linethick0;
Khl:=IF(tl>th,tl+HL偏移,th+HL偏移),linethick0;
PH:=H;
PL:=L;
Phl:IF(tl>th,PL[tl+HL偏移],PH[th+HL偏移]),LINETHICK0;
k:=if(tl>th,1,-1);
stickline(barpos=Khl,phl,phl,10,1);
{kdisab:IF(ldis[SYSPARAM(1)]<hdis[SYSPARAM(1)],lldis-hdis,hhdis-ldis),linethick0;
kc:max(tl,th),linethick0;}
//xx:=x;
//SETLBOUND(xx,k看);
{---------------------说话啊-------------------call}
{☆§-------------------------------------§☆}
{-------------------------------------call}
if 参自定义1>-0.5 then
begin
倍数自定义1:= 参自定义1+整体偏移;
y自定义1:k*Phl*倍数自定义1,linethick0;
P自定义1:=Phl+y自定义1,linethick0;
partline(barpos>=Khl,p自定义1),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义1,numtostr(倍数自定义1,3)+' '+numtostr(P自定义1,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义2>-0.5 then
begin
倍数自定义2:=参自定义2+整体偏移;
y自定义2:k*Phl*倍数自定义2,linethick0;
P自定义2:=Phl+y自定义2,linethick0;
partline(barpos>=Khl,p自定义2),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义2,numtostr(倍数自定义2,3)+' '+numtostr(P自定义2,3)),COLOR0000FF;
end;{retn}{retn}
{-------------------------------------call}
if 参自定义3>-0.5 then
begin
倍数自定义3:= 参自定义3+整体偏移;
y自定义3:k*Phl*倍数自定义3,linethick0;
P自定义3:=Phl+y自定义3,linethick0;
partline(barpos>=Khl,p自定义3),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义3,numtostr(倍数自定义3,3)+' '+numtostr(P自定义3,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义4>-0.5 then
begin
倍数自定义4:= 参自定义4+整体偏移;
y自定义4:k*Phl*倍数自定义4,linethick0;
P自定义4:=Phl+y自定义4,linethick0;
partline(barpos>=Khl,p自定义4),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义4,numtostr(倍数自定义4,3)+' '+numtostr(P自定义4,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义5>-0.5 then
begin
倍数自定义5:= 参自定义5+整体偏移;
y自定义5:k*Phl*倍数自定义5,linethick0;
P自定义5:=Phl+y自定义5,linethick0;
partline(barpos>=Khl,p自定义5),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义5,numtostr(倍数自定义5,3)+' '+numtostr(P自定义5,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义6>-0.5 then
begin
倍数自定义6:= 参自定义6+整体偏移;
y自定义6:k*Phl*倍数自定义6,linethick0;
P自定义6:=Phl+y自定义6,linethick0;
partline(barpos>=Khl,p自定义6),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义6,numtostr(倍数自定义6,3)+' '+numtostr(P自定义6,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义7>-0.5 then
begin
倍数自定义7:= 参自定义7+整体偏移;
y自定义7:k*Phl*倍数自定义7,linethick0;
P自定义7:=Phl+y自定义7,linethick0;
partline(barpos>=Khl,p自定义7),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义7,numtostr(倍数自定义7,3)+' '+numtostr(P自定义7,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义8>-0.5 then
begin
倍数自定义8:= 参自定义8+整体偏移;
y自定义8:k*Phl*倍数自定义8,linethick0;
P自定义8:=Phl+y自定义8,linethick0;
partline(barpos>=Khl,p自定义8),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义8,numtostr(倍数自定义8,3)+' '+numtostr(P自定义8,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义9>-0.5 then
begin
倍数自定义9:= 参自定义9+整体偏移;
y自定义9:k*Phl*倍数自定义9,linethick0;
P自定义9:=Phl+y自定义9,linethick0;
partline(barpos>=Khl,p自定义9),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义9,numtostr(倍数自定义9,3)+' '+numtostr(P自定义9,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义10>-0.5 then
begin
倍数自定义10:= 参自定义10+整体偏移;
y自定义10:k*Phl*倍数自定义10,linethick0;
P自定义10:=Phl+y自定义10,linethick0;
partline(barpos>=Khl,p自定义10),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义10,numtostr(倍数自定义10,3)+' '+numtostr(P自定义10,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义11>-0.5 then
begin
倍数自定义11:= 参自定义11+整体偏移;
y自定义11:k*Phl*倍数自定义11,linethick0;
P自定义11:=Phl+y自定义11,linethick0;
partline(barpos>=Khl,p自定义11),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义11,numtostr(倍数自定义11,3)+' '+numtostr(P自定义11,3)),COLOR0000FF;
end;{retn}
{-------------------------------------call}
if 参自定义12>-0.5 then
begin
倍数自定义12:= 参自定义12+整体偏移;
y自定义12:k*Phl*倍数自定义12,linethick0;
P自定义12:=Phl+y自定义12,linethick0;
partline(barpos>=Khl,p自定义12),COLOR0000FF,LINEDOT;
DRAWTEXT(barpos=Khl,P自定义12,numtostr(倍数自定义12,3)+' '+numtostr(P自定义12,3)),COLOR0000FF;
end;{retn}
{§历史影响现在,现在影响未来。§}
{-------------画k线---------------call}
{觉得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;}
{§未来多美好 公式组§} |