Matrix mit Vektorfunktion < Mathematica < Mathe-Software < Mathe < Vorhilfe
|
Guten Tag!
Ich habe eine dringende Frage und hoffe hier Hilfe zu finden. Ich will das Folgende in Mathematica erstellen
[mm] D(g)=\pmat{ g(x1) & & & & \\ &\ddots& & & \\ & & g(xi)& & \\ & & & \ddots& \\ & & & & g(xn) }
[/mm]
wobei [mm] D_{ij}=0 [/mm] für [mm] i\not=j
[/mm]
Ich wär riiiiesig dankbar über eine Möglichkeit wie ich das in Mathematica umsetzen kann.
Vielen dank im voraus!
Ich habe diese Frage in keinem Forum auf anderen Internetseiten gestellt.
|
|
| |
|
| Status: |
(Antwort) fertig  | | Datum: | 14:24 Mi 30.05.2012 | | Autor: | notinX |
Hallo,
> Guten Tag!
>
> Ich habe eine dringende Frage und hoffe hier Hilfe zu
> finden. Ich will das Folgende in Mathematica erstellen
>
> [mm]D(g)=\pmat{ g(x1) & & & & \\ &\ddots& & & \\ & & g(xi)& & \\ & & & \ddots& \\ & & & & g(xn) }[/mm]
>
> wobei [mm]D_{ij}=0[/mm] für [mm]i\not=j[/mm]
>
> Ich wär riiiiesig dankbar über eine Möglichkeit wie ich
> das in Mathematica umsetzen kann.
Du willst also eine Matrix erstellen? Das dürfte nicht zu viel verlangt sein.
Matrizen schreibt man in Mathematica so:
{{1,0,0},{0,1,0},{0,0,1}}
Das wäre eine 3x3 Einheitsmatrix.
Durch Eingabe von:
DiagonalMatrix[{1,1,1}]
erhältst Du das gleiche Resultat.
>
> Vielen dank im voraus!
>
> Ich habe diese Frage in keinem Forum auf anderen
> Internetseiten gestellt.
>
Gruß,
notinX
PS: Schau Dir mal die Mathematica-Hilfe an, die ist recht nützlich.
|
|
|
| |
|
Hallöle,
wenn ich Dich richtig verstehe, möchtest Du eine Diagonalmatrix, die g(xVektor) als Elemente auf der Hauptdiagonalen hat?
| 1: | In[1]:= xVektor=x/@Range[5]
| | 2: | Out[1]= {x[1],x[2],x[3],x[4],x[5]}
| | 3: | D ist bereits als Funktionsname (Ableitung) reserviert.
| | 4: | In[2]:= d[f_]=DiagonalMatrix[f/@xVektor]
| | 5: | Out[2]= {{f[x[1]],0,0,0,0},{0,f[x[2]],0,0,0},{0,0,f[x[3]],0,0},{0,0,0,f[x[4]],0},{0,0,0,0,f[x[5]]}}
| | 6: | In[3]:= d[Sqrt]//MatrixForm
| | 7: | Out[3]//MatrixForm=
| | 8: | Sqrt[x[1]] 0 0 0 0
| | 9: | 0 Sqrt[x[2]] 0 0 0
| | 10: | 0 0 Sqrt[x[3]] 0 0
| | 11: | 0 0 0 Sqrt[x[4]] 0
| | 12: | 0 0 0 0 Sqrt[x[5]]
|
oder eventuell auch:
| 1: | In[4]:= d2[f_,x_]:=DiagonalMatrix[f/@x]
| | 2: | In[5]:= d2[Sin,Range[0,Pi,Pi/3]]
| | 3: | Out[5]= {{0,0,0,0},{0,Sqrt[3]/2,0,0},{0,0,Sqrt[3]/2,0},{0,0,0,0}}]
|
Gruß,
Peter
)
|
|
|
|
