|
|
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 |