VAR0:=V / (((H - L) * 2) - (Abs(C - O)));
VAR1:=IF(C > O,(VAR0) * (H - L),IF(C < O,(VAR0) * (H - O + C - L),V / 2));
VAR2:=IF(C > O,(VAR0) * (H - C + O - L),IF(C < O,(VAR0) * (H - L),V / 2));
VAR3:=V / ((CAPITAL) / (100));
IF (((VAR3) > 2) AND ((((C - (REF(C,1))) / (REF(C,1))) * (100)) > (2.5))) THEN BEGIN
VAR4:(((VAR1) / (VAR1 + VAR2)) * 10),PRECIS0;
END;
