Aaa0:=(C-LLV(L,3))/(HHV(H,3)-LLV(L,3));
Aaa1:=SMA(Aaa0,2,1);
Aaa2:=SMa(Aaa1,2,1);
Aaa3:=3*Aaa1-2*Aaa2 ;
Aaa4:=2*Aaa3-0.5;
Aaa5:=C*(1-(Aaa4-Aaa2)/15);
生命线:Aaa5,PRECISION2,COLORGREEN;
fbars:=SYSPARAM(1)-1;
tj:=barssince(c) fbars-50;
fc:=生命线;
fo:=生命线;
fl:=llv(生命线,2);
fh:=hhv(生命线,2);
%
vbars=ffl.vardata( fbars )
vc=ffl.vardata( fc )
vo=ffl.vardata( fo )
vh=ffl.vardata( fh )
vl=ffl.vardata( fl )
vend=ubound(vc)
n=50
if vbars =vend and vbars vend-vbars+n then
redim temp(vend-vbars+n,3)
for i=2*vbars-vend-n to vbars
ii=i+vend-2*vbars+n
temp(ii,0)=2*vc(vbars)-vo(i)
temp(ii,1)=2*vc(vbars)-vh(i)
temp(ii,2)=2*vc(vbars)-vl(i)
temp(ii,3)=2*vc(vbars)-vc(i)
next
for i=vbars-n to vend
ii=vend-i
vo(i)=temp(ii,3)
vh(i)=temp(ii,2)
vl(i)=temp(ii,1)
vc(i)=temp(ii,0)
next
ffl.vardata( fc )=vc
ffl.vardata( fo )=vo
ffl.vardata( fh )=vh
ffl.vardata( fl )=vl
end if
%
PARTLINE(tj,fc),shift50; {
VERTLINE(ISLASTBAR),COLORYELLOW,POINTDOT;}
HH:=H; LL:=L; OO:=O;
