Nezkoumal jsem to do detailů, ale pokud vypusíte tu "3" ve funkci (rtos), měl by být počet desetinných míst závislý na standardním nastavení proměnné LUPREC.

Tak to zaokrouhlete na setiny a připište "0":

Poždavek jednoho kolegy, který asi neumí kreslit přesně ;(.

U toho řádku "< y" jste nějak na štíru se závorkami - jedna ukončovací chybí.

PepaR: Zaokrouhlení:
Zkuste tohle, je to perfektní

[code]
(defun ROUND (num frac / half over)
;;; (ROUND NUM FRAC) returns NUM rounded to the nearest FRAC.
;;; Examples: (ROUND 15.2 0.25) returns 15.25
;;;            (ROUND 15.1 0.25) returns 15.00
;;; By Duff Kurland - Autodesk, Inc.   August 22, 1986
(if (minusp num)
    (- (round1 (- num) frac))
    (round1 num frac)
) ;_ end of if
) ;_ end of defun

(defun round1 (num frac / half over)
(setq half (/ frac 2.0))
(setq over (rem num frac)) ; Get remainder
(if (>= over half)
    (+ num frac (- over)) ; Round up
    (- num over) ; Round down
) ;_ end of if
) ;_ end of defun
[code]


Upravil iand - 05.led.2011 v 10:50

Vim, ze je jiz problem vyresen, ale jen nabizim jeste jednu jednoduchou moznost.

Pokud je promenna x s real cislem:

(rtos (atof (rtos x 2 2)) 2 3)

"vnitrni" rtos zaokrouhli na potrebny pocet cisel a pritom zaokrouhli
atof prevede string zpet na cislo
"vnejsi" rtos doplni nuly a prevede na string

Pozor na nastaveni promenne DIMZIN