> das einfachste w"are doch
>
> manin::In[1]:= A = {{a11, a12}, {a21, a22}};
>
> manin::In[2]:= B[o_Integer] := Array[b, {o, o}] /; o > 0
>
> manin::In[3]:= A . B[2] //MatrixForm
>
> manin::Out[3]//MatrixForm=
>
> > a11 b[1, 1] + a12 b[2, 1] a11 b[1, 2] + a12 b[2, 2]
>
> a21 b[1, 1] + a22 b[2, 1] a21 b[1, 2] + a22 b[2, 2]
>
> manin::In[4]:= Quit[]
>
> die Vereinfachung auf rechteckige Matrizen B[o1_Integer, o2_Integer]
> ist offensichtlich.
>
> Gru3
> U. Krause
>
>
Besten Dank Udo, das hilft mir zunaechst eine grossen Schritt weiter.
Doch betrachtet man das follgende Beispiel, dann sieht man wie simpel
die Loesung ausfaellt wenn man nur Real elemente m zulaesst, dies
geht "nacher mit" /. Conjugate->Identity
kann man mathematika den nicht vorher schon sagen das die m's Real sind ?
M=Array[m, {2,1}]
InputForm[PseudoInverse[%]]
InputForm[% /. Conjugate->Identity]
{{m[1, 1]}, {m[2, 1]}}
{{Conjugate[m[1, 1]]/(Conjugate[m[1, 1]]*m[1, 1] + Conjugate[m[2, 1]]*m[2, 1]),
Conjugate[m[2, 1]]/(Conjugate[m[1, 1]]*m[1, 1] + Conjugate[m[2, 1]]*m[2, 1])}}
{{m[1, 1]/(m[1, 1]^2 + m[2, 1]^2),
m[2, 1]/(m[1, 1]^2 + m[2, 1]^2)}}
Robert
|