File:SinusSaite.png: Revision history

Jump to navigation Jump to search

Diff selection: Mark the radio buttons of the revisions to compare and hit enter or the button at the bottom.
Legend: (cur) = difference with latest revision, (prev) = difference with preceding revision, m = minor edit.

21 December 2010

  • curprev 21:5221:52, 21 December 2010Schubotz talk contribs 263 bytes +263 <source lang=mathematica> N@c = 6; N@\[Lambda] = 0.02; N@A = 0.01; N@A0 = 0.008; \[Alpha] = ArcCos[A0/A]; k = 2 \[Pi]/\[Lambda]; \[Nu] = c /\[Lambda]; \[Omega] = 2 \[Pi] \[Nu]; u[x_, t_] := A Cos[k x + -\[Omega] t + \[Alpha]] Plot[u[x, 0], {x, 0, 0.04}] <