Advertisement
Guest User

Untitled

a guest
Jun 16th, 2019
70
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.95 KB | None | 0 0
  1. strainStress = {
  2. ϵx[x, y, z] ==
  3. 1/Y (σx[x, y,
  4. z] - ν (σy[x, y, z] + σz[x, y, z])),
  5. γxy[x, y, z] == 1/G τxy[x, y, z],
  6. γxz[x, y, z] == 1/G τxz[x, y, z],
  7.  
  8. γyx[x, y, z] == 1/G τyx[x, y, z],
  9. ϵy[x, y, z] ==
  10. 1/Y (σy[x, y,
  11. z] - ν (σx[x, y, z] + σz[x, y, z])),
  12. γyz[x, y, z] == 1/G τyz[x, y, z],
  13.  
  14. γzx[x, y, z] == 1/G τzx[x, y, z],
  15. γzy[x, y, z] == 1/G τzy[x, y, z],
  16. ϵz[x, y, z] ==
  17. 1/Y (σz[x, y,
  18. z] - ν (σx[x, y, z] + σy[x, y, z]))
  19. } /. G -> Y/(2 (1 + ν));
  20.  
  21. strainDisp={Derivative[1, 0, 0][u][x, y, z], Derivative[0, 1, 0][u][x, y, z] +
  22. Derivative[1, 0, 0][v][x, y, z], Derivative[0, 0, 1][u][x, y, z] +
  23. Derivative[1, 0, 0][w][x, y, z], Derivative[0, 1, 0][u][x, y, z] +
  24. Derivative[1, 0, 0][v][x, y, z], Derivative[0, 1, 0][v][x, y, z],
  25. Derivative[0, 0, 1][v][x, y, z] + Derivative[0, 1, 0][w][x, y, z],
  26. Derivative[0, 0, 1][u][x, y, z] + Derivative[1, 0, 0][w][x, y, z],
  27. Derivative[0, 0, 1][v][x, y, z] + Derivative[0, 1, 0][w][x, y, z],
  28. Derivative[0, 0, 1][w][x, y, z]};
  29.  
  30. stress = {
  31. σx[x, y, z], τxy[x, y, z], τxz[x, y, z],
  32. τyx[x, y, z], σy[x, y, z], τyz[x, y, z],
  33. τzx[x, y, z], τzy[x, y, z], σz[x, y, z]
  34. };
  35. strain = strainStress[[All, 1]];
  36. sol = stress /. Solve[strainStress, stress];
  37. {vec, mat} =
  38. CoefficientArrays[Thread[stress == sol[[1]]], strain] // Normal;
  39. dd = Join[Grad[u[x, y, z], {x, y, z}], Grad[v[x, y, z], {x, y, z}],
  40. Grad[w[x, y, z], {x, y, z}]];
  41. eq2 = -mat.strainDisp;
  42. {vec2, mat2} =
  43. CoefficientArrays[Thread[stress == eq2], dd] // Normal // Simplify;
  44. mat3 = Partition[mat2 // Simplify // Factor, {3, 3}];
  45.  
  46. cc = Array[c, {3, 3}];
  47. coffs = Thread[Flatten[cc, 1] -> Flatten[mat3, 1]];
  48. idd = {Inactive[Grad][u[x, y, z], {x, y, z}],
  49. Inactive[Grad][v[x, y, z], {x, y, z}],
  50. Inactive[Grad][w[x, y, z], {x, y, z}]}
  51. e1 = cc.idd // ExpandAll
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement