let gain_rapide_reel = function (x:float) ->
 gain_rapide ( int_of_float x )