Example 3

edit

Given:

A stress field whose components in the basis   are given by the matrix

 

Find:

  1. Assuming negligible body forces, show whether this field satisfies equilibrium.
  2. Find the traction acting at a point P whose position vector is   acting on a plane  .
  3. Determine the normal traction at this point on the plane.
  4. Determine the projected shear traction at this point on the plane.
  5. Determine the principal stresses at point P.
  6. Determine the principal directions of stress at point P.

Solution

edit

This problem is very similar to example 2.

The stress is a function of   and  . We first plug the stress into the equilibrium equations (Cauchy's first law) and find that the sum is zero. Hence the stress satifies equilibrium.

Next, we find the stress at the given point byplugging in the values of   and   into the given stress.

Then we find the normal to the given plane   using the relation

 

and find the traction vector and thenormal and projected shear tractions.

We find the eigenvalues (principal stresses) by first forming the cubic characteristic equation and then solving for it. Then we plug the values of the principal stresses into the eigenfunction and solve for the direction of the principal strains.

Since the stress tensor is symmetric, we need an extra relation between  ,  , and   to reduce the system down to two equations and two unknowns. This relation is  , which means that each eigenvector is a unit vector.

The Maple output is shown below.

> with(linalg):
> sigma :=
> linalg[matrix](3,3,[6*x1*x3^2,0,-2*x3^3,0,1,2,-2*x3^3,2,3*x1^2]);

                           [       2              3]
                           [6 x1 x3     0    -2 x3 ]
                           [                       ]
                  sigma := [   0        1      2   ]
                           [                       ]
                           [      3              2 ]
                           [ -2 x3      2    3 x1  ]

> e1 := linalg[matrix](3,1,[1,0,0]):
> e2 := linalg[matrix](3,1,[0,1,0]):
> e3 := linalg[matrix](3,1,[0,0,1]):
> sigi1i := diff(sigma[1,1],x1)+diff(sigma[2,1],x2)+diff(sigma[3,1],x3);

                             sigi1i := 0

> sigi2i := diff(sigma[1,2],x1)+diff(sigma[2,2],x2)+diff(sigma[3,2],x3);

                             sigi2i := 0

> sigi3i := diff(sigma[1,3],x1)+diff(sigma[2,3],x2)+diff(sigma[3,3],x3);

                             sigi3i := 0

> X := evalm(2*e1 + 3*e2 + 2*e3):
> sig := linalg[matrix](3,3):
> for i from 1 to 3 do
>  for j from 1 to 3 do
>   sig[i,j] := eval(eval(eval(sigma[i,j], x1 = X[1,1]), x2 =X[2,1]), x3
> = X[3,1]);
>  end do;
> end do;
> evalm(sig);

                          [ 48    0    -16]
                          [               ]
                          [  0    1      2]
                          [               ]
                          [-16    2     12]

> a1 := 2: a2 := 1: a3 := -1: ajaj := sqrt(a1*a1 + a2*a2 + a3*a3):
> n := evalm(a1*e1/ajaj + a2*e2/ajaj + a3*e3/ajaj);

                                 [  1/2 ]
                                 [ 6    ]
                                 [ ---- ]
                                 [  3   ]
                                 [      ]
                                 [  1/2 ]
                            n := [ 6    ]
                                 [ ---- ]
                                 [  6   ]
                                 [      ]
                                 [   1/2]
                                 [  6   ]
                                 [- ----]
                                 [   6  ]

> sigT := transpose(sig):
> t := evalm(sigT&*n);

                                 [    1/2]
                                 [56 6   ]
                                 [-------]
                                 [   3   ]
                                 [       ]
                            t := [   1/2 ]
                                 [  6    ]
                                 [- ---- ]
                                 [   6   ]
                                 [       ]
                                 [    1/2]
                                 [-7 6   ]

> tT := transpose(t):
> N := evalm(tT&*n): Nt := evalf(N[1,1]);

                          Nt := 44.16666667

> tdott := evalm(tT&*t):
> St := evalf(sqrt(tdott[1,1] - N[1,1]^2));

                          St := 20.83599984

> I1 := sig[1,1]+sig[2,2]+sig[3,3];

                               I1 := 61

> I2 := sig[1,1]*sig[2,2] + sig[2,2]*sig[3,3] + sig[3,3]*sig[1,1] -
> sig[1,2]*sig[2,1] - sig[2,3]*sig[3,2] - sig[3,1]*sig[1,3];

                              I2 := 376

> I3 := det(sig);

                              I3 := 128

> prinSig := solve(x^3 - I1*x^2 + I2*x - I3 = 0, x):
> s1 := evalf(prinSig[1]); s2 := evalf(prinSig[2]); s3 :=
> evalf(prinSig[3]);

                                              -8
                    s1 := 54.09271724 - 0.2 10   I


                                                  -8
               s2 := 0.361501126 - 0.8160254040 10   I


                                                  -8
               s3 := 6.545781610 + 0.9160254040 10   I

> sig1 := 54.09271724; sig2 := 6.545781610; sig3 := .361501126;

                         sig1 := 54.09271724


                         sig2 := 6.545781610


                         sig3 := 0.361501126

> with(LinearAlgebra): Id := IdentityMatrix(3):
> Left1 := evalm(sig - sig1*Id):
> n3 := sqrt(1 - n1^2 - n2^2):
> n := linalg[matrix](3,1,[n1,n2,n3]):
> Ax1 := evalm(Left1 &* n):
> sols1 := solve({Ax1[1,1] = 0, Ax1[2,1] = 0});

          sols1 := {n2 = 0.01340427809, n1 = -0.9344527487}

> N1_1 := sols1[2]; N1_2 := sols1[1]; N1_3 := sqrt(1 -
> (.1340427809e-1)^2 - (-.9344527487)^2);
> 

                      N1_1 := n1 = -0.9344527487


                      N1_2 := n2 = 0.01340427809


                         N1_3 := 0.3558347730

> Left2 := evalm(sig - sig2*Id):
> Ax2 := evalm(Left2 &* n):
> sols2 := solve({Ax2[1,1] = 0, Ax2[2,1] = 0});

           sols2 := {n1 = 0.3412802400, n2 = 0.3188798847}

> N2_1 := sols2[1]; N2_2 := sols1[2]; N2_3 := sqrt(1 - (.3412802400)^2 -
> (.3188798847)^2);

                      N2_1 := n1 = 0.3412802400


                      N2_2 := n1 = -0.9344527487


                         N2_3 := 0.8842191001

> Left3 := evalm(sig - sig3*Id):
> Ax3 := evalm(Left3 &* n):
> sols3 := solve({Ax3[1,1] = 0, Ax3[2,1] = 0});

           sols3 := {n1 = 0.1016162335, n2 = -0.9477003447}

> N3_1 := sols3[1]; N3_2 := sols3[2]; N3_3 := sqrt(1 - (.1016162335)^2 -
> (-.9477003447)^2);

                      N3_1 := n1 = 0.1016162335


                      N3_2 := n2 = -0.9477003447


                         N3_3 := 0.3025528017