怎么把下面的内容导出gif动图？Mathematica吧，数学，图片
f[x_]:=Graphics[Rotate[{Disk[{0,0},1,{Pi/2,(3Pi)/2}],Disk[{0,1/2},1/2],{White,Disk[{0...
f[x_] := Graphics[
Rotate[{Disk[{0, 0}, 1, {Pi/2, (3 Pi)/2}],
Disk[{0, 1/2}, 1/2], {White, Disk[{0, -(1/2)}, 1/2]}, {White,
Disk[{0, 1/2}, 0.1]}, {Disk[{0, -(1/2)}, 0.1]}, Circle[]},
x Degree], Axes -> False, PlotRange -> 1]
is = Animate[f[a], {a, 0, 359}] 展开
Rotate[{Disk[{0, 0}, 1, {Pi/2, (3 Pi)/2}],
Disk[{0, 1/2}, 1/2], {White, Disk[{0, -(1/2)}, 1/2]}, {White,
Disk[{0, 1/2}, 0.1]}, {Disk[{0, -(1/2)}, 0.1]}, Circle[]},
x Degree], Axes -> False, PlotRange -> 1]
is = Animate[f[a], {a, 0, 359}] 展开
2个回答
展开全部
Export["D:\\1.gif", is]
追问
不行，不信你试试，导出来的gif图片不是动态图！
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
博思aippt
2024-07-20 广告
作为深圳市博思云创科技有限公司的工作人员，对于Word文档生成PPT的操作，我们有以下建议：1. 使用另存为功能：在Word中编辑完文档后，点击文件->另存为，选择PowerPoint演示文稿（*.pptx）格式，即可将文档内容转换为PPT...
点击进入详情页
本回答由博思aippt提供
展开全部
f[x_] := Graphics[
Rotate[{Disk[{0, 0}, 1, {Pi/2, (3 Pi)/2}],
Disk[{0, 1/2}, 1/2], {White, Disk[{0, -(1/2)}, 1/2]}, {White,
Disk[{0, 1/2}, 0.1]}, {Disk[{0, -(1/2)}, 0.1]}, Circle[]},
x Degree], Axes -> False, PlotRange -> 1]
Export["gi.gif", Table[f[x], {x, 0, 360, 20}]]
Rotate[{Disk[{0, 0}, 1, {Pi/2, (3 Pi)/2}],
Disk[{0, 1/2}, 1/2], {White, Disk[{0, -(1/2)}, 1/2]}, {White,
Disk[{0, 1/2}, 0.1]}, {Disk[{0, -(1/2)}, 0.1]}, Circle[]},
x Degree], Axes -> False, PlotRange -> 1]
Export["gi.gif", Table[f[x], {x, 0, 360, 20}]]
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
