let repartition_lineaire = function (x:int) ->
 let a = 1. /. 127.
 and y = float x in
  let z = a *. y in
   [| 1. -. z ; z |]