Softly cuts to upper limit
function softcut_upper input Real x; input Real x_ulimit; input Real r; output Real y; end softcut_upper;