|
Lisp : OT: Funktion polar in C++
Bernd10 am 18.10.2010 um 13:45 Uhr (0)
Hallo,zunächst schon mal Entschuldigung für meine Frage, aber ich weiß im Moment nicht mehr weiter bei meinem Problem.Ich brauche die Funktionalität der Lisp-Funktion polar in C++, d.h. ich habe einen Punkt, eine Länge und einen Winkel. Ich möchte vom bekannten Punkt aus entsprechend der Länge und dem Winkel den neuen Punkt berechnen.Wie muss ich das in C++ machen?Danke im Voraus und viele GrüßeBernd
|
| In das Form Lisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 13:58 Uhr (1)
Hallo cadwomen,danke für Deine Antwort. Mit diesem Programmcode erhalte ich das erwartete Ergebnis:(defun test1 ( / cn m1 m2 ) (setq p1 (list -2.0 4.0 0.0)) (setq p2 (list 1.0 -3.0 0.0)) (setq p3 (list 5.0 7.0 0.0)) (setq m1 (mid p1 p2) m2 (mid p2 p3) ) (if (setq cn (inters m1 (polar m1 (+ (angle p1 p2) (/ pi 2.)) 1.0) m2 (polar m2 (+ (angle p2 p3) (/ pi 2.)) 1.0) nil ) ) (list cn (distance cn p1)) ) ; if) ; defun(defun mid ( a b ) (mapcar (function (lambd ...
|
| In das Form Lisp wechseln |
 |
Lisp : Radius über drei Punkte berechnen
Bernd10 am 08.11.2016 um 10:26 Uhr (15)
Hallo,ich habe nun eine Lösung für meine Anforderungen gefunden. Hier mein Programmcode dazu:(setq rabst3 0.004) ; Abstand zum dritten Punkt(setq rwin1bm (angle lpktvla lpktla))(setq rwin2bm (angle lpktla lpkta))(setq lpkt31 lpktvla)(setq lpkt31 (polar lpkt31 rwin1bm (/ rabst1 2)))(setq lpkt31 (polar lpkt31 (+ rwin1bm (wingrbm rwin3)) rabst3))(setq lpkt32 lpktla)(setq lpkt32 (polar lpkt32 rwin2bm (/ rabst2 2)))(setq lpkt32 (polar lpkt32 (+ rwin2bm (wingrbm rwin3)) rabst3))(setq lzent1 (zentbogttkrw lpktvla ...
|
| In das Form Lisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 13:28 Uhr (15)
Hallo,ich versuche den Radius eines Kreises über drei vorhandene Punkte zu berechnen. Ich mache einen Fehler und finde ihn aber nicht.Hier mein Programmcode dazu:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) (setq lpkt2 (list 1.0 -3.0 0.0)) (setq lpkt3 (list 5.0 7.0 0.0)) (setq rabst (distance lpkt1 lpkt2)) (setq ra (/ rabst 2.0)) (setq rwin12 (angle lpkt1 lpkt2)) (setq lmp12 (polar lpkt1 rwin12 ra)) (setq rwinm3 (angle lmp12 lpkt3)) (setq rabstm3 (distance lmp12 lpkt3)) (setq rm32 (expt rabstm3 2)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Radius über drei Punkte berechnen
Bernd10 am 07.11.2016 um 14:16 Uhr (15)
Hallo Roland,danke für Deine Interesse.Zitat:Original erstellt von Roland Schröder:... bräuchte ein bisschen Erläuterung dazu. (Oft zeigt sich der Fehler ja auch schon beim Verfassen der Erklärung.)Hier einige Erklärungen zu meinem Programmcode:( defun test ( / ) (setq lpkt1 (list -2.0 4.0 0.0)) ; Punkt 1 festlegen (setq lpkt2 (list 1.0 -3.0 0.0)) ; Punkt 2 festlegen (setq lpkt3 (list 5.0 7.0 0.0)) ; Punkt 3 festlegen (setq rabst (distance lpkt1 lpkt2)) ; Abstand von Punkt 1 zu Punkt 2 (setq ra (/ rabst 2 ...
|
| In das Form Lisp wechseln |
 |
Lisp : Schnittpunkt ohne Geometrie
Bernd10 am 02.08.2011 um 09:59 Uhr (0)
Hallo Marco,danke für Deine Antwort.Ich bin mit dem unten stehenden Programmcode soweit, dass ich den Schnittpunkt einer Geraden zum Kreisbogen berechnen kann. Zum Verständnis ist in der Anlage ein Bild enthalten. Ich möchte dabei den Schnittpunkt der schwarze Linie mit dem schwarzen Kreisbogen ermitteln. Die gelbe Linie ergibt sich aus dem Zentrum des Kreisbogen und dem berechneten Schnittpunkt einer Geraden mit dem folgenden Programmcode. ( defun schnpkt_kreis_linie ( lkbzentrum rradius llinspkt llinepkt ...
|
| In das Form Lisp wechseln |
|
Lisp : OT: Funktion polar in C++
Bernd10 am 19.10.2010 um 09:41 Uhr (0)
Hallo Alfred,ich habe es inzwischen so umgesetzt:double dWinkelEKBm = M_PI * (dWinkelEK / 180.0); // Winkel im Bogenmaßdouble dXNeu = dXAlt + cos(dWinkelEKBm) * dOffset;double dYNeu = dYAlt + sin(dWinkelEKBm) * dOffset;Danke und viele GrüßeBernd
|
| In das Form Lisp wechseln |
