চিত্র:Sequential superposition of plane waves.gif
পরিভ্রমণে চলুন
অনুসন্ধানে চলুন
এর চেয়ে বেশি রেজোলিউশন লভ্য নয়।
Sequential_superposition_of_plane_waves.gif (৩৬০ × ২২৩ পিক্সেল, ফাইলের আকার: ১.৮৫ মেগাবাইট, এমআইএমই ধরন: image/gif, লুপকৃত, ৪৫১ ফ্রেম)
টীকা: কারিগরি সীমাবদ্ধতার কারণে, এই উচ্চ রেজ্যুলেশনের GIF ছবির থাম্বনেইলে অ্যানিমেশন দেখানো সম্ভব নয়।
সারাংশ
|
This file was moved to Wikimedia Commons from en.wikipedia using a bot script. All source information is still present. It requires review. Additionally, there may be errors in any or all of the information fields; information on this file should not be considered reliable and the file should not be used until it has been reviewed and any needed corrections have been made. Once the review has been completed, this template should be removed. For details about this file, see below. Check now! |
সারাংশ
| বিবরণ |
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 |
লাইসেন্স প্রদান
 
|
এই ফাইলটি ক্রিয়েটিভ কমন্স সিসি০ ১.০ সার্বজনীন পাবলিক ডোমেইন উৎসর্গীকরণের আওতায় রয়েছে। |
| যেই ব্যক্তিটি এই কাজটির সাথে সংশ্লিষ্ট তিনি এই কাজটি পাবলিক ডোমেইনে মুক্ত করার মাধ্যমে তাঁর সকল স্বত্ত্ব বিশ্বের সকল কপিরাইট আইনের আওতায় ত্যাগ করেছেন। যার মধ্যে নেইবারিং অধিকার, ও আইনের মাধ্যমে এক্সটেন্টও অন্তর্গত। আপনি এই কাজটি কোন অনুমতি চাওয়া ছাড়াই মুক্তভাবে অনুলিপি, পরিবর্তন, বিতরণ করতে পারেন, এবং এমন কি কোনো বাণিজ্যিক কাজেও ব্যবহার করতে পারেন।
|
মূল আপলোড লগ
মূল বিবরণ পাতাটি এখানে ছিল। নিম্নলিখিত সকল ব্যবহারকারীর নাম 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]]
ফাইলের ইতিহাস
যেকোনো তারিখ/সময়ে ক্লিক করে দেখুন ফাইলটি তখন কী অবস্থায় ছিল।
| তারিখ/সময় | সংক্ষেপচিত্র | মাত্রা | ব্যবহারকারী | মন্তব্য | |
|---|---|---|---|---|---|
| বর্তমান | ১৮:২৭, ৩ এপ্রিল ২০১৩ | | ৩৬০ × ২২৩ (১.৮৫ মেগাবাইট) | wikimediacommons>Patrick Edwin Moran | description |
ফাইলের ব্যবহার
নিম্নলিখিত পাতাটি এই ফাইল ব্যবহার করে:
