---

Hilfe,
wie kriege ich die .0 weg? Eine Funktion wie INT habe ich nicht gefunden.

Schöne Grüße
Bernd

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

---

Hallo,

interessant wäre noch die Programmiersprache, etc.

gruss
cartoonhero

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

---

In LISP (truncate 25.0)

------------------
meine LISP-Makros sind auf Heikos Hilfeseite
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Hallo,
meine Frage bezieht sich auf Lisp.

Die 25.0 ist ein String (war mir nicht klar). Damit kann ich die .0 natürlich abschneiden.
Unabhängig davon hätte ich gerne gewusst, wie man einen solchen String in eine Zahl wandelt. Gibt es eine Funktion oder muss mann eine erstellen?

Schöne Grüße
Bernd

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

---

@Bernd

Dazu gibt es in LISP: read-from-string
(setf zahl (read-from-string string))

Eine Zahl kannst du auch umgekehrt in einen String wandeln:
(setf string (oli::sd-num-to-string zahl))

HTH

Gruss
RainerH.

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

---

Sehr schön,
das ergibt dann eine Sequenz wie folgende:

(display(oli:sd-num-to-string(truncate(read-from-string "25.0"))))

Schöne Grüße
Bernd

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

---

@Bernd

Geht auch ohne truncate - probiers mal aus !!

Truncate bewirkt:
truncate and ftruncate produce a quotient that has been truncated towards zero; that is, the quotient represents the mathematical integer of the same sign as the mathematical quotient, and that has the greatest integral magnitude not greater than that of the mathematical quotient.

HTH

Gruss
RainerH.

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

---

Hallo,

Die Funktion sd-num-to-string hat einen Parameter der angibt, wieviele Nachkommastellen im String bleiben sollen.

(sd-num-to-string number [digits])

Lies mal nach in der Developers Kit Doku.

Gruss Dorothea

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

---

Ich mache hier mal weiter, da ich nur noch 1 Problem habe.

Und zwar muss ich auch von einer Variablen die Nachkommastellen
weghaben (muss aufgerundet sein).
Dazu benutze ich (sd-num-to-string VARIABLE 0)

Leider bleibt aber immer die erste Nachkommastelle stehen,
also aus 15.12124 macht er 15.1 und nicht wie er sollte 15.

------------------
OSD 13.2

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

---

Ausser sd-num-to-string gibt es in Common Lisp mindestens 8 Funktionen zum Runden; da sollte fuer jeden Geschmack und Bedarf etwas dabei sein. Siehe http://www.lisp.org/HyperSpec/Body/fun_floorcm_f_undcm_fround.html

In dem von Dir beschriebenen Fall tut es beispielsweise (round):

Code:

---

  (round some-variable)

---

(format) bietet darueber hinaus noch weiterreichende Moeglichkeiten der Formatierung von Fliesskommazahlen, falls einfache Rundungen nicht reichen sollten.

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Hallo zusammen,
mich als LISP-unkundiger macht das nicht wirklich schlau.

Ich habe in einem vorhandenen Makro eine neuen Wert berechnen und per

(display (format nil " ~Aqm "
              (sd-num-to-string zuschnitt 6)))

anzeigen lassen.

Nun ist es leider so, dass dieser "zuschnitt" eine relativ kleine Zahl werden kann und in der Form 3,525E-005 angezeigt wird. Ich hab mit der Zahl keine sorgen aber unsere Zeichnerinnen stellt diese vor neue Herrausforderungen.

Ich kann doch sicherlich diese Zahl auch einfach so (0,00003525) anzeigen. Aber wie?

Hat jemand einen Tipp für mich?

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

---

Zitat:

---

mich als LISP-unkundiger macht das nicht wirklich schlau.

---

Wie auch - die Diskussion ging ja bisher ums Runden, und bei Dir geht's nicht ums Runden, sondern um die wahlweise Anzeige einer Fliesskommazahl in nicht-wissenschaftlicher Darstellung.

Aber die Loesung ist sehr einfach: ~F statt ~A.

Code:

---

(display (format nil " ~,6Fqm " zuschnitt))

---

Mehr dazu beispielsweise unter http://www.gigamonkeys.com/book/a-few-format-recipes.html  und http://dept-info.labri.fr/~strandh/Teaching/MTP/Common/David-Lamkins/chapter24.html

Claus

------------------
CoCreate OneSpace Modeling FAQ: http://www.clausbrod.de/OneSpaceModeling/

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

---

Super, Danke, hat geklappt!

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

---

Hallo,

ich würde das Thema gerne noch mal aufgreifen. Bin aus den Kommentaren nicht wirklich schlau geworden.

Wie bekomme ich eine Zahl aufgerundet?
mit: (display (round 1.2345678))
wird ja nur auf die 1 gerundet. Wie bekomme ich 1.23 angezeigt?
Oder muss ich das immer erst in einen String umwandeln und dann wieder zurück?
Wobei:
(display (read-from-string (format nil (sd-num-to-string 1.2345678 3))))
irgendwie auch keine Rundung erfolgt ist.
Hier wird der Wert nicht gerundet, sondern nur die Darstellung auf 3 Stellen begrenzt, die anderen Nachkommestellen gibt es immer noch...

------------------
Gruß Peter

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

---

Zitat:

---

Original erstellt von Greskamp:

mit: (display (round 1.2345678))
wird ja nur auf die 1 gerundet. Wie bekomme ich 1.23 angezeigt?

---

Code:

---

(display (/ (round (* 1.2345678 100)) 100))

---

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

Hallo Walter,

da kommt dann leider das hier raus.

123/100
Also ei mir zumindest.
Aber der Gedanke ist gut, erst mit 100 multiplizieren. dann runden und dann wieder teilen..
aber bekomme jetzt nur einen Text raus.

------------------
Gruß Peter

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

---

LISP erkennt die Division von zwei Ganzzahlen und formatiert das Ergebnis als Bruchzahl
Das lässt sich ganz einfach überlisten:

Code:

---

(display (/ (round (* 1.2345678 100)) 100.0))

---

------------------
meine LISP-Makros sind auf osd.cad.de Disclaimer
Grüße aus Wien

Walter

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

---

krass... auch auf alles eine Lösung.. 
Danek dir

------------------
Gruß Peter

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

---

Die Beschränkung der Nachkommastellen kann man auch gleich von (format) miterledigen lassen. Beispiel für zwei Nachkommastellen:

Code:

---

(FORMAT NIL "~,2F" 46535.645563) ;; Ergebnis: "46535.64"

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

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

---

Hallo Claus, wäre aber mathematisch nicht korrekt.

------------------
kjw

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

---

Zitat:

---

Original erstellt von karl-josef_wernet:
Hallo Claus, wäre aber mathematisch nicht korrekt.

---

Bei meinem Hinweis zu (format) ging es zunächst nur darum, wie man es mit einem Minimum an Code hinbekommt, n Nachkommastellen (im Beispiel 2) auszugeben. Das tut der Beispielcode auch korrekt.

Die Rundung kann man als getrennte Aufgabe betrachten. Für zwei Nachkommastellen vielleicht so:

Code:

---

(defun format-and-round(value)
  (format nil "~,2F" (+ 0.005 value)))

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

[Diese Nachricht wurde von clausb am 27. Nov. 2015 editiert.]

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