Eine periodische Welle gleichrichten 

Glätten Sie eine Sinuswelle.

In[1]:=

X sol = DSolve[{x''[t] + x[t] == 0, x[0] == 0, x'[0] == 1, WhenEvent[x[t] == 0, x'[t] -> -x'[t]]}, x, {t, 0, 4 \[Pi]}]

Out[1]=

Stellen Sie die geichgerichtete Welle in Gegenüberstellung mit dem ursprünglichen Sinussignal graphisch dar.

In[2]:=

X {Plot[Sin[t], {t, 0, 4 \[Pi]}, Filling -> Axis, FillingStyle -> Orange], Plot[(x[t] /. sol), {t, 0, 4 \[Pi]}, Filling -> Axis, FillingStyle -> Green]}

Out[2]=

Glätten Sie eine elliptische Welle. In diesem Fall werden die Ereigniszeiten durch ein numerisches Verfahren zurückgegeben.

In[3]:=

X sol = DSolve[{x''[t] + Sin[x[t]] == 0, x[0] == 0., x'[0] == 1, WhenEvent[x[t] == 0, x'[t] -> -x'[t]]}, x[t] , {t, 0, 10}]

Out[3]=

In[4]:=

X {Plot[2 JacobiAmplitude[t/2, 4], {t, 0, 10.5}, Filling -> Axis, FillingStyle -> Orange], Plot[(x[t] /. sol), {t, 0, 10.5}, Filling -> Axis, FillingStyle -> Green]}

Out[4]=