
Simulationsprogramm zur harmonischen Schwingung mit Reibung
************************************************************************
ZUNCHST EINE DER NCHSTEN ZEILEN  UND DANN "WIEDERHOLE BIS....." (siehe unten ) DOPPELT ANKLICKEN !

Anfangsbedingungen
|x|t|D|h|v|k|m|u|f|d|=|4|0|1|0.02|0|0|1|0|0|0: ohne Dmpfung

wiederhole bis n=1
wenn t =0
t=zeit()
ohnewenn
a=(-D*x-k*v)/m
b=a+(a-A)/2*f
f=1
T=Zeit()-t
h=T-d
x=0.5*b*h^2+v*h+x
v=b*h+v
d=T
A=a
wenn u=10
bld
0;x&;;10
_-4*sin(T)+5;x
_5;0;;1
5;0&
u=0
ohnewenn
u=u+1
zurck

wrz(m/D)*2*pi=6.28318530717958
