Mathematica - Plot fukcija

Ve kdo, kako pri omenjeni funkciji nastaviš, da so enote na oseh oseh v enakem razmerju? Primer:



Rad bi, da je enota na obeh oseh enaka (tukaj je na y osi 8* večja od y), da mi grafov ne razteguje.

Plot[f,{x,x_1,x_2},AspectRatio->1]

Ne bo držalo, AspectRatio določa samo razmerje med širino in višino same slike grafa, in ne med osmi.

Plot[f,{x,x_1,x_2},PlotRange->{-x_2,x_2}]

A to je boljse?

Pozdravljeni
Če smem, bi si sposodil kar tole temo za moj problem. :)
Imam problem z risanjem grafa v Mathematici. Težava je, ker imam ''dvojno'' odvisnost.
Imamo kot:

Fi[t] = v*t/R

Rad bi pa narisal npr. pot v odvisnosti od časa in kasneje še hitrost in pospešek
Pot je taka:

x1[t] = R/2*(1 - Cos[Fi[t]])

Če sedaj hočem narisati graf x od t z ukazom:

Plot[x1[t], {t, 0, tmax}]

mi Mathematica javi napako:

Plot::plnr: x1[t] is not a machine-size real number at t = \
5.235987755982988`*^-8

Vem, da je verjetno napaka v tej ''dvojni'' odvisnosti, zato me zanima ali se da kako na tak način narisati graf.
Prosim za pomoč.