
152 Structural Acoustics: Deterministic and Random Phenomena
© 2011 by Taylor and Francis Group, LLC
TABLE7.1 (Continued)
Computer Program for Point Loading of Cylindrical Shells
3360 FOR I=1 TO M/2
3370 LET S2=S2+(2/I)*COS((I-1)*3.1416)*J(2*1)
3380 NEXT I
3390 LET Y(0)=((2/3.1416)*(J(0)*(LOG(.5*Z)+.577215665#)+
S2))/(10^K9)
3400 LET O9=Y(0)* (10^K9)
3410 LET Y(1)=((1/J(0))*(J(1)*O9–(2/(3.1416*Z))))/(10^K9)
3420 FOR I = 1 TO M
3430 LET Y(I+1)=2*I*(1/Z)*Y(I)–Y(I–1)
3440 NEXT I
3450 RETURN
3460 LET L(M)=0
3470 LET L(M–1)=10^(–L9)
3480 FOR I=M TO 2 STEP –1
3490 LET L(I–2)=2*(I–1)*(1/Z)*L(I–1)+L(I)
3500 NEXT I
3510 LET S3=0
3520 FOR I=1 TO M
3530 LET S3=S3+2*L(I) ...