问题:
一、缺少文件:Import["F:\\大二下\\物创实验\\11\\tilt-3.txt", "Table"]
二、请给出脱离Manipulate的代码(在开始处给出各参数的默认值)
方法:
生成每个时刻的图片,之后用Export导出即可。
另外,导出时你可能会用到这个参数"DisplayDurations",设置每帖的时间。
例(其中的data没有数据,所以有些帖的图片中有红框):
pn = 60;(*帖数*)
pics = Table[Manipulate[\[Beta] = 0.0000; \[Gamma] = -0.000000;
j = x m a^2;
g = 10;
h = 0.01;
\[Mu] = 0.15;
v1 = (v0x + v0y I);
z1 = (z0x + z0y I);
\[Lambda]1 =
1/(2 (j + a^2 m)) (I a \[Alpha] m + j \[CapitalOmega] -
Sqrt[-4 I a (j +
a^2 m) \[Alpha] m \[CapitalOmega] + (-I a \[Alpha] m -
j \[CapitalOmega])^2]);
\[Lambda]2 =
1/(2 (j + a^2 m)) (I a \[Alpha] m + j \[CapitalOmega] +
Sqrt[-4 I a (j +
a^2 m) \[Alpha] m \[CapitalOmega] + (-I a \[Alpha] m -
j \[CapitalOmega])^2]);
c = (v1 - (z1*I)*\[Lambda]2)/(I*(\[Lambda]1 - \[Lambda]2));
d = (v1 - (z1*I)*\[Lambda]1)/(I*(\[Lambda]2 - \[Lambda]1));
z = c*Exp[I \[Lambda]1 t] + d*Exp[I \[Lambda]2 t];
vv1 = Re[D[z, t]];
vv2 = Im[D[z, t]];
vv = Sqrt[vv1^(2) + vv2^(2)];
aa1 = Re[D[D[z, t], t]];
aa2 = Im[D[D[z, t], t]];
aa = Sqrt[aa1^2 + aa2^2];
W = 1/2 (m vv^2 + j ((Abs[z]*\[CapitalOmega])/a)^2);
xx = Flatten[Take[data, 400, {2}]];
Show[ListPlot[
Table[{Re[z] + 0.5 g t^2 \[Beta],
Im[z] + 0.5 g t^2 \[Gamma]}, {t, 0, tmax, h}],
AspectRatio -> Automatic, Joined -> True,
ImageSize -> {300, 300}, PlotLabel -> Style["小球轨迹", 30],
AxesLabel -> {"x/m", "y/m"},
PlotRange -> {{-0.3, 0.3}, {-0.3, 0.3}}],
Graphics[
Disk[{Re[z] /. t -> tt + 0.5 g tt^2 \[Beta],
Im[z] /. t -> tt + 0.5 g tt^2 \[Gamma]}, a]]], {{z0x, -0.07,
Style["\!\(\*SubscriptBox[\(z\), \(0\)]\)x", 20]}, -1, 1,
0.01}, {{z0y, 0.06,
Style["\!\(\*SubscriptBox[\(z\), \(0\)]\)y", 20]}, -1, 1,
0.01}, {{v0x, 0.04,
Style["\!\(\*SubscriptBox[\(v\), \(0\)]\)x", 20]}, -0.1, 0.1,
0.001}, {{v0y, -0.04,
Style["\!\(\*SubscriptBox[\(v\), \(0\)]\)y", 20]}, -0.1, 0.1,
0.001}, {{tmax, 18, Style["tmax", 20]}, 0, 100,
1}, {{\[Alpha], 0.0007, Style["\[Alpha]", 20]}, 0, 0.01,
0.0001}, {{\[CapitalOmega], 10.47, Style["\[CapitalOmega]", 20]},
1, 15, 0.1}, {{x, 0.4, Style["转动惯量系数", 20]}, 0.33,
0.4}, {{m, 0.028, Style["m", 20]}, 0,
1}, {{a, 0.0095, Style["a", 20]}, 0, 1,
0.01}, {{tt, n, Style["ttmax", 20]}, 0, tmax, 0.1},
ControlPlacement -> Left], {n, 0, 18 - 18/pn, 18/pn}];(*图片集*)
Export["E:/abc.gif", pics,
"DisplayDurations" -> ({0.5}~Join~ConstantArray[0.1, pn - 2]~
Join~{0.5})];(*导出,首末帖0.5秒,其它帖0.1秒*)