f[x_] = Sin[440 * 2Pi * x] ;

Play[f[x], {2x, 0, 1}]

Play :: write : 2 xのタグTimesはProtectedです． 詳細

Play[f[x], {2 x, 0, 1}]

Play[f[x], {x, 0, 2g}]

[Graphics:HTMLFiles/index_6.gif]

-Sound -

Plot[f[x], {x, 0, 0.01}]

[Graphics:HTMLFiles/index_9.gif]

-Graphics -

g[k_][x_] = Sin[2^(k/12) * 440 * 2Pi * x]

Sin[55 2^(4 + k/12) π x]

Play[g[0][x] + g[8][x], {x, 0, 1}]

[Graphics:HTMLFiles/index_14.gif]

-Sound -

ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2Pi}]

[Graphics:HTMLFiles/index_17.gif]

-Graphics -

cir = ParametricPlot[{Cos[t] - 2, Sin[t]}, {t, 0, 2Pi}]

[Graphics:HTMLFiles/index_20.gif]

-Graphics -

c = Plot[Sin[x], {x, 0, 2Pi}]

[Graphics:HTMLFiles/index_23.gif]

-Graphics -

Show[cir, c, AspectRatio→Automatic]

[Graphics:HTMLFiles/index_26.gif]

-Graphics -

Show[Graphics[{RGBColor[1, 0, 0], PointSize[0.03], Point[{0, 0}]}]]

[Graphics:HTMLFiles/index_29.gif]

-Graphics -

Show[Graphics[Line[{{0, 0}, {1, 1}}]]]

[Graphics:HTMLFiles/index_32.gif]

-Graphics -

Show[Graphics[{RGBColor[0, 0, 1], Thickness[0.02], Line[{{0, 0}, {1, 1}}]}]]

[Graphics:HTMLFiles/index_36.gif]

-Graphics -

Graphics[{RGBColor[1, 0, 0], PointSize[0.02], Point[{x, Sin[x]}], Point[{x, 0}], Line[{{Cos[x] - 2, Sin[x]}, {x, Sin[x]}, {x, 0}}]}] ;

Created by Mathematica  (December 4, 2009) Valid XHTML 1.1!