File:SinusSaite.png

From testwiki
Revision as of 21:52, 21 December 2010 by Schubotz (talk | contribs) (<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}] <)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search
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}]

The following page uses this file: