File:Steinwurf.png
No file by this name exists.
N[v0] = 25; N[\[CurlyPhi]] = 30 \[Degree]; N[g] = 9.81;
x[t_] = v0 Cos[\[CurlyPhi]] t;
y[t_] := v0 Sin[\[CurlyPhi]] t - 1/2*g*t^2;
tMax = t /. Solve[y'[t] == 0, t][[1, 1]]
yMax = y[tMax]
N[yMax]
Plot[{x[t], y[t], x'[t], y'[t]}, {t, 0, 3}]
File usage
The following page uses this file:
