Графики в Wolfram Mathematica.

[apex]

уже неактуально, но ControlPlacement:

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]}, 
 ControlPlacement -> Bottom]

[Red_Herring]

Если речь идет о статье, то я бы вообще не стал бы делать подписей в математике (и т.д. и т.п.) а включил бы картинку через, например, пакет pgf и сделал бы там надпечатки (или если можно, все сделал бы в pgf с gnuplot).

Преимущество: те же шрифты в графиках, что и в тексте