level 6
level 6
level 6
level 6
hjccj91love
楼主
代码
k = 1
t = 1
r = 0.01
c = Table[ParametricPlot3D[{13 r*Sin[m] Cos[n] + x,r*Sin[m] Sin[n] + k^2*(Sech[k*x + k^3*t])^2/2, r*Cos[m]}, {m, 0, Pi}, {n, 0, 2 Pi}, PlotRange -> {{-6, 4}, {-0.02, 1}, {-0.25, 0.25}}, BoxRatios -> {5, 5, 0.5}], {x, -6, 4, 0.5}];
d = ParametricPlot3D[{s, 0.25, 0}, {s, -6, 4}];
f = Table[ParametricPlot3D[{x, h, 0}, {h, k^2*(Sech[k*x + k^3*t])^2/2, 0.25}], {x, -6, 4, 0.5}];
Show[c, d, f, ViewPoint -> {0, 0, 1}]
2013年03月22日 07点03分
4
k = 1
t = 1
r = 0.01
c = Table[ParametricPlot3D[{13 r*Sin[m] Cos[n] + x,r*Sin[m] Sin[n] + k^2*(Sech[k*x + k^3*t])^2/2, r*Cos[m]}, {m, 0, Pi}, {n, 0, 2 Pi}, PlotRange -> {{-6, 4}, {-0.02, 1}, {-0.25, 0.25}}, BoxRatios -> {5, 5, 0.5}], {x, -6, 4, 0.5}];
d = ParametricPlot3D[{s, 0.25, 0}, {s, -6, 4}];
f = Table[ParametricPlot3D[{x, h, 0}, {h, k^2*(Sech[k*x + k^3*t])^2/2, 0.25}], {x, -6, 4, 0.5}];
Show[c, d, f, ViewPoint -> {0, 0, 1}]
level 10
保存连续图片有巧法：
Export["img001.png",图片列表，"VideoFrames"]
2013年03月22日 14点03分
7
Export["img001.png",图片列表，"VideoFrames"]
会自动重命名
2013年03月22日 14点03分
我以前自动保存文件的话都是用tostring连起来
2013年03月23日 05点03分
学到了
2013年03月27日 02点03分