let trirepartition = function (x:int) ->
 match x with
 | petit when petit < 64 ->
  begin
   let a = repartition ( 2 * x ) in
    [| a.(0) ; a.(1) ; 0. |] ;
  end
 | grand when grand > 64 ->
  begin
   let a = repartition ( 2 * ( x - 64 ) ) in
    [| 0. ; a.(0) ; a.(1) |] ;
  end
 | _ -> [| 0. ; 1. ; 0. |]