生命线－－非一般的生命线

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;