File talk:Standing waves on a string.gif

I generated this in Mathematica. Here's the code for anyone who wants to improve it.

f = .5*Sin[n*t]*Sin[n*x]/n;
point = Graphics[Point[{{0, 0}, {Pi, 0}}]];
range = .51;
animation =
 Table[GraphicsGrid[{{Show[{Plot[f /. n -> 1, {x, 0, Pi},
        PlotRange -> range, Axes -> False], point}],
     Show[{Plot[f /. n -> 2, {x, 0, Pi}, PlotRange -> range,
        Axes -> False], p}]},
    {Show[{Plot[f /. n -> 3, {x, 0, Pi}, PlotRange -> range,
        Axes -> False], point}],
     Show[{Plot[f /. n -> 4, {x, 0, Pi}, PlotRange -> range,
        Axes -> False], p}]},
    {Show[{Plot[f /. n -> 5, {x, 0, Pi}, PlotRange -> range,
        Axes -> False], point}],
     Show[{Plot[f /. n -> 6, {x, 0, Pi}, PlotRange -> range,
        Axes -> False], p}]}
    }], {t, 0, 2*Pi, .1}];
Export["anim.gif", animation, AnimationRate -> 10]
SystemOpen["anim.gif"]

Talk pages are where people discuss how to make content on Wikipedia the best that it can be. You can use this page to start a discussion with others about how to improve the "File:Standing waves on a string.gif" page.

Start a discussion