Wolfram Mathematica 7. Вставка кнопок управления.

[AlDelta]

Всем привет.
Моделирую колебания струны (бесконечной, полубесконечной, конечной) методом Даламбера.
В таком виде сейчас:

(*Свободные колебания струны - метод Даламбера волны отклонений*)
l = 1;(*бесконечная струна синусоида*)
f[x_] := Piecewise[{{Sin[(Pi*x)/l], 0 < x < l}, {0, x < 0}, {0, x > l}}];
pram[x_, t_] := 1/2*f[x - t];
obrat[x_, t_] := 1/2*f[x + t];
profil[x_, t_] := pram[x, t] + obrat[x, t];
Manipulate[
Plot[{pram[x,t],obrat[x,t],profil[x, t]}, {x, -l, 2*l},
PlotRange -> {-2, 2}], {{t, 0, "time"}, 0.0, 1.0}]

Но необходимо иметь возможность показывать отдельные волны (прямую, бегущую и их суперпозицию). Попытался сделать через Which, вот так:

Manipulate[
Plot[Which[Wave = "=>", pram[x, t], Wave = "<=",obrat[x, t], Wave = "=>+<=",profil[x, t], True, Sin[x]], {x, -l, 2*l},
PlotRange -> {-2, 2}], {{t, 0, "time"}, 0.0, 1.0},
Control[{Wave, {"=>", "<=","=>+<="}}]
]

Ничего не вышло, графики не выводятся вообще. Может кто работал в этой среде, как делается правильно?