HH:=H; LL:=L; OO:=O; CC:=C;
%
vh=ffl.vardata("hh")
vl=ffl.vardata("ll")
vo=ffl.vardata("oo")
vc=ffl.vardata("cc")
last=ubound(vh)
if last<101 then
b=last+1
else
b=0
for i=last-101 to last-51
vh(i)=vh(i+51)
vl(i)=vl(i+51)
vo(i)=vo(i+51)
vc(i)=vc(i+51)
next
a=(vh(last-51)+vl(last-51))/2
j=1
for i=last-49 to last
j=j+2
vh(i)=2*a-vl(i-j)
vl(i)=2*a-vh(i-j)
vo(i)=2*a-vc(i-j)
vc(i)=2*a-vo(i-j)
next
end if
ffl.vardata("hh")=vh
ffl.vardata("ll")=vl
ffl.vardata("oo")=vo
ffl.vardata("cc")=vc
ffl.varstartindex("hh")=b
ffl.varstartindex("ll")=b
ffl.varstartindex("oo")=b
ffl.varstartindex("cc")=b%>
A:=BACKSET(ISLASTBAR,50);
STICKLINE(A AND CC>=OO,OO,CC,6,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,LL,OO,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CC>=OO,CC,HH,0.1,1),COLORMAGENTA,SHIFT50;
STICKLINE(A AND CCSTICKLINE(A AND CCVERTLINE(ISLASTBAR),COLORYELLOW,POINTDOT;
飛狐DELTA主圖公式
農歷:=lday;
isFirst:=if(農歷>Ref(農歷,1) and ref(農歷,1)<15 and 農歷>15,1,0);
isColor:=iif(lday=15 or isFirst,1,0); //判斷是否繪制彩線的位置：農歷15，或者農歷15後的第壹個交易日
Num:=count(isColor,0); //計算彩線個數
//光標所在畫面的最高價和最低價
HH:=SYSPARAM(4);
LL:=sysparam(5);
農歷:LDay,LineThick0;
//繪制彩線
STICKLINE(isColor and mod(Num,4)=0,ll,hh,3,0),colorred;
STICKLINE(isColor and mod(Num,4)=1,ll,hh,3,0),coloryellow;
STICKLINE(isColor and mod(Num,4)=2,ll,hh,3,0),colorblue;
STICKLINE(isColor and mod(Num,4)=3,ll,hh,3,0),colorwhite;