Naloga 3

Opomba: Napetosti so v pascalih [Pa].

Tenzor napetosti v poljubni točki in v točki T (2, 1, 3^(1/2))

In[9]:=

σij = {{3 x y, 5 y^2, 0}, {5 y^2, 0, 2 z}, {0, 2z, 0}} ; σijvT = σij //. {x> ... 2754;1, z->3^(1/2)} ; σijvT // MatrixForm // Print["[σij](T)=", #] & ;

[σij](T)= ( 6 5 0 ) ... 5 0 2 Sqrt[3] 0 2 Sqrt[3] 0

Napetosti vektor v točki  T (2, 1, 3^(1/2)), ki pripada ravnini z normalo  e_n

In[12]:=

en = {0, 1/2, 3^(1/2)/2} ; σn = σij . en //. {x2, y1, z->3^(1/2)} ; σn // MatrixForm // Print["σn(T)=", #] & ;

σn(T)= ( 5 ) - 2 3 Sqrt[3]

In[15]:=

Clear[σij, σijvT, en, σn] ;

Created by Mathematica  (October 30, 2003)