input:N1(5,1,600,1),N2(13,1,600,1),N3(34,1,600,1);
VARIABLE: ljhs=0,c5=0,ljhs2=0,c13=0,ljhs3=0,c34=0,ljhsm=0,cyc=0;
mid:=(o+c)/2;
hsl:=if(capital=0,v/sum(v,100),v/capital);
ljhs:=if(BARPOS=1,hsl,ljhs*(1-hsl)*(n1-1)/n1+hsl);
c5:if(BARPOS=1,mid,(mid*hsl+c5*ref(ljhs,1)*(1-hsl)*(n1-1)/n1)/ljhs);
ljhs2:=if(BARPOS=1,hsl,ljhs2*(1-hsl)*(n2-1)/n2+hsl);
c13:if(BARPOS=1,mid,(mid*hsl+c13*ref(ljhs2,1)*(1-hsl)*(n2-1)/n2)/ljhs2);
ljhs3:=if(BARPOS=1,hsl,ljhs3*(1-hsl)*(n3-1)/n3+hsl);
c34:if(BARPOS=1,mid,(mid*hsl+c34*ref(ljhs3,1)*(1-hsl)*(n3-1)/n3)/ljhs3);
ljhsm:=if(BARPOS=1,hsl,ljhsm*(1-hsl)+hsl);
cyc:if(BARPOS=1,mid,(mid*hsl+cyc*ref(ljhsm,1)*(1-hsl))/ljhsm);