|
马上注册,享用更多功能,让你轻松玩转本论坛。
您需要 登录 才可以下载或查看,没有账号?立即注册
×
{ABC三点画线法}
input:n(10);
abz:=LINEVALUE(date=1090804,h,date=1091124,h,0,1),linethick1;
DRAWTEXT(date=1090917,h*1.02,'C'),COLORWHITE;
DRAWTEXT(date=1090804,h*1.02,'A'),COLORWHITE;
DRAWTEXT(date=1091124,h*1.02,'B'),COLORWHITE;
DRAWTEXT(date=1090917,h*1.02,'C'),COLORWHITE;
A点:=date=1090804;b点:=date=1091124;
gd:=FILTER(A点+b点,10);
dg:=barslast(gd);
p1:=SYSPARAM(1)-1;
p:=if(0>=p1,SYSPARAM(1),p1);
Sgd:=sum(gd,0);
gdS:=Sgd[p]-Sgd+1;
W1:=barssince(gdS=gdS[p]);
if w1[p]>1 then begin
Bx:=p=BARPOS;
By:=forcast(c,W1[p]+1);
Ax:=W1=0;
Ay:=By[p]-refx(SLOPE(c,W1[p]+1),W1[p])*W1[p];
zx:LINEVALUE(Ax,Ay,Bx,By,0,0),COLOReeffee;
sh:=hhv(h-zx,w1+1);sL:=hhv(zx-L,w1+1);
sx:LINEVALUE(Ax,Ay+sh[p],Bx,By+sh,0,0),COLOR00ff00;
xx:LINEVALUE(Ax,Ay-sL[p],Bx,By-sL,0,0),COLOR0000ee;
end;
|
|