求视频:函数y=A sin(ωx+ψ)的图像
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/28 00:11:59
求视频:函数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]];
]