| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Prozent zu Grad, Grad zu Prozent (1833 mal gelesen)
|
ryfCAD Mitglied Architekt
Beiträge: 126 Registriert: 21.06.2005 ryfCAD rC Architektur für AutoCAD und GstarCAD
|
erstellt am: 20. Aug. 2019 11:46 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ich kapiere nicht so ganz, wie Lisp folgende Berechnungen erstellt, oder anders gesagt, wie lauten die Formeln korrekt für Lisp? 45° sind 100% ist eigentlich klar. ---------------------------- Die Formel Grad in Prozent: Winkel in Prozent = tan(Winkel in Grad) * 100% (* (tan 45) 100) 161.97751906 wobei (tan 45) 1.61977519 Ergebnis sollte 100 sein ----------------------------
Die Formel Prozent in Grad:
Winkel in Grad = atan(Winkel in Prozent / 100%) (atan (/ 100 100)) 0.78539816 wobei (atan 100) 1.56079666 Ergebnis sollte 45 sein Bitte möglichst einfach erklären
------------------ Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 20. Aug. 2019 11:48 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
Zitat: 45° sind 100% ist eigentlich klar.
Eigentlich ist das nicht vollkommen klar, sondern vollkommender Quatsch! Zumindst in dem Zusammenhang mit Mathematik. EDIT: Sorry regen mich gerade über sowas an anderer (nicht Lisp) Stelle auf, komme aber gerne später auf den Fall zurück wenn sich noch keiner bemühte bis dahin. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 20. Aug. 2019 12:11 <-- editieren / zitieren -->
Im Straßenverkehr sind 10% Steigung auf 100m Länge = 10m Höhenunterschied. Die Steigung ist somit die Gegenkathete. |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 20. Aug. 2019 12:43 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
Zitat: Original erstellt von ryfCAD:
Die Formel Grad in Prozent:Winkel in Prozent = tan(Winkel in Grad) * 100% (* (tan 45) 100) ; Wir kennen "deine" TAN-Funktion nicht, vielleicht wartet da ja ein Problem drin? ----------------------------
Die Formel Prozent in Grad:
Winkel in Grad = atan(Winkel in Prozent / 100%) (atan (/ 100 100)) 0.78539816 wobei (atan 100) 1.56079666 Ergebnis sollte 45 sein ; In beiden Fällen (Übergabe eines Argumentes) erwartet ATAN ein Bogenmaß, weder 45 noch 100 sollen in deinem Fall ein Bogenmaß sein, richtig?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 20. Aug. 2019 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
Und für diejenigen die nicht zu Lisp greifen können (LT-User), oder allgemein die CAL/KAL-Nutzer die müssen bedenken abstatt TAN TANG zu nutzen, ATAN nur ein Argument erwartet und dieses wie TANG in (Dezimalgrad) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
TC17pro Ehrenmitglied V.I.P. h.c. TZ der hilft --> PM
Beiträge: 3082 Registriert: 20.08.2013
|
erstellt am: 20. Aug. 2019 14:17 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
|
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 20. Aug. 2019 14:29 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
Wie du ja aus demselben Text ersehen kannst (Kreis mit anderer Farbe), habe ich mich einmal unten/rechts vertippt. DANKE für den Hinweis Korrigiert. EDIT: (die Antwort wurde VOR der finalen Korrektur gepostet ) Passt es jetzt zueinander? Danke Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ryfCAD Mitglied Architekt
Beiträge: 126 Registriert: 21.06.2005 ryfCAD rC Architektur für AutoCAD und GstarCAD
|
erstellt am: 20. Aug. 2019 14:47 <-- editieren / zitieren --> Unities abgeben:
@cadffm: natürlich ist das Quatsch, mathematisch gesehen. Aber bei Neigungsberechnungen in der Architektur sind 45° eben doch 100% Die Umrechnung Prozent zu Winkel habe ich hin gekriegt: (setq Prozent (getreal "Prozent % eingeben: ")) (setq Winkel (/ (* (ATAN (/ Prozent 100.0)) 180.0) pi)) Die umgekehrte Operation jedoch nicht. Natürlich gibt es in VLisp keine Funktion TAN, Fehler von mir, aber es wird seltsamerweise keine Fehlermeldung ausgegeben. Die Funktion TAN lässt sich jedoch herstellen: (defun c:tan (x) (/ (sin x)(cos x)) (princ) ) Ich versuche es weiter... ------------------ Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 21533 Registriert: 03.06.2002 Alles
|
erstellt am: 20. Aug. 2019 15:04 <-- editieren / zitieren --> Unities abgeben: Nur für ryfCAD
[Edit: soweit wir hier, wie gewöhnlich,von Autodesks AutoLISP sprechen] >"Natürlich gibt es in VLisp keine Funktion TAN, Fehler von mir, aber es wird seltsamerweise keine Fehlermeldung ausgegeben." Das ist nur dadurch erklärbar: Du definierst die Funktion vorher. >"Die Funktion TAN lässt sich jedoch herstellen:" Ähm, ja klar. 1. Hast du das bereits bei dir getan, 2. habe ich das bei mir getan.. (defun c:tan (x) ; ein defun C: ist hier wohl fehl am Platz, wir wollen ja ein Argument übergeben und keinen Befehl definieren. (/ (sin x)(cos x)) (princ) ; dieses princ würde die Funktion vollends nutzlos machen ) _
(defun tan (x) (/ (sin x)(cos x)) ) >"Ich versuche es weiter..." Damit erwartet deine tan-Funktion einen Winkel im Bogenmaß und tan von 45Bogenmaß ist 1.61978
Es scheint als ob deine *diristnichtmehrbekanntwodieFunktiondefinertundgeladenwird TAN* praktisch identisch arbeitet, also ein Bogenmaß erwartet. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
ryfCAD Mitglied Architekt
Beiträge: 126 Registriert: 21.06.2005 ryfCAD rC Architektur für AutoCAD und GstarCAD
|
erstellt am: 20. Aug. 2019 15:37 <-- editieren / zitieren --> Unities abgeben:
Also, ich habe die Lösung: ;--------------------------------------------------- ;Funktion Tangens TAN:
(defun tan (x) (cond ((equal (cos x) 0.0 1.0e-16) (if (minusp x) -1.0e200 1.0e200 ) ) (T (/ (sin x) (cos x)) ) ) ) ;--------------------------------------------------- ;Funktion Umrechnung Grad zu Bogenmass (defun G2B (x) (* (/ (* pi 2) 360) x) ) ;--------------------------------------------------- Funktion Umrechnung Winkelmass zu Prozent (defun c:rC-Winkel2Prozent (/ Prozent Winkel Prozentstr Winkelstr) ;Meldung (princ " ") (princ "\nrC © ryfB FUNKTION: Umrechnung ° -> %.\n ") (princ) ;Winkeleingabe (setq Winkel (getreal "Winkel eingeben: ")) ;Umrechnung in Bogenmass (setq WinkelB (G2B Winkel)) ;Umrechnung in Prozent (setq Prozent (* (TAN WinkelB) 100)) (setq Winkelstr (rtos Winkel 2 2)) (setq Prozentstr (rtos Prozent 2 2)) (if Prozent (progn (alert (strcat "\n rC © ryfB \n Die Umrechnung Grad auf %:\n\n" Winkelstr "° = "Prozentstr "% \n" ) ) ) ) (princ) ) ;--------------------------------------------------- ;Funktion Umrechnung Prozent zu Winkelmass
(defun c:rC-Prozent2Winkel (/ Prozent Winkel Prozentstr Winkelstr) ;Meldung (princ " ") (princ "\nrC © ryfB FUNKTION: Umrechnung % -> °.\n ") (princ) (setq Prozent (getreal "Prozent % eingeben: ")) (setq Winkel (/ (* (ATAN (/ Prozent 100.0)) 180.0) pi)) (setq Prozentstr (rtos Prozent)) (setq Winkelstr (rtos Winkel 2 2)) (if Winkel (progn (alert (strcat "\n rC © ryfB \n Die Umrechnung % auf Grad:\n\n" Prozentstr "% = " Winkelstr "° \n" ) ) ) ) (princ) ) Nun die Meldungen könnt ihr anpassen wie ihr wollt.
Vielen Dank für eure Mithilfe! ------------------ Auch für LT gibt es Lösungen, aber Lisp erleichtert das Leben ungemein Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |