
Simulationsprogramm zur erzwungenen Schwingung
************************************************************************
ZUNCHST DIE ZEILE MIT DEN ANFANGSBEDINGUNGEN UND DANN "WIEDERHOLE BIS....." (siehe unten ) DOPPELT ANKLICKEN !

|x|t|D|h|v|k|m|u|f|=|0|0|8|0.005|0|0|0.2|0|0|: Anfangsbedingungen ohne Reibung
|x|t|D|h|v|k|m|u|f|=|0|0|8|0.02|0|0.1|0.2|0|0|: mit Reibung

wiederhole bis t>37
a=(-D*x-k*v+1*sin(6*t))/m
b=a+(a-A)/2*1
f=1
x=0.5*b*h*h+v*h+x
v=b*h +v
A=a
t=t+h
_t;x;;1
zurck


f(t)=1/(D-m*6^2)* (sin(6 * t) - 6/wrz(D/m) * sin(wrz(D/m) *t));;10
