Page 161 - Thomson, William Tyrrell-Theory of Vibration with Applications-Taylor _ Francis (2010)

148 Systems with Two or More Degrees of Freedom Chap. 5

Figure 5.5-3.

FORTRAN PROGRAM

DIMENSION X(51), Y(51), DX2(51), DY2C51), T(51), J(5 1 ), XCM(51),
YCMC51 )
J(1)=1
DT=0.01
DT2=DT**2
DX2(1)=0.0
DY2(1)=160.0
X(1 )=0.0
Y d )=0.0
XCM(1)=0.0
YCM(1)=0.0
T(1 )=0.0
DO 100 1=2,51
J(I)= I
T(I)= D T*(I-1)
IF (I.G T .2 ) GO TO 200
Y (I) = DY2(I“ 1 )*DT2/2,0