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;
 
| 
