Kehrwert in Lisp (Autodesk/Lisp)


	Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor	Thema: Kehrwert in Lisp (959 mal gelesen)
dan_rather Mitglied Techniker HLK Beiträge: 97 Registriert: 09.12.2003	erstellt am: 18. Okt. 2005 14:21 <-- editieren / zitieren --> Unities abgeben: Hallo zusammen, wie kann ich in Lisp den Kehrwert einer Zahl berechen? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>	erstellt am: 18. Okt. 2005 14:31 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather Hallo Dan, (setq a 50.0) => 50/1 (setq kehrwert (/ 1.0 a)) => 1/50 meinst Du das? ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
dan_rather Mitglied Techniker HLK Beiträge: 97 Registriert: 09.12.2003	erstellt am: 18. Okt. 2005 14:37 <-- editieren / zitieren --> Unities abgeben: im prinzip Ja. Nur wenn ich einen Wert habe < 0, z.B. 0.85 mekert Lisp: Division durch 0! Vieleicht gibts ja einen Befehl der mir die reziproke Zahl zurückgibt? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
tunnelbauer Ehrenmitglied V.I.P. h.c. Bauingenieur Beiträge: 7085 Registriert: 13.01.2004 ich hab eh keine Probleme damit...	erstellt am: 18. Okt. 2005 14:50 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather Wenn du einen Wert kleiner 0 hast... und dann schreibst du 0.85 - ist mir da was entgangen ? Teste mal: Code: (setq a 0.85) (/ 1 a) Bei mir klappt es hervorragend... (Ergebnis: 1.17647) ------------------ Grüsse Thomas [Diese Nachricht wurde von tunnelbauer am 18. Okt. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
dan_rather Mitglied Techniker HLK Beiträge: 97 Registriert: 09.12.2003	erstellt am: 18. Okt. 2005 14:52 <-- editieren / zitieren --> Unities abgeben: Tja bei mir auch, war ein Fehler im Übrigen Code der mir den Wert 0 geliefert hat. Sorry Danke für die Antworten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
joern bosse Ehrenmitglied Dipl.-Ing. Vermessung Beiträge: 1734 Registriert: 11.10.2004 Window 10 ACAD 2021 CIVIL 2021 BricsCAD V14-V22 Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz 16.0GB RAM NVIDIA GeForce GTX 1050<P>	erstellt am: 18. Okt. 2005 14:56 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather aber 0.85 ist doch nicht < 0, und wenn dann wäre es nicht schlimm. Du darfst nur nicht 0.0 verwenden. Befehl: (/ 1.0 0.85) 1.17647 dann kannst Du doch folgendes machen: (setq a 0.85) (if (/= a 0.0)(setq kehrtwert (/ 1.0 a))nil) ------------------ viele Grüße Jörn Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP
benwisch Mitglied Bautechniker, CAD-Konstrukteur Beiträge: 375 Registriert: 01.02.2001	erstellt am: 18. Okt. 2005 16:49 <-- editieren / zitieren --> Unities abgeben: Nur für dan_rather Hallo dan_rather, Zitat: Vieleicht gibts ja einen Befehl der mir die reziproke Zahl zurückgibt? Soweit mir bekannt ist: Nein. Schreibe dir doch eine Funktion und lege sie in deiner Bibo ab (ist nix dolles) Formel: Vorschlag: Code: ; Funktion gibt den reziproken Wert einer Zahl zurück. ; Argument: Integer oder Realzahl (defun :math:rezpro (#num) (cond ((= 0 #num) nil) ((expt #num -1.0)) ) ) Beispiele Funktionsaufruf: (:math:rezpro 5) => 0.2 ; (:math:rezpro -0.2) => -5.0 (:math:rezpro 0) => nil Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)