
PROGRAMM   ZUR   SCHAUKELBEWEGUNG (OHNE REIBUNG)

|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>50:und dann diese doppelt anklicken !
a= (-pi/4*W*W*cos(W*e)*j- 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
