小编h02*_*001的帖子

3
推荐指数
2
解决办法
3151
查看次数

如何绘制三维图像:Plot3D NDSolve

m = 10; c = 2; k = 5; F = 12;

NDSolve[{m*x''[t] + c*x'[t] + (k*Sin[2*Pi*f*t])*x[t] == F*Sin[2*Pi*f*t], 
         x[0] == 0, x'[0] == 0}, x[t], {t, 0, 30}] 
Run Code Online (Sandbox Code Playgroud)

{f,0,5}}(0 = <f <= 5)

如何绘制三维图像:

x = u(t,f)

............

如果f = 0.1,0.2,... 5,我们可以求解等式:

NDSolve[{m*x''[t] + c*x'[t] + (k*Sin[2*Pi*f*t])*x[t] == F*Sin[2*Pi*f*t], 
         x[0] == 0, x'[0] == 0}, x[t], {t, 0, 30}] 
Run Code Online (Sandbox Code Playgroud)

x是t和f的函数

...............

m = 10; c = 2; k = 5; F = 12;

f = 0.1

s = NDSolve[{m*x''[t] …
Run Code Online (Sandbox Code Playgroud)

wolfram-mathematica

3
推荐指数
2
解决办法
725
查看次数