cyc公式

编写要求：

解答：

?网友求助：

各位老师：

VARIABLE: ljhs=0,cyc5=0,ljhs2=0,cyc13=0,ljhs3=0,cyc34=0,ljhsm=0,cycmax=0;
mid:=(o+c)/2;
hsl:=if(capital=0,v/sum(v,100),v/capital);
ljhs:=if(BARPOS=1,hsl,ljhs*(1-hsl)*(5-1)/5+hsl);
cyc5:if(BARPOS=1,mid,(mid*hsl+cyc5*ref(ljhs,1)*(1-hsl)*(5-1)/5)/ljhs);
ljhs2:=if(BARPOS=1,hsl,ljhs2*(1-hsl)*(13-1)/13+hsl);
cyc13:if(BARPOS=1,mid,(mid*hsl+cyc13*ref(ljhs2,1)*(1-hsl)*(13-1)/13)/ljhs2);
ljhs3:=if(BARPOS=1,hsl,ljhs3*(1-hsl)*(34-1)/34+hsl);
cyc34:if(BARPOS=1,mid,(mid*hsl+cyc34*ref(ljhs3,1)*(1-hsl)*(34-1)/34)/ljhs3);

ljhsm:=if(BARPOS=1,hsl,ljhsm*(1-hsl)+hsl);
cycmax:if(BARPOS=1,mid,(mid*hsl+cycmax*ref(ljhsm,1)*(1-hsl))/ljhsm);