CalculatePriceLevels ->
Arg Levels : &_, Records : Array : OptionRecord

Values = <
           Hill, Ground : 0, Valley : 2^32
         >

Do get Record from Records
 Difference = Record.Call.Open_interest - Record.Put.Open_interest
 Sum_total  = Record.Call.Open_interest + Record.Put.Open_interest

 If Difference > Values.Hill   then Values.Hill   = Difference, Levels.Aim.Hill   = Record.Strike
 If Difference < Values.Valley then Values.Valley = Difference, Levels.Aim.Valley = Record.Strike

 If Sum_total  > Values.Ground then Values.Ground = Sum_total,  Levels.Aim.Ground = Record.Strike
;

/
