Liebe Mathematica Fans,
Ich vesuche in Mathematica eine Matrix-Gleichung zu
lösen. Ich bin nicht sicher, ob ich das Problem
korrekt formuliert habe.
(X+Transpose[X] * P) * EPS==B
Gesucht wird natürlich die Matrix X, die ebenso wie P
und EPS quadratisch ist.
Wobei:
Eps=IdentityMatrix[dim]+DiagonalMatrix[ConstantArray[?,dim-1],1]+DiagonalMatrix[ConstantArray[?,dim-1],-1];
und
Pmat=Table[Join[ConstantArray[0,dim-i],{1},ConstantArray[0,dim-(dim-i+1)]],{i,1,dim}];
?dim? bestimmt die Dimension der Matrix und ? ist eine
Konstante.
Mich interessiert, ob Mathematica eine Lösung für
dim=16 finden kann.
Ich habe versucht zu überprüfen, ob die
Inverse[Eps]-Matrix symmetrisch ist. Komischerweise
ist bis dim=11 die Inverse[Eps] symetrisch, ab dim 12
nicht mehr, und das verstehe ich nicht.
Wie muss ich das Problem formulieren, damit ich eine
elegante Lösung für X bekomme?
Mathematica File ist in Attachment angehängt.
__________________________________________________________
Gesendet von Yahoo! Mail.
Mehr Möglichkeiten, in Kontakt zu bleiben. http://de.overview.mail.yahoo.com
Matrix_Experiments.nb
Description: 2585992221-Matrix_Experiments.nb
