【mathematica导出sin的动态图】

看图

代码（加注释）（符号都是英文状态下）

a(*设置函数的名字*)= 
 Table[Plot[Sin[n + x](*函数*), {x, 0, 2 Pi}(*定义域*), 
   AxesOrigin -> {0, 0}(*设置原点坐标*)], {n, -20, 
   20}(*这个动态图总共40帧*)];(*加分号表示运行时不显示结果*)
Export["e:/数模导出的图片等/sin.gif"(*导出文件的路径*), 
a(*要保存的函数名字*)];(*加分号表示运行时不显示结果*)

纯代码（符号都是英文状态下）

a=Table[Plot[Sin[n + x], {x, 0, 2 Pi}, 
   AxesOrigin -> {0, 0}], {n, -20, 
   20}];
Export["e:/数模导出的图片等/sin.gif", \
a];