p112.res

I[1].M.Smith所著的《有限元方法编程》第三版Fortran程序

Global coordinates 
Node    1         0.0000E+00  0.0000E+00
Node    2         0.0000E+00 -0.5000E+00
Node    3         0.0000E+00 -0.1000E+01
Node    4         0.6667E+00  0.0000E+00
Node    5         0.6667E+00 -0.1000E+01
Node    6         0.1333E+01  0.0000E+00
Node    7         0.1333E+01 -0.5000E+00
Node    8         0.1333E+01 -0.1000E+01
Node    9         0.2000E+01  0.0000E+00
Node   10         0.2000E+01 -0.1000E+01
Node   11         0.2667E+01  0.0000E+00
Node   12         0.2667E+01 -0.5000E+00
Node   13         0.2667E+01 -0.1000E+01
Node   14         0.3333E+01  0.0000E+00
Node   15         0.3333E+01 -0.1000E+01
Node   16         0.4000E+01  0.0000E+00
Node   17         0.4000E+01 -0.5000E+00
Node   18         0.4000E+01 -0.1000E+01
Global node numbers 
Element     1            3    2    1    4    6    7    8    5
Element     2            8    7    6    9   11   12   13   10
Element     3           13   12   11   14   16   17   18   15
There are    30  equations and the half-bandwidth is   15
  Time t    cos(omega*t) Displacement
  0.1047E+01  0.9511E+00  0.4557E+00
  0.2094E+01  0.8090E+00  0.2699E+01
  0.3142E+01  0.5878E+00  0.5166E+01
  0.4189E+01  0.3090E+00  0.7263E+01
  0.5236E+01 -0.1608E-15  0.9409E+01
  0.6283E+01 -0.3090E+00  0.1138E+02
  0.7330E+01 -0.5878E+00  0.1244E+02
  0.8378E+01 -0.8090E+00  0.1213E+02
  0.9425E+01 -0.9511E+00  0.1041E+02
  0.1047E+02 -0.1000E+01  0.7466E+01
  0.1152E+02 -0.9511E+00  0.3476E+01
  0.1257E+02 -0.8090E+00 -0.1297E+01
  0.1361E+02 -0.5878E+00 -0.6472E+01
  0.1466E+02 -0.3090E+00 -0.1158E+02
  0.1571E+02  0.1593E-14 -0.1612E+02
  0.1676E+02  0.3090E+00 -0.1962E+02
  0.1780E+02  0.5878E+00 -0.2171E+02
  0.1885E+02  0.8090E+00 -0.2211E+02
  0.1990E+02  0.9511E+00 -0.2076E+02
  0.2094E+02  0.1000E+01 -0.1780E+02