Positive und reelle Eigenwerte...

[Winfried Bilgic <4Winne@XXXXXXX.de>]

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