let inflexion = fun (p:float) (x:float) ->
 let a = 2 + ( int_of_float ( 0.03125 *. p ) ) in
  deforme a x