Structural Acoustics

234 Structural Acoustics: Deterministic and Random Phenomena

© 2011 by Taylor and Francis Group, LLC

TABLE12.3  (Continued)

Simplied Computer Program of Table12.1

3320 FOR I = 0 TO M

3330 LET J(I) = (T(I))/SI

3340 NEXT I

3350 LET S2 = 0

3360 FOR I = 1 TO M/2

3370 LET S2 = S2 + (2/I)*COS((I – 1)*3.1416)*J(2*I)

3380 NEXT I

3390 LET Y(0) = ((2/3.1416) * (J(0) * (LOG(.5*Z) +

.577215665) + S2))/(10^K9)

3400 LET 09 = Y(0) * (10^K9)

3410 LET Y(1) = ((I/J(0)) * (J(1)*09 – (2/(3.1416*Z))))/

(10^K9)

3420 FOR I = 1 TO M

3430 LET Y(I + 1) = 2*I* (I/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 ...