let tronque = function (x:float) ->
 min 1.0 ( max ( -1.0 ) x )