Guest User

Untitled

a guest
May 20th, 2018
139
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.07 KB | None | 0 0
  1. P[x_, y_, t_] = [Rho][x, y, t]/([Mu] mu) kb T[x, y, t] ;
  2. e[x_, y_, t_] = ([Gamma] - 1) [Rho][x, y, t]/([Mu] mu )
  3. kb T[x, y, t];
  4. cp = 5/2 kb/([Mu] mu);
  5. Rgas = 8.3144598;
  6. cv = 5/2 kb/([Mu] mu) - Rgas;
  7. [Gamma] = cp/cv;
  8. g = 28.02*9.81;
  9. [Mu] = 0.6163328197226503`;
  10. mu = 1.66053904*10^-27;
  11. kb = 1.38064852*10^-23;
  12. sol = NDSolve[{D[T[x, y, t], y] ==
  13. 0.41 g [Rho] [x, y, t] T[x, y, t]/P[x, y, t],
  14. D[P[x, y, t], y] == g [Rho][x, y, t],
  15. T[x, 0, t] == 5770, [Rho][x, 0, t] ==
  16. 1.42*10^-7*1.408*10^3}, {[Rho], T}, {y, 0, 4000000}, {x, 0,
  17. 12000000}, {t, 0, 10}, StartingStepSize -> 200000,
  18. Method -> "ExplicitEuler"];
  19. sol1 = NDSolve[{
  20. D[[Rho][x, y, t]*u[x, y, t],
  21. t] == -D[[Rho][x, y, t]*u[x, y, t]*u[x, y, t] + P[x, y, t], x] -
  22. D[[Rho][x, y, t]*u[x, y, t]*v[x, y, t], y],
  23. D[[Rho][x, y, t]*v[x, y, t],
  24. t] == -D[[Rho][x, y, t]*v[x, y, t]*u[x, y, t], x] -
  25. D[[Rho][x, y, t]*v[x, y, t]*v[x, y, t] + P[x, y, t], y] +
  26. g [Rho][x, y, t],
  27. D[[Rho][x, y, t], t] == -D[[Rho][x, y, t]*u[x, y, t], x] -
  28. D[[Rho][x, y, t]*v[x, y, t], y],
  29. D[e[x, y, t], t] == -D[u[x, y, t]*e[x, y, t], x] -
  30. D[v[x, y, t]*e[x, y, t], y] -
  31. P[x, y, t]*(D[u[x, y, t], x] - D[v[x, y, t], y]),
  32. v[0, y, t] == v[12000000, y, t],
  33. u[0, y, t] == u[12000000, y, t],
  34. T[0, y, t] == T[12000000, y, t],
  35. [Rho][0, y, t] == [Rho][12000000, y, t],
  36. P[0, y, t] == P[12000000, y, t],
  37. e[0, y, t] == e[12000000, y, t],
  38. P[x, 0, t] == (P[x, 0, 0] /. sol),
  39. e[x, 0, t] == (e[x, 0, 0] /. sol),
  40. v[x, 4000000, t] == 0,
  41. v[x, 0, t] == 0,
  42. v[x, y, 0] == 0,
  43. u[x, y, 0] == 0,
  44. T[x, y, 0] == (T[x, y, 0] /. sol),
  45. [Rho][x, y, 0] == ([Rho][x, y, 0] /. sol)
  46. },
  47. {u, v, T, [Rho]}, {x, 0, 12000000}, {y, 0, 4000000}, {t, 0, 10},
  48. StartingStepSize -> 200000, Method -> "ExplicitEuler"]
  49.  
  50. DynamicNDSolve`FiniteDifferenceDerivativeFunction::ddim: Data {{{5770.}, {8554.72},{11339.4},{14124.1},{16908.9},{19693.6},{22478.3},{25263.},{28047.7},{30832.4},{33617.2},{36401.9},{39186.6}},<<23>>,{{5770.},{8554.72},{11339.4},{14124.1},{16908.9},{19693.6},{22478.3},{25263.},{28047.7},{30832.4},{33617.2},{36401.9},{39186.6}}} is not a rectangular tensor with dimensions {24,13}.
Add Comment
Please, Sign In to add comment