24小时热门版块排行榜    

查看: 374  |  回复: 1

am99lx

银虫 (小有名气)

[求助] 求大神帮我看看我这代码为什么出不了图,mathematics

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
回复此楼
已阅   关注TA 给TA发消息 送TA红花 TA的回帖

am99lx

银虫 (小有名气)

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;
DSolve[{70*M[z, t]*D[M[z, t], t, t] == -D[F[z, t], z, z] -
    g*(M[z, t] - Q[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*Q[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*Q[z, t]/e)*
    D[M[z, t], z, z], (c - 70*M[z, t])*D[Q[z, t], t, t] ==
   g*(M[z, t] - Q[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], Q[z, t],
  F[z, t]}, {z, 0, d}, {t, 0, 3*10^(-11)}]
Plot3D[M[z, t], z -> 0, {t, 0, 3*10^(-11)}]
改成这样 还是不出图 求大神指点
2楼2015-10-22 09:16:11
已阅   关注TA 给TA发消息 送TA红花 TA的回帖
相关版块跳转 我要订阅楼主 am99lx 的主题更新
信息提示
请填处理意见