mid := (o+c)/2;hsl:=if(capital=0,v/sum(v,100),v/capital);ljhs := hsl;1 := mid;ljhs2:= hsl;cyc2 := mid;ljhs3:= hsl;cyc3 := mid;ljhsm:= hsl;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")la=ubound(vmid)for i=1 to lastvljhs(i) = vljhs(i -1) * (1 - vhsl(i)