
Simulation eines schiefen Wurfs mit Reibung
*************************************************
|v|V|x|y|h|k|g|m|n|d|=|15|15|0|0|0.006|0.1|-10|1|0|0|: Anfangsbedingungen mit Doppelklick festlegen !

 Programm mit Doppelklick auf " Wiederhole bis... " (siehe unten ) starten !

wiederhole bis n=1
w=wrz(v*v+V*V)
B=A
b=a
a=-k*w*v/m
A=g-k*w*V/m
A=A+(A-B)/2
a=a(a-b)/2
x=a/2*h^2+v*h+x
v=a*h+v
y=A/2*h^2+V*h+y
V = A*h+V
_x;y;;10
zurck
