

|x|t|D|h|v|k|m|w|d|=|0|0|8|0.02|0|0.05|0.2|0|0.001|: mit Reibung
w: Kreisfrequenz     

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