Advertisement
Guest User

Untitled

a guest
Jul 28th, 2017
59
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.83 KB | None | 0 0
  1. eq1 = sigrrR == ((2 C2 + (C4 minusnu r^minusnu + C3 plusnu r^plusnu)/
  2. r^2) (1 - 2 G alpha -
  3. 2 E^(t gamma) G t alpha ExpIntegralEi[-t gamma]))/(2 G t);
  4. eq2 = sigttR == ((2 C2 + (
  5. C4 (-1 + minusnu) minusnu r^minusnu +
  6. C3 (-1 + plusnu) plusnu r^plusnu)/r^2) (1 - 2 G alpha -
  7. 2 E^(t gamma) G t alpha ExpIntegralEi[-t gamma]))/(2 G t);
  8. eq3 = sigzzR == -(1/(
  9. 24 G^3 K r^2 t z)) (2 G -
  10. 3 K) (3 K n r^2 (h (rhors - g rhowater) (3000 + z) -
  11. z (-2 p + rhors (3000 + z))) +
  12. G (-2 h n r^2 (rhors - g rhowater) (3000 + z) +
  13. 2 z (12 C2 K r^2 +
  14. 3 K (C4 minusnu^2 r^minusnu + C3 plusnu^2 r^plusnu) +
  15. n r^2 (-2 p + rhors (3000 + z))))) (-1 + 2 G alpha +
  16. 2 E^(t gamma) G t alpha ExpIntegralEi[-t gamma]);
  17. system = {eq1, eq2, eq3};
  18. Solve[system, {C2, C3, C4}]
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement