Sonic Wave

Takuichi Hirano

In[1]:=

n = 30 ; radius = (1./n)/5 ; λ = 0.25 ; k = (2 * π)/λ ; f = 1. ; ω = 2 * & ...   PlotRange -> {{0, 1}, {0, 1}},  AspectRatio -> Automatic] , {t, 0, 1. - 1./100, 1./8} ] ;

[Graphics:HTMLFiles/index_2.gif]


Converted by Mathematica  (February 19, 2003)