Может ;-)
Пока вы дописывали пост, я вам уже набросал вот такой кусок кода:
Код:
x[t_] := Sin[t]
Manipulate[GraphicsColumn[{Plot[x[t], {t, t0, t0 + 2 \[Pi]}], Plot[x'[t], {t, t0, t0 + 2 \[Pi]}]}], {t0, 0, 2 \[Pi]}]
Запустите его и попробуйте в нём разобраться. Это не совсем то, что вам нужно, но я хочу знать, понимаете ли вы принципы.
(Да, манипуляшка смотрится криво, но я намеренно не загромождал код лишними опциями, дабы сосредоточиться на главном).
И, кстати, вы уже начали читать те разделы справки, что посоветовал вам
arseniiv? (Только не говорите мне, что у вас ещё и с английским проблемы...)