Hallo liebe Demug User,
ich hoffe auf wie übliche kompetente Hilfe... folgendes Problem stellt
sich bei mir
Remove["Global`*"];
Matrix2D = {{A, 0, f[t]*p1, -f[t]*p1, f[t]*p3, -f[t]*p3, 0, 0}, {0, A,
f[t]*p2, -f[t]*p2, 0, 0, f[t]*p3, -f[t]*p3},
{f[t]*p1, f[t]*p2, (1/3)*B, 0, 0, 0, 0, 0}, {-f[t]*p1, -f[t]*p2, 0,
(1/3)*B, 0, 0, 0, 0},
{f[t]*p3, 0, 0, 0, (1/4)*B, 0, 0, 0}, {-f[t]*p3, 0, 0, 0, 0,
(1/4)*B, 0, 0},
{0, f[t]*p3, 0, 0, 0, 0, (1/3)*B, 0}, {0, -f[t]*p3, 0, 0, 0, 0, 0,
(1/3)*B}};
Eigenvalues[Matrix2D]
allerdings entwickelt sich der Output als außerordentlich seltsam,
siehe (Ausschnitt)
{B/4, B/3, B/3, Root[36*#1^5 - 72*A*#1^4 - 33*B*#1^4 + 36*A^2*#1^3 +
10*B^2*#1^3 - 72*p1^2*#1^3 -
72*p2^2*#1^3 - 108*p3^2*#1^3 + 66*A*B*#1^3 - 36*p3*Subscript[p,
3]*#1^3 - B^3*#1^2 -
20*A*B^2*#1^2 + 72*A*p1^2*#1^2 + 42*B*p1^2*#1^2 + 72*A*p2^2*#1^2 +
42*B*p2^2*#1^2 +
108*A*p3^2*#1^2 + 66*B*p3^2*#1^2 - 33*A^2*B*#1^2 +
36*A*p3*Subscript[p, 3]*#1^2 + usw
Das #1 kann ich nicht zuordnen, untersuche ich andere Systeme erhalte
ich nicht zwingend eine Raute ?! Erste Frage hier, was mache ich falsch
? Die zweite Frage ist etwas schwieriger (zumindest für mich), vor den
Koeffizienten p steht eine Funktion f(t) die ich gerne so wählen möchte
(bzw. berechnen lassen möchte), daß "alle" Eigenwerte reell und positiv
werden (wenn das überhaupt geht ?!). A,B und sämtliche P Werte sind
keine Funktionen von t (Zeit).
Fragen, Anregungen, Hilfe sind erwünscht.
Mit freundlichen Grüßen
Winfried Bilgic
DMUG-Archiv, http://www.mathematica.ch/archiv.html