xojo

 minmode(r)

  if r>=1 then
    r =1.0
  end if
  if r>0 then
    return r
  else
    return 0.0
  end if

vanLeer(r)
return (r+abs(r))/(1+abs(r))

vanLeerは分母が０になっても構わないので使いやすいと思われます。
その他の制限関数は海外のWikiに載ってます。