mid:=(o+c)/2;
fv1:=sum(v,100);
fv:=fv1[datacount];
LTP:=if(capital=0 OR STKTYPE=0,fv,capital);
hsl:=if(VOL=0,1,vol)/LTP,LINETHICK;
ljhs := hsl;
cyc1 := mid;
ljhs2:= hsl;
cyc2 := mid;
ljhs3:= hsl;
cyc3 := mid;
ljhsm:= hsl;
cycm := mid;
cycm := mid;
<%
vmid = ffl.vardata("mid")
vhsl = ffl.vardata("hsl")
vljhs = ffl.vardata("ljhs")
vljhs2 = ffl.vardata("ljhs2")
vljhs3 = ffl.vardata("ljhs3")
vljhsm = ffl.vardata("ljhsm")
vcyc1 = ffl.vardata("cyc1")
vcyc2 = ffl.vardata("cyc2")
vcyc3 = ffl.vardata("cyc3")
vcycm = ffl.vardata("cycm")
last=ubound(vmid)
for i=1 to last
vljhs(i) = vljhs(i -1) * (1 - vhsl(i)) * 7 / 8 + vhsl(i)
vcyc1(i) = (vmid(i) * vhsl(i) + vcyc1(i-1) * vljhs(i -1) * (1 - vhsl(i)) * 7 / 8) / vljhs(i)
vljhs2(i) = vljhs2(i -1) * (1 - vhsl(i)) * 20 / 21 + vhsl(i)
vcyc2(i) = (vmid(i) * vhsl(i) + vcyc2(i-1) * vljhs2(i -1) * (1 - vhsl(i)) * 20 / 21) / vljhs2(i)
vljhs3(i) = vljhs3(i -1) * (1 - vhsl(i)) * 59 / 60 + vhsl(i)
vcyc3(i) = (vmid(i) * vhsl(i) + vcyc3(i-1) * vljhs3(i -1) * (1 - vhsl(i)) * 59 /60) / vljhs3(i)
vljhsm(i) = vljhsm(i -1) * (1 - vhsl(i)) + vhsl(i)
vcycm(i) = (vmid(i) * vhsl(i) + vcycm(i-1) * vljhsm(i -1) * (1 - vhsl(i))) / vljhsm(i)
next
ffl.vardata("ljhs") = vljhs
ffl.vardata("ljhs2") = vljhs2
ffl.vardata("ljhs3") = vljhs3
ffl.vardata("ljhsm") = vljhsm
ffl.vardata("cyc1") = vcyc1
ffl.vardata("cyc2") = vcyc2
ffl.vardata("cyc3") = vcyc3
ffl.vardata("cycm") = vcycm
%>
MAC〔8〕:cyc1,coloryellow;
MAC〔21〕:cyc2,COLORMAGENTA;
MAC〔60〕:cyc3,colorgreen;
MAC〔∞〕:cycm,COLORBLUE,LINETHICK2;
