
PROGRAMM   ZUR   SCHAUKELBEWEGUNG

|t|x|h|v|e|q|z|W|J|j|r|m|=|0|0|0.01|0|0|0|0|2.157|252.8|12.8|2|60|: Erst diese  Zeile

Wiederhole bis t>120: und dann diese doppelt anklicken !
a= (-pi/4*W*W*cos(W*e)*j-sgn(v)*0.4*0.05*m*abs(v*v*r+9.81*cos(x+z/2))- m*9.81*r*sin(x+z/2))/J
z=v*h+0.5*a*h^2
x=x+z
v=v+a*h
wenn x>0
q=0
ohnewenn
wenn x<0
wenn q=0
wenn e>2.9
W=2*pi/e
e=0
q=1
ohnewenn
t=t+h
e=e+h
k=x/pi*180
_t;k
zurck







dL/dt = - dl/dt + 1177*w
a=pi/4*sin(2*pi/T*t)
l = J*da/dt
di/dt= - pi^3/T^2*sin(2*pi/T*t)*12.8
dL/dt = 240 * dw/dt
