File:Sequential superposition of plane waves.gif
维基共享资源,媒体文件资料库
跳转到导航
跳转到搜索
Sequential_superposition_of_plane_waves.gif (360 × 223像素,文件大小:1.85 MB,MIME类型:image/gif、循环、451帧)
文件信息
结构化数据
说明
摘要[编辑]
此文件是通过机器人脚本从en.wikipedia移动到维基共享资源的。来源中的所有信息均已保留,但仍需要人工的审阅。部分或所有的信息可能会出现在错误的区域;只有在经过审阅并修正需改正的错误后,此文件的相关信息才能视为可使用。当审阅结束后,请移除本模板,更详细的信息参见下方。 现在就开始检查! |
摘要[编辑]
描述Sequential superposition of plane waves.gif |
made in Mathematica with the following sloppy but effective code: Do[a[jj] = Plot[{Cos[x], Cos[2 x] + 10 - 0.25*jj}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 1, 40}]; Do[a[jj] = Plot[{Cos[x] + 0.1*(jj - 40)*Cos[2 x], 0.1*(50 - jj)*Cos[2 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 41, 50}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x], Cos[3 x] + 10 - 0.25*(jj - 50)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 51, 90}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + 0.1*(jj - 90)*Cos[3 x], 0.1*(100 - jj)*Cos[3 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 91, 100}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x], Cos[4 x] + 10 - 0.25*(jj - 100)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 101, 140}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + 0.1*(jj - 140)*Cos[4 x], 0.1*(150 - jj)*Cos[4 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 141, 150}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x], Cos[5 x] + 10 - 0.25*(jj - 150)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 151, 190}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + 0.1*(jj - 190)*Cos[5 x], 0.1*(200 - jj)*Cos[5 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 191, 200}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x], Cos[6 x] + 10 - 0.25*(jj - 200)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 201, 240}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + 0.1*(jj - 240)*Cos[6 x], 0.1*(250 - jj)*Cos[6 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 241, 250}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x], Cos[7 x] + 10 - 0.25*(jj - 250)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 251, 290}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + 0.1*(jj - 290)*Cos[7 x], 0.1*(300 - jj)*Cos[7 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 291, 300}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x], Cos[8 x] + 10 - 0.25*(jj - 300)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 301, 340}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + 0.1*(jj - 340)*Cos[8 x], 0.1*(350 - jj)*Cos[8 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 341, 350}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x], Cos[9 x] + 10 - 0.25*(jj - 350)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 351, 390}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + 0.1*(jj - 390)*Cos[9 x], 0.1*(400 - jj)*Cos[9 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 391, 400}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + Cos[9 x], Cos[10 x] + 10 - 0.25*(jj - 400)}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 401, 440}]; Do[a[jj] = Plot[{Cos[x] + Cos[2 x] + Cos[3 x] + Cos[4 x] + Cos[5 x] + Cos[6 x] + Cos[7 x] + Cos[8 x] + Cos[9 x] + 0.1*(jj - 440)*Cos[10 x], 0.1*(450 - jj)*Cos[10 x]}, {x, -Pi, Pi}, PlotRange -> {-3, 12}, Axes -> {True, False}, Ticks -> False], {jj, 441, 450}];frames = ParallelTable[a[jj], {jj, 0, 450}]; |
日期 | |
来源 | made with Mathematica |
作者 | Teply |
许可协议[编辑]
本作品采用知识共享CC0 1.0 通用公有领域贡献许可协议授权。 | |
采用本宣告发表本作品的人,已在法律允许的范围内,通过在全世界放弃其对本作品拥有的著作权法规定的所有权利(包括所有相关权利),将本作品贡献至公有领域。您可以复制、修改、传播和表演本作品,将其用于商业目的,无需要求授权。
http://creativecommons.org/publicdomain/zero/1.0/deed.enCC0Creative Commons Zero, Public Domain Dedicationfalsefalse |
原始上传日志[编辑]
原始描述頁面位於這裡。下列使用者名稱均來自en.wikipedia。
Upload date | User | Bytes | Dimensions | Comment
- 2012-05-20 21:49:47 | Teply | 1940719 | 360×223 | Uploading a self-made file using [[Wikipedia:File_Upload_Wizard|File Upload Wizard]]
文件历史
点击某个日期/时间查看对应时刻的文件。
日期/时间 | 缩略图 | 大小 | 用户 | 备注 | |
---|---|---|---|---|---|
当前 | 2013年4月3日 (三) 17:27 | 360 × 223(1.85 MB) | Patrick Edwin Moran(留言 | 贡献) | description |
您不可以覆盖此文件。
文件用途
没有页面使用本文件。
全域文件用途
以下其他wiki使用此文件:
- da.wikipedia.org上的用途
- en.wikipedia.org上的用途
- hr.wikipedia.org上的用途
- mk.wikipedia.org上的用途
- pt.wikipedia.org上的用途
- sh.wikipedia.org上的用途
- simple.wikipedia.org上的用途
- uz.wikipedia.org上的用途
元数据
此文件中包含有额外的信息。这些信息可能是由数码相机或扫描仪在创建或数字化过程中所添加。
如果文件已从其原始状态修改,某些细节可能无法完全反映修改后的文件。
GIF文件备注 | Created by Wolfram Mathematica 7.0 |
---|