MID:=(OPEN+CLOSE)/2;
HSL:=IF(CAPITAL=0,VOL/SUM(VOL,0),VOL/CAPITAL);
IF CAPITAL=0 THEN BEGIN
HSL:=VOL/SUM(VOL,0);
A:=SETLBOUND(4,1);
FOR I=1 TO MIN(-1,DATACOUNT) DO BEGIN
HSL[I]:=0;
END;
END;
LJHS[1]:=HSL[1];
CYC1[1]:=MID[1];
LJHS2[1]:=HSL[1];
CYC2[1]:=MID[1];
LJHS3[1]:=HSL[1];
CYC3[1]:=MID[1];
LJHSM[1]:=HSL[1];
CYC∞[1]:=MID[1];
DD:=MID[1]*(BARPOS<0);
FOR I=LBOUND(HSL)+1 TO DATACOUNT DO BEGIN
LJHS[I]:=(LJHS[I-1])*(1-HSL[I])*(N1-1)/N1+HSL[I];
CYC1[I]:=(MID[I]*HSL[I]+(CYC1[I-1])*(LJHS[I-1])*(1-HSL[I])*(N1-1)/N1)/LJHS[I]+DD[I];
LJHS2[I]:=(LJHS2[I-1])*(1-HSL[I])*(N2-1)/N2+HSL[I];
CYC2[I]:=(MID[I]*HSL[I]+(CYC2[I-1])*(LJHS2[I-1])*(1-HSL[I])*(N2-1)/N2)/LJHS2[I]+DD[I];
LJHS3[I]:=(LJHS3[I-1])*(1-HSL[I])*(N3-1)/N3+HSL[I];
CYC3[I]:=(MID[I]*HSL[I]+(CYC3[I-1])*(LJHS3[I-1])*(1-HSL[I])*(N3-1)/N3)/LJHS3[I]+DD[I];
LJHSM[I]:=(LJHSM[I-1])*(1-HSL[I])+HSL[I];
CYC∞[I]:=(MID[I]*HSL[I]+(CYC∞[I-1])*(LJHSM[I-1])*(1-HSL[I]))/LJHSM[I]+DD[I];
END;
CYC1,colorFFFF;
CYC2,colorFF00FF;
CYC3,colorFF00;
CYC∞:CYC∞,LINETHICK2,colorFF0000;
MA240:EMA(CLOSE,240),LINETHICK2,colorFFFF00;
LTPBD:=SELFDATA('LSTQ');
STICKLINE(LTPBD-REF(LTPBD,1)<>0,OPEN,CLOSE,8,0),colorFF00FF;
STICKLINE(LTPBD-REF(LTPBD,1)<>0,HIGH,LOW,1,0),colorFF00FF;