n:=75;
VAR1:=3*SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,20,1)-2*SMA(SMA((CLOSE-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,20,1),15,1);
VAR2:=3*SMA((OPEN-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,20,1)-2*SMA(SMA((OPEN-LLV(LOW,N))/(HHV(HIGH,N)-LLV(LOW,N))*100,20,1),15,1);
VAR3:=VAR2;
VAR4:=VAR1;
VAR5:=REF(CLOSE,1);
VAR6:=100*VOL/CAPITAL*10;
STICKLINE(VAR4<REF(VAR3,1),(-1)*VAR4,(-1)*VAR3,VAR6,1),COLORRED;
VAR7:=MA(VAR3,3);
STICKLINE((-1)*VAR4>VAR7,(-1)*VAR4,(-1)*VAR3,VAR6,1),COLORGREEN;
STICKLINE(VAR4>=REF(VAR3,1),(-1)*VAR4,(-1)*VAR3,VAR6,1),COLORGREEN;
FORCAST((-1)*VAR3,21),Color00FF00;

0,CIRCLEDOT;
VAR13:=-VAR2;
VAR14:=-VAR1;
VAR15:=REF(CLOSE,1);
VAR16:=100*VOL/CAPITAL*10;
STICKLINE(VAR14<REF(VAR13,1),(-1)*VAR14,(-1)*VAR13,VAR16,1);
VAR17:=MA(VAR13,3);
STICKLINE((-1)*VAR14>VAR17,(-1)*VAR14,(-1)*VAR13,VAR16,1);
STICKLINE(VAR14>=REF(VAR13,1),(-1)*VAR14,(-1)*VAR13,VAR16,1);
FORCAST((-1)*VAR13,21);