[通达信] 有请123456老师将飞狐指标改写为通达信指标
INPUT:N(240,0,999);hh:=hhv(h,N);
hhh:=h;
aa:=BARSLAST(h=hh);
ba:datacount-aa,LINETHICK0;
ja:=1;
tm1:=999999;
for i1=ba+1 to datacount do begin
k1:=(hh-hhh)/ja;
if k1<tm1then begin
tm1:=k1;
ts1:=ja;
end;
ja:=ja+1;
end;
A1:LINEVALUE(h=hh and aa=0,h,BARPOS=datacount-aa+ts1,h,0,0),colorffff54;
cha:=hhv(abs(l-a1),aa);
A2:a1-cha,colorffff54;
AI:a1-cha/2,colorffff54,LINEDASH;
ll:=llv(l,N);
lll:=l;
a3:=BARSLAST(l=ll);
b3:=datacount-a3;
j3:=1;
tm3:=999999;
for i3=b3+1 to datacount do begin
k3:=(lll-ll)/j3;
if k3<tm3then begin
tm3:=k3;
ts3:=j3;
end;
j3:=j3+1;
end;
B1:LINEVALUE(l=ll and a3=0,l,BARPOS=datacount-a3+ts3,l,0,0),color5454ff;
chb:=hhv(abs(h-b1),a3);
b2:b1+chb,color5454ff;
bi:b1+chb/2,color5454ff,LINEDASH;
页:
[1]