ธงชาติไทย

ลองเล่นอะไรสนุก ๆ ครับ
ไปโหลดธงชาติจาก wikipedia.org (http://en.wikipedia.org/wiki/Thai_flag)

flag = Import[
http://upload.wikimedia.org/wikipedia/commons/thumb/a/a9/Flag_of_Thailand.svg/225px-Flag_of_Thailand.svg.png“]

จากนั้นก็เอามาทำ animation โดยอาศัย function Texture (http://reference.wolfram.com/mathematica/ref/Texture.html) ซึ่งเป็นความสามารถอันใหม่ใน Mathematica 8

Animate[Plot3D[
2 Log[x + 1] Sin[x + 1.5 Sin[y] – \[Gamma]], {x, 0, 5}, {y, 0, 3},
Mesh -> False, PlotStyle -> Texture[flag], Lighting -> “Neutral”,
Boxed -> False, Axes -> False], {{\[Gamma], 0}, -2 \[Pi], 2 \[Pi]}]

[hana-flv-player video=”http://www.sakngoi.com/wp-content/uploads/2011/09/flag.flv” width=”400″ height=”330″ description=”” player=”1″ autoload=”true” autoplay=”true” loop=”true” autorewind=”true” /]