Guest User

Untitled

a guest
May 23rd, 2018
85
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.06 KB | None | 0 0
  1. P[x_, y_, t_] = e[x, y, t]/([Gamma] - 1) ;
  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. sol1 = NDSolve[{
  13. D[[Rho][x, y, t]*u[x, y, t],
  14. t] == -D[[Rho][x, y, t]*u[x, y, t]*u[x, y, t] + P[x, y, t], x] -
  15. D[[Rho][x, y, t]*u[x, y, t]*v[x, y, t], y],
  16. D[[Rho][x, y, t]*v[x, y, t],
  17. t] == -D[[Rho][x, y, t]*v[x, y, t]*u[x, y, t], y] -
  18. D[[Rho][x, y, t]*v[x, y, t]*v[x, y, t] + P[x, y, t], y] +
  19. g [Rho][x, y, t],
  20. D[[Rho][x, y, t], t] == -D[[Rho][x, y, t]*u[x, y, t], x] -
  21. D[[Rho][x, y, t]*v[x, y, t], y],
  22. D[e[x, y, t], t] == -D[u[x, y, t]*e[x, y, t], x] -
  23. D[v[x, y, t]*e[x, y, t], y] -
  24. P[x, y, t]*(D[u[x, y, t], x] - D[v[x, y, t], y]),
  25.  
  26. v[0, y, t] == v[12*10^6, y, t],
  27. u[0, y, t] == u[12*10^6, y, t],
  28. T[0, y, t] == T[12*10^6, y, t],
  29. [Rho][0, y, t] == [Rho][12*10^6, y, t],
  30. e[0, y, t] == e[12*10^6, y, t],
  31.  
  32. (D[u[x, y, t], x] /. x -> 0) == (D[u[x, y, t], x] /. x -> 12000000),
  33. (D[v[x, y, t], x] /. x -> 0) == (D[v[x, y, t], x] /. x -> 12000000),
  34. D[u[0, y, t], y] == D[u[12000000, y, t], y],
  35. D[v[0, y, t], y] == D[v[12000000, y, t], y],
  36. D[u[0, y, t], t] == D[u[12000000, y, t], t],
  37. D[v[0, y, t], t] == D[v[12000000, y, t], t],
  38.  
  39. (D[T[x, y, t], x] /. x -> 0) == (D[T[x, y, t], x] /. x -> 12000000),
  40. (D[[Rho][x, y, t], x] /. x -> 0) == (D[[Rho][x, y, t], x] /.
  41. x -> 12000000),
  42. D[T[0, y, t], y] == D[T[12000000, y, t], y],
  43. D[[Rho][0, y, t], y] == D[[Rho][12000000, y, t], y],
  44. D[T[0, y, t], t] == D[T[12000000, y, t], t],
  45. D[[Rho][0, y, t], t] == D[[Rho][12000000, y, t], t],
  46.  
  47. P[x, 0, t] == 3.83767261162/([Gamma] - 1),
  48. v[x, 4000000, t] == 0,
  49. v[x, 0, t] == 0,
  50. (D[u[x, y, t], y] /. y -> 0) == 0,
  51. (D[u[x, y, t], y] /. y -> 4000000) == 0,
  52.  
  53. v[x, y, 0] == 0,
  54. u[x, y, 0] == 0,
  55. T[x, y, 0] == 5770 + 0.00835414960707927 y*10^6,
  56. [Rho][x, y, 0] ==
  57. 1.42*10^-7*1.408*10^3 + 7.3561137493644*10^-10 y*10^6
  58. },
  59. {u, v, T, [Rho]}, {x, 0, 12000000}, {y, 0, 4000000}, {t, 0, 100},
  60. StartingStepSize -> {40000, 40000, 1}]
Add Comment
Please, Sign In to add comment