Fonction arrondir un nombre

[bonuscad]

Bonjour,

 

Suite à la dicussion ICI,

j'ai été amené a trouvé une fonction pour générer des arrondis de nombres.

En effet (rtos) permet de faire des arrondis mais seulement après la virgule.

 

La fonction ci-dessous permet des arrondis de toutes sortes:

(defun round_number (xr n / )
(* (fix (atof (rtos (* xr n) 2 0))) n)
)

format d'appel (round_number [nombre] [précision]) NB: avec précision /= de zéro

exemple:

 

(round_number 1234.56789 (/ 1 25.0)) -> 1225.0 (arrondi à 25 unité la plus proche)

 

(rtos (round_number 1234.56789 (/ 1 0.001)) 2 8) -> "1234.56800000" (arrondi à 0.001 unité la plus proche)

alors que

(round_number 1234.56789 (/ 1 0.001)) -> 1234.57 (renvoyé à l'écran mais avec 1234.568 comme valeur calculé, preuve ci-dessus)

 

 

Qu'en pensez vous? Un autre moyen ? Une simplification possible?

Merci de vos commentaires.