Datei:Steinwurf.png: Unterschied zwischen den Versionen
Zur Navigation springen
Zur Suche springen
<source lang=mathematica> 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]}, { |
Keine Bearbeitungszusammenfassung |
||
| (Eine dazwischenliegende Version desselben Benutzers wird nicht angezeigt) | |||
| Zeile 1: | Zeile 1: | ||
lila Höhe, blau Weite, gelb Horizontalgeschwindigket, grün Vertikalgeschwindgkeit über die Zeit aufgetragen | |||
Siehe [[Steinwurf]] | |||
<source lang=mathematica> | <source lang=mathematica> | ||
N[v0] = 25; N[\[CurlyPhi]] = 30 \[Degree]; N[g] = 9.81; | N[v0] = 25; N[\[CurlyPhi]] = 30 \[Degree]; N[g] = 9.81; | ||
Aktuelle Version vom 21. Dezember 2010, 18:38 Uhr
lila Höhe, blau Weite, gelb Horizontalgeschwindigket, grün Vertikalgeschwindgkeit über die Zeit aufgetragen
Siehe Steinwurf
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}]
Dateiverwendung
Die folgende Seite verwendet diese Datei:
