Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Prozent zu Grad, Grad zu Prozent

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
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


Sehen Sie sich das Profil von ryfCAD an!   Senden Sie eine Private Message an ryfCAD  Schreiben Sie einen Gästebucheintrag für ryfCAD

Beiträge: 126
Registriert: 21.06.2005

ryfCAD rC Architektur für AutoCAD und GstarCAD

erstellt am: 20. Aug. 2019 11:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 20. Aug. 2019 11:48    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich

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 oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat

Im Straßenverkehr sind 10% Steigung auf 100m Länge = 10m Höhenunterschied.
Die Steigung ist somit die Gegenkathete.

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 20. Aug. 2019 12:43    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich


190820-3.JPG

 
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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 20. Aug. 2019 13:05    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich

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



Sehen Sie sich das Profil von TC17pro an!   Senden Sie eine Private Message an TC17pro  Schreiben Sie einen Gästebucheintrag für TC17pro

Beiträge: 3082
Registriert: 20.08.2013

erstellt am: 20. Aug. 2019 14:17    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich


tan-atan_190820-3.JPG

 
Hallo,

Wissenswertes

Stimmen deine Sätze auf dem Bild im Anhang, oder ein Copy-Paste-Fehler???

------------------
Freundliche Grüße
TC17pro

Über eine Rückmeldung würde ich mich freuen, Danke.
Meine Version TurboCAD V 17.2.77.1 Professional
Für die erstellten Beiträge ist die Haftung, Garantie und Gewährleistung ausgeschlossen.
Nettiquette-----Sys-Info-----Richtig fragen
Dateianhänge hochladen
So sagt man Dankeschön - Unities

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

cadffm
Moderator
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 20. Aug. 2019 14:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich

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


Sehen Sie sich das Profil von ryfCAD an!   Senden Sie eine Private Message an ryfCAD  Schreiben Sie einen Gästebucheintrag für ryfCAD

Beiträge: 126
Registriert: 21.06.2005

ryfCAD rC Architektur für AutoCAD und GstarCAD

erstellt am: 20. Aug. 2019 14:47    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

@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
良い精神




Sehen Sie sich das Profil von cadffm an!   Senden Sie eine Private Message an cadffm  Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 21533
Registriert: 03.06.2002

Alles

erstellt am: 20. Aug. 2019 15:04    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für ryfCAD 10 Unities + Antwort hilfreich

[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


Sehen Sie sich das Profil von ryfCAD an!   Senden Sie eine Private Message an ryfCAD  Schreiben Sie einen Gästebucheintrag für ryfCAD

Beiträge: 126
Registriert: 21.06.2005

ryfCAD rC Architektur für AutoCAD und GstarCAD

erstellt am: 20. Aug. 2019 15:37    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz