Orte erkunden 3 Orte gefunden
Prof. Dr. Dörte Haftendorn 2002, 16.5.08 MuPAD 4 Update vom 16. Mai 08
http:haftendorn.uni-lueneburg.de www.mathematik-verstehen.de
++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
../kurvenheft/013b-orte_gefunden_3.pdf
plot(plot::Implicit2d(y^2*(b-y)=x^2*(b+y)|b=4,
x=-6..6,y=-4..5), LineColor=[1,0,0], LineWidth=1);
Im Folgenden wird die Lösung mit MuPAD erzeugt:
eins:=u/b=(u-x)/y;
zwei:=(x-u)^2+y^2=u^2;
Eine Gleichung nach u aulösen
lo:=solve(eins,u)
Das Wichtige herausnehmen
ulo:=lo[2][1]
In die andere Gleichung einsetzen
simplify(zwei|u=ulo);
kurve:=simplify(zwei*(b-y)^2|u=ulo);
und zeichnen:
plot(plot::Implicit2d(kurve|b=4,
x=-6..6,y=-4..5), LineColor=[1,0,0], LineWidth=1);
Man sieht, dass man nun eine Kurve 4. Grades hat.
Allerdings ist die obereb Gerade y=b und das hat man bei
der Multiplikation mit (y-b)^2 ausschließen müssen.
Für y=b war ja schon u nicht bestimmbar.