https://physikerwelt.de:8080/w/index.php?action=history&feed=atom&title=File%3ASinusSaite.png
File:SinusSaite.png - Revision history
2026-04-06T12:22:32Z
Revision history for this page on the wiki
MediaWiki 1.43.0-wmf.28
https://physikerwelt.de:8080/w/index.php?title=File:SinusSaite.png&diff=3161&oldid=prev
Schubotz: <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}]
<
2010-12-21T19:52:10Z
<p><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}] <</p>
<p><b>New page</b></p><div><source lang=mathematica><br />
N@c = 6; N@\[Lambda] = 0.02; N@A = 0.01; N@A0 = 0.008;<br />
\[Alpha] = ArcCos[A0/A];<br />
k = 2 \[Pi]/\[Lambda];<br />
\[Nu] = c /\[Lambda];<br />
\[Omega] = 2 \[Pi] \[Nu];<br />
u[x_, t_] := A Cos[k x + -\[Omega] t + \[Alpha]]<br />
Plot[u[x, 0], {x, 0, 0.04}]<br />
</source></div>
Schubotz