求视频:函数y=A sin(ωx+ψ)的图像

求视频:函数y=A sin(ωx+ψ)的图像
求视频:函数y=A sin(ωx+ψ)的图像

求视频:函数y=A sin(ωx+ψ)的图像

完全自己手工编程,mathematica代码如下

For[n = 0, n <= 50, n += 1,

 gr1 = Plot[Sin[x - n/10], {x, 0, 6 Pi}];

 IR = 100;

 If[n == 0, 

  Export["C:\data\picture0.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 1, 

  Export["C:\data\picture1.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 2, 

  Export["C:\data\picture2.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 3, 

  Export["C:\data\picture3.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 4, 

  Export["C:\data\picture4.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 5, 

  Export["C:\data\picture5.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 6, 

  Export["C:\data\picture6.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 7, 

  Export["C:\data\picture7.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 8, 

  Export["C:\data\picture8.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 9, 

  Export["C:\data\picture9.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 10, 

  Export["C:\data\picture10.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 11, 

  Export["C:\data\picture11.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 12, 

  Export["C:\data\picture12.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 13, 

  Export["C:\data\picture13.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 14, 

  Export["C:\data\picture14.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 15, 

  Export["C:\data\picture15.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 16, 

  Export["C:\data\picture16.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 17, 

  Export["C:\data\picture17.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 18, 

  Export["C:\data\picture18.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 19, 

  Export["C:\data\picture19.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 20, 

  Export["C:\data\picture20.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 21, 

  Export["C:\data\picture21.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 22, 

  Export["C:\data\picture22.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 23, 

  Export["C:\data\picture23.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 24, 

  Export["C:\data\picture24.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 25, 

  Export["C:\data\picture25.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 26, 

  Export["C:\data\picture26.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 27, 

  Export["C:\data\picture27.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 28, 

  Export["C:\data\picture28.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 29, 

  Export["C:\data\picture29.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 30, 

  Export["C:\data\picture30.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 31, 

  Export["C:\data\picture31.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 32, 

  Export["C:\data\picture32.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 33, 

  Export["C:\data\picture33.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 34, 

  Export["C:\data\picture34.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 35, 

  Export["C:\data\picture35.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 36, 

  Export["C:\data\picture36.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 37, 

  Export["C:\data\picture37.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 38, 

  Export["C:\data\picture38.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 39, 

  Export["C:\data\picture39.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 40, 

  Export["C:\data\picture40.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 41, 

  Export["C:\data\picture41.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 42, 

  Export["C:\data\picture42.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 43, 

  Export["C:\data\picture43.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 44, 

  Export["C:\data\picture44.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 45, 

  Export["C:\data\picture45.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 46, 

  Export["C:\data\picture46.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 47, 

  Export["C:\data\picture47.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 48, 

  Export["C:\data\picture48.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 49, 

  Export["C:\data\picture49.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 If[n == 50, 

  Export["C:\data\picture50.gif", gr1, "Graphics", 

   ImageResolution -> IR]];

 ]