p44.res

《有限元方法编程（第三版）》随书源码。 采用 Fortran 90 编制

Global coordinates
Node        1      0.0000E+00  0.0000E+00
Node        2      0.6000E+01  0.0000E+00
Node        3      0.6000E+01 -0.4000E+01
Node        4      0.1200E+02  0.0000E+00
Node        5      0.1200E+02 -0.5000E+01
Node        6      0.1400E+02  0.0000E+00
Global node numbers
Element     1        1  2
Element     2        2  4
Element     3        4  6
Element     4        3  2
Element     5        3  4
Element     6        5  4
There are    10  equations and the half-bandwidth is     5

The nodal displacements are:
    1  0.0000E+00  0.0000E+00 -0.1025E-02
    2  0.3645E-07 -0.8319E-06 -0.9497E-03
    3  0.0000E+00  0.0000E+00  0.0000E+00
    4  0.6435E-07 -0.6283E-06  0.1774E-02
    5  0.0000E+00  0.0000E+00  0.0000E+00
    6  0.6435E-07  0.2880E-02  0.1329E-02
The element 'actions' are:
    1 -0.3038E+02 -0.1975E+02 -0.6000E+02  0.3038E+02  0.1975E+02 -0.5849E+02
    2 -0.2325E+02  0.8238E+01 -0.2519E+01  0.2325E+02 -0.8238E+01  0.5195E+02
    3 -0.2842E-13  0.2000E+02  0.3333E+02  0.2842E-13 -0.2000E+02  0.6670E+01
    4  0.7123E+01  0.2080E+03 -0.9497E+01 -0.7123E+01 -0.2080E+03 -0.1899E+02
    5  0.3177E+02  0.2610E+02  0.9839E+01 -0.3177E+02 -0.2610E+02  0.1968E+02
    6 -0.8513E+01  0.1257E+03  0.1419E+02  0.8513E+01 -0.1257E+03  0.2838E+02