1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

 

module Point = //plain Point data structures that ned not be inherited / interfaced...
  type xy = {x:float; y:float} 
    with
      static member creat x y = {x=x ; y=y}
    end
  type bar = {o:float; h:float;l:float; c:float}   //ohlc -> open, high, low, close
    with
      static member create o h l c = 
        let max_, min_ = if o > c then o, c else , o
        if _max >= h || _min <= l then failwith "pb with input data : high is not the high or low is not the low"
        {o=o; h=h; l=l; c=c}
    end


type Points = XY of Point.xy array | Bar of bar list 


type Line(p:Points) =
  member x.Points = p
  member x.Min = 
    match x.Points with 
    | XY arr -> Array.fold_left (fun acc elt -> min acc.y elt.y) arr.(0) arr
    | Bar l -> List.fold_left (fun acc elt -> min acc.h elt.h) arr.(0) arr
//etc.