ภาพเคลื่อนไหว (Animations)

คุณสามารถทำภาพเคลื่อนไหวด้วย Mathematica ด้วยขั้นตอนดังนี้
1. อิมพอร์ต Animation Package ด้วยคำสั่ง:
      <<Graphics`Animation`
2. สร้างเฟรมของภาพยนต์ของคุณ เช่น
       MoviePlot[Exp[-(x-t)^2], {x,-5,20} , {t,0,15} ,PlotRange -> All]
3. เลือกเฟรมของภาพยนต์ที่เกิดจาก 2 แล้วเลือกคำสั่ง Cell/Animate Selected Graphics จากเมนู หรือ กด Ctrl-Y

In[32]:=

  <<Graphics`Animation`

In[33]:=

MoviePlot[Exp[-(x - t)^2], {x, -5, 20}, {t, 0, 15}, PlotRangeAll]

[Graphics:../HTMLFiles/chapter3_82.gif]

[Graphics:../HTMLFiles/chapter3_83.gif]

[Graphics:../HTMLFiles/chapter3_84.gif]

[Graphics:../HTMLFiles/chapter3_85.gif]

[Graphics:../HTMLFiles/chapter3_86.gif]

[Graphics:../HTMLFiles/chapter3_87.gif]

[Graphics:../HTMLFiles/chapter3_88.gif]

[Graphics:../HTMLFiles/chapter3_89.gif]

[Graphics:../HTMLFiles/chapter3_90.gif]

[Graphics:../HTMLFiles/chapter3_91.gif]

[Graphics:../HTMLFiles/chapter3_92.gif]

[Graphics:../HTMLFiles/chapter3_93.gif]

[Graphics:../HTMLFiles/chapter3_94.gif]

[Graphics:../HTMLFiles/chapter3_95.gif]

[Graphics:../HTMLFiles/chapter3_96.gif]

[Graphics:../HTMLFiles/chapter3_97.gif]

[Graphics:../HTMLFiles/chapter3_98.gif]

[Graphics:../HTMLFiles/chapter3_99.gif]

[Graphics:../HTMLFiles/chapter3_100.gif]

[Graphics:../HTMLFiles/chapter3_101.gif]

[Graphics:../HTMLFiles/chapter3_102.gif]

[Graphics:../HTMLFiles/chapter3_103.gif]

[Graphics:../HTMLFiles/chapter3_104.gif]

[Graphics:../HTMLFiles/chapter3_105.gif]


วันนี้ขอจบแค่นี้ก่อน  หวังว่าคุณจะพบว่า Mathematica นั้นมีประโยชน์ในการศึกษาทางด้านวิทยาศาสตร์นะครับ ตอนผมเป็นนักเรียนอยู่ Mathematica 1.0 พึ่งออกมา และผมก็ใช้ช่วยในการเรียนและทำความเข้าใจในเรื่องต่างๆได้เป็นอย่างดี
ในตอนด่อๆไป ผมจะเน้นรายละเอียดในเรื่องต่างๆมากขึ้น ถ้าใครมีอะไรสนใจเป็นพิเศษ ก็ช่วยบอกไว้ใน http://mpec.sc.mahidol.ac.th/ หรือเมล์ผม ที่ [email protected] นะครับ


Created by Mathematica  (September 8, 2005)