a = 1.2*10^7;
b = 1.23*10^11;
c = 2472960;
d = 1.53*10^(-8);
e = 6.42*10^4;
f = 1.4*10^(-13);
g = 2.6*10^16;
h = 4*Log[2];
i = 4700;
NDSolve[{70*M[z, t]*D[M[z, t], t, t] == -D[F[z, t], z, z] -
g*(M[z, t] - N[z, t]) +
Sqrt[h/3.1415]*0.07*i/f/d*E^(-z/d - h*((t - 2*f)/f)^2),
1/(a*M[z, t]^2 + b*N[z, t])*D[F[z, t], t, t] +
F[z, t] == (-353*((M[z, t]/e)^2 + 0.16)^(4/5)*((M[z, t]/e)^2 +
0.44) (M[z, t]/e)^2)/((M[z, t]/e)^2 + 0.092)^(1/
2)*((M[z, t]/e)^2 + 0.16*N[z, t]/e)*
D[M[z, t], z, z], (c - 70*M[z, t])*D[M[z, t], t, t] ==
g*(M[z, t] - N[z, t]), M[z, 0] == 300, N[z, 0] == 300,
F[z, 0] == 0, F[0, t] == 0, F[d, t] == 0}, {M[z, t], N[z, t],
F[z, t]}, {z, 0, d}, {t, 0, 3*10^(-11)}]
Plot3D[M[z, t], {z, 0, 1.53*10^(-8)}, {t, 0, 3*10^(-11)}]
![求大神帮我看看我这代码为什么出不了图,mathematics]()
X9{{NRI}KP]6X[PHY0ZP}0Y.png |