---

Ueberwachung.JPG runden.lsp.txt

Hallo,

ich habe ein Problem beim Runden zweier Realzahlen, das ich mir nicht erklären kann. Dabei runde ich die zwei Realzahlen rxausdeed und rxausdkoor mit meiner Funktion, die für mich gleich sind (siehe Datei Ueberwachung.jpg). Die Lisp-Funktion, die ich dafür verwende, ist ebenfalls in der Anlage enthalten.

Warum sind die beiden Realzahlen rxausdeed und rxausdkoor nach dem Runden nicht gleich?

Danke im Voraus und viele Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn die beiden Zahlen nicht gleich sind, können auch beim Runden unterschiedliche Ausgaben entstehen:

142.4449999999999999
Angezeigt als
142.44500000
gerundet auf 2 Stellen
142.44
und
142.4450000000000001
Angezeigt als
142.44500000
gerundet auf 2 Stellen
142.45

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

[Diese Nachricht wurde von CAD-Huebner am 12. Okt. 2011 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Udo,

danke für Deine Antwort.

Diese Problematik ist mir bekannt. Deshalb habe ich beide Realwerte mit der Funktion rtos und der Genauigkeit von 10 Kommastellen gewandelt (siehe Anlage Ueberweachung.jpg). Von den gewandelten Werten stimmen die 10 Kommastellen überein. Es muss also einen anderen Grund geben.

Viele Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Bernd10:
...Diese Problematik ist mir bekannt. Deshalb habe ich beide Realwerte mit der Funktion rtos und der Genauigkeit von 10 Kommastellen gewandelt (siehe Anlage Ueberweachung.jpg). ...

---

Ich kann nur erkennen, dass du die die Werte mit RTOS hast anzeigen lassen. Eine Zuweisung dieses gerundeten Stings kann ich in dem Programm nicht entdecken. Dort wird der Originalwert auf 2 Stellen gerundet - mit dem bekannten - erklärbaren - Ergebnis.

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

runden.lsp.txt

Hallo Udo,

Zitat:

---

Original erstellt von CAD-Huebner:

Ich kann nur erkennen, dass du die die Werte mit RTOS hast anzeigen lassen. Eine Zuweisung dieses gerundeten Stings kann ich in dem Programm nicht entdecken. Dort wird der Originalwert auf 2 Stellen gerundet - mit dem bekannten - erklärbaren - Ergebnis.

---

ich habe meine Funktion geändert (siehe Anlage). Mit dieser Version sind die gerundeten Werte so, wie ich es erwartet habe.

Danke und viele Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Bernd,

könnte es auch so sein?

;;; ROUND (gile)
;; Round a number according to specified precision
;;
;; Arguments
;; num : the number to be rounded
;; prec : precision
;;
;; Examples
;;; (round-prec pi 0.01) -> 3.14
;;; (round-prec pi 1e-5) -> 3.14159
;;; (round-prec 5456.50 1.0) -> 5457.0
;;; (round-prec 5456.50 100) -> 5500

(defun round (num prec)
  (if (zerop prec)
    num
    (* prec
      (fix (if (minusp num)
      (- (/ num prec) 0.5)
      (+ (/ num prec) 0.5)
    )
      )
    )
  )
)

(defun RoundP(lstPoint intRound)
(mapcar '(lambda (X)(/ (fix (* X (expt 10 intRound)))(expt 10.0 intRound))) lstPoint)
)

;;---------------------------------------
Der Autor ist mir nicht bekannt.

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

ein paar Beiträge vorher im Text ...

(defun DT:ROUND (ZAHL BASIS / TEMP )
    (if (and(numberp ZAHL) (=(numberp BASIS))(> BASIS 0))
      (progn   
        (setq TEMP (/ (abs ZAHL)  BASIS))
        (cond
          ( (> (- TEMP (fix TEMP)) 0.5) (setq TEMP (+ (fix TEMP) 1)))
          ( (< (- TEMP (fix TEMP)) 0.5) (setq TEMP    (fix TEMP)  ))
          ( (= (- TEMP (fix TEMP)) 0.5)       
            (if (equal (/ (fix TEMP) 2.0) (fix(/ (fix TEMP) 2.0)) 0.001)
              (setq TEMP    (fix TEMP)  )
              (setq TEMP (+ (fix TEMP) 1))
            )
          )
        )   
        (setq TEMP (* BASIS TEMP (if (< Zahl 0 ) -1.0 1.0)))
      )
    )
    (if (=(type BASIS)'INT) (fix TEMP) TEMP) 
  )

Rundet auf vielfaches von Basis ... also bei 5 ... nächstes Vielfaches von 5 .. bei 0.001 auf die dritte Kommastelle usw

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Theodor, hallo Thomas,

danke für die Vorschläge. Ich werde sie im Einzelnen in meiner Programmumgebung testen.

Viele Grüße
Bernd

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP