

|x|t|D|h|v|k|m|j|=|0|0|8|0.02|0|0.2|0.2|0.01|: mit Reibung   

wiederhole bis f>1.8
a=(-D*x-k*v+ sin(j*t*t))/m
b=a+(a-A)/2
x=0.5*b*h*h+v*h+x
v=b*h +v
A=a
f=j*t/pi
_f;x;;1
t=t+h
zurck
