584
16 Computer Programs in Vibration Analysis
16.5 Computer Program for the Free Vibration Analysis
of Ships by Flexibility Matrix Method
A computer program in FORTRAN is presented in Table 16.6 for the free vibration analysis of ships by the flexibility matrix method which has been discussed in
Sect. 11.4. The input data have been explained with the help of comment cards. There
Table 16.5 Output of the portal frame of Fig. 16.1
No. of elements.....=
12
No. of nodes.....=
13
Cross-Sectional Properties
Element
Area
Ixx
Iyy
Izz
1
29.39
0.1000E+09 0.1000E+09
3021.
2
29.39
0.1000E+09 0.1000E+09
3021.
3
29.39
0.1000E+09 0.1000E+09
3021.
4
29.39
0.1000E+09 0.1000E+09
3021.
5
29.39
0.1000E+09 0.1000E+09
3021.
6
29.39
0.1000E+09 0.1000E+09
3021.
7
29.39
0.1000E+09 0.1000E+09
3021.
8
29.39
0.1000E+09 0.1000E+09
3021.
9
29.39
0.1000E+09 0.1000E+09
3021.
10
29.39
0.1000E+09 0.1000E+09
3021.
11
29.39
0.1000E+09 0.1000E+09
3021.
12
29.39
0.1000E+09 0.1000E+09
3021.
Nodal Connectivity
Element
Nodal Connectivity
1
1
2
2
2
3
3
3
4
4
4
5
5
5
6
6
6
7
7
7
8
8
8
9
9
9
10
10
10
11
11
11
12
12
12
13
Nodal Coordinates
Node
X-Cor
Y-Cor
Z-Cor
1
0.000000E+00
0.000000E+00
0.000000E+00
2
0.000000E+00
150.000
0.000000E+00
3
0.000000E+00
300.000
0.000000E+00
4
0.000000E+00
450.000
0.000000E+00
5
0.000000E+00
600.000
0.000000E+00
6
150.000
600.000
0.000000E+00
7
300.000
600.000
0.000000E+00
8
450.000
600.000
0.000000E+00
9
600.000
600.000
0.000000E+00
10
600.000
450.000
0.000000E+00
11
600.000
300.000
0.000000E+00
12
600.000
150.000
0.000000E+00
13
600.000
0.000000E+00
0.000000E+00
FREE VIBRATION ANALYSIS OF A PORTAL FRAME
Youngs Modulus.....=
0.3000E+08
Density.....=
0.7338E-03
(continued)