586
16 Computer Programs in Vibration Analysis
Table 16.5 (continued)
5 -0.9996
-0.1883E-02
0.0000E+00 0.0000E+00 0.0000E+00 0.9333E-03
6 -0.9999
0.5135E-01
0.0000E+00 0.0000E+00 0.0000E+00 -0.1092E-03
7 -1.000
-0.8320E-07
0.0000E+00 0.0000E+00 0.0000E+00 -0.4589E-03
8 -0.9999
-0.5135E-01
0.0000E+00 0.0000E+00 0.0000E+00 -0.1092E-03
9 -0.9996
0.1883E-02
0.0000E+00 0.0000E+00 0.0000E+00 0.9333E-03
10 -0.7723
0.1412E-02
0.0000E+00 0.0000E+00 0.0000E+00 0.1987E-02
11 -0.4417
0.9417E-03
0.0000E+00 0.0000E+00 0.0000E+00 0.2276E-02
12 -0.1357
0.4709E-03
0.0000E+00 0.0000E+00 0.0000E+00 0.1639E-02
13 -0.1276E-21 0.4709E-23
0.0000E+00 0.0000E+00 0.0000E+00 0.5374E-23
MODE SHAPE =
2
NATURAL FREQUENCY =
71.570732
1 -0.4535E-21 -0.3435E-22 0.0000E+00 0.0000E+00 0.0000E+00 0.9954E-23
2 -0.2079
-0.3435E-02 0.0000E+00 0.0000E+00 0.0000E+00 0.2168E-02
3 -0.4903
-0.6861E-02 0.0000E+00 0.0000E+00 0.0000E+00 0.1135E-02
4 -0.4603
-0.1027E-01 0.0000E+00 0.0000E+00 0.0000E+00 -0.1661E-02
5 -0.1571E-02 -0.1364E-01 0.0000E+00 0.0000E+00 0.0000E+00 -0.4266E-02
6 -0.7866E-03 -0.6844
0.0000E+00 0.0000E+00 0.0000E+00 -0.3865E-02
7
0.1831E-06 -1.000
0.0000E+00 0.0000E+00 0.0000E+00 -0.4025E-09
8
0.7869E-03 -0.6844
0.0000E+00 0.0000E+00 0.0000E+00 0.3865E-02
9
0.1571E-02 -0.1364E-01 0.0000E+00 0.0000E+00 0.0000E+00 0.4266E-02
10 0.4603
-0.1027E-01 0.0000E+00 0.0000E+00 0.0000E+00 0.1661E-02
11 0.4903
-0.6861E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.1135E-02
12 0.2079
-0.3435E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.2168E-02
13 0.4535E-21 -0.3435E-22 0.0000E+00 0.0000E+00 0.0000E+00 -0.9954E-23
MODE SHAPE =
3
NATURAL FREQUENCY =
115.789810
1 -0.1549E-20 0.9854E-23 0.0000E+00 0.0000E+00 0.0000E+00 0.2781E-22
2 -0.5244
0.9854E-03 0.0000E+00 0.0000E+00 0.0000E+00 0.4928E-02
3 -1.000
0.1964E-02 0.0000E+00 0.0000E+00 0.0000E+00 0.2897E-03
4 -0.5435
0.2927E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.5706E-02
5
0.3642
0.3869E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.4750E-02
6
0.3683
-0.2998
0.0000E+00 0.0000E+00 0.0000E+00 0.4783E-03
7
0.3697
-0.1090E-05 0.0000E+00 0.0000E+00 0.0000E+00 0.2759E-02
8
0.3683
0.2998
0.0000E+00 0.0000E+00 0.0000E+00 0.4784E-03
9
0.3642
-0.3869E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.4750E-02
10 -0.5435
-0.2927E-02 0.0000E+00 0.0000E+00 0.0000E+00 -0.5706E-02
11 -1.000
-0.1964E-02 0.0000E+00 0.0000E+00 0.0000E+00 0.2898E-03
12 -0.5244
-0.9855E-03 0.0000E+00 0.0000E+00 0.0000E+00 0.4928E-02
13 -0.1549E-20 -0.9855E-23 0.0000E+00 0.0000E+00 0.0000E+00 0.2780E-22
***** FREE VIBRATION RESULTS *****
ITEARATION =
7
ERROR CODE =
0
EIGENVALUES ARE
Mode
in rad/sec
in Hz
1
18.16512299
4.26205635
2
71.57073212
8.45994854
3
115.78981018
10.76056767
MODE SHAPES
MODE SHAPE =
1
NATURAL FREQUENCY =
18.165123
1 -0.1276E-21 -0.4709E-23
0.0000E+00 0.0000E+00 0.0000E+00 0.5374E-23
2 -0.1357
-0.4709E-03
0.0000E+00 0.0000E+00 0.0000E+00 0.1639E-02
3 -0.4417
-0.9417E-03
0.0000E+00 0.0000E+00 0.0000E+00 0.2276E-02
4 -0.7723
-0.1412E-02
0.0000E+00 0.0000E+00 0.0000E+00 0.1987E-02
are two subroutines placed after the main program. The subroutine INCOF generates
the influence coefficients at different stations. It takes into account both the bending
and the shear deformation. The eigenvalue solver is subroutine GENSS. It deals with
solid matrix. GENSS is based on QR transformation. As such it can solve eigenvalue problems dealing with unsymmetric matrices. It does not give results unless