Question

关于mathematica动态图

a = 12.398963928945411`
b = 7.967334210645007`
c = 9.500310104790008`
i = a*Cos[t]
j = b*Sin[t]
m = Graphics[Disk[{i, j}, 0.1],
PlotRange -> {{-15.1, 15.1}, {-10.1, 10.1}}];
n = ContourPlot[x^2/a^2 + y^2/b^2 == 1, {x, -15, 15}, {y, -10, 10},
AspectRatio -> Automatic,
PlotRange -> {{-15.1, 15.1}, {-10.1, 10.1}}];
o = Graphics[{Dashed, Pink,
Line[{{c, 0}, {i, j}}]}, {{-15.1, 15.1}, {-10.1, 10.1}}];
d = Show[m, n, o, Axes -> False,
PlotRange -> {{-5.1, 5.1}, {-4.1, 4.1}}];
e = Table[d, {t, 0, 2 Pi}];
Export["pic.gif", e]
为什么最后运行不出来

Answer 1

什么叫运行不出来？这个可以进行啊，虽然不知道你为什么要把d的PlotRange给弄小了，但是确实可以运行啊，出来的是这个图：

你该不会是找不到这个图在哪里吧？那就

SystemOpen@Directory[]

就能找到了。