Naloga 4

In[16]:=

σij = {{1, a, b}, {a, 1, c}, {b, c, 1}} σ ; en = 1/Sqrt[3] {1, 1, 1} ; σn = σij . en ; Solve[σn {0, 0, 0}, {a, b, c}]

Out[19]=

{{a -1/2, b -1/2, c -1/2}}

In[20]:=

Clear[a, b, c, σ, σij, en, σn] ;

Created by Mathematica  (October 30, 2003)