AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein Gleichungssysteme in Maple 9 lösen
Thema durchsuchen
Ansicht
Themen-Optionen

Gleichungssysteme in Maple 9 lösen

Offene Frage von "Nikolas"
Ein Thema von Nikolas · begonnen am 5. Jun 2007
Antwort Antwort
Benutzerbild von Nikolas
Nikolas

Registriert seit: 28. Jul 2003
1.528 Beiträge
 
Delphi 2005 Personal
 
#1

Gleichungssysteme in Maple 9 lösen

  Alt 5. Jun 2007, 09:44
Hallo

Ich will den Schnittpunkt zweier gedrehter Ellipsen berechnen. Da das auf dem Papier doch etwas groß werden würde, wollte ich dafür Maple einsetzen. Nur habe ich bis jetzt noch nicht viel damit gearbeitet.
Mein Ansatz sieht so aus:
Code:
> with(LinearAlgebra):

// Die Paramterdarstellung der ersten Ellipse:
A1 bis D2,x1 bis y2  sind bekannte Werte, ich suche also nur noch nach theta und phi.
> E1:= Matrix( [[A1*cos(theta)-B1*sin(theta)+x1],[C1*cos(theta)+D1*sin(theta)+y1]]);

                 [A1 cos(theta) - B1 sin(theta) + x1]

           E1 := [                                  ]

                 [C1 cos(theta) + D1 sin(theta) + Y1]
// und die der zweiten Ellipse
> E2:= Matrix( [[A2*cos(phi)-B2*sin(phi)+x2],[C2*cos(phi)+D2*sin(phi)+y2]]);

                   [A2 cos(phi) - B2 sin(phi) + x2]

             E2 := [                              ]

                   [C2 cos(phi) + D2 sin(phi) + Y2]

// Diese Matrix sollte dann Null werden
> E3=E1-E2;

E3 = [[A1 cos(theta) - B1 sin(theta) + x1 - A2 cos(phi) + B2 sin(phi) - x2],



  [C1 cos(theta) + D1 sin(theta) + Y1 - C2 cos(phi) - D2 sin(phi) - Y2]]


> vars := {theta,phi};

                      vars := {phi, theta}

// Nochmal ausgeschrieben als Gleichungssystem
> L := { A1*cos(theta)-B1*sin(theta)+x1-A2*cos(phi)+B2*sin(phi)-x2=0, C1*cos(theta)+D1*sin(theta)+Y1-C2*cos(phi)-D2*sin(phi)-Y2=0};

L := {A1 cos(theta) - B1 sin(theta) + x1 - A2 cos(phi) + B2 sin(phi) - x2 = 0,



  C1 cos(theta) + D1 sin(theta) + Y1 - C2 cos(phi) - D2 sin(phi) - Y2 = 0}

// So und hier kommt das Problem: Ich habe leider kein Lineares Gleichunssystem, da die Variablen immer in sin/cos Vorkommen.
> (A,c) := GenerateMatrix(L,vars);

Error, (in GenerateMatrix) equations must be linear in phi, theta
So ganz in der linearen Algebra bleibe ich nicht, aber ich weiss nicht, welche andere Befehlssammlung mir da weiterhelfen kann.

Weiss jemand, wie ich das lösen kann? Ich geh fast mal davon aus, dass es da einen bestimmten Befehl gibt, dem ich L und vars übergebe und der mir dann einen (wahrhscheinlich recht unschöne) Lösung für theta und phi zurückgibt.
Natürlich wird es für sehr viele Belegungen der Parameter A1..D2 und x1..y2 keine Schnittpunkte geben, für manche einen, oder zwei und für eine Belegung unendlich viele Lösungen, aber ich hoffe mal, dass Maple das auch sieht, oder dass ich es aus der Antwort für theta und phi rauslesen kann.

Wenn also ein MapleKenner hier ist...

Nikolas
Erwarte das Beste und bereite dich auf das Schlimmste vor.
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 12:14 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz