Reduced Input
*Node and *Element Cards are removed.
*KEYWORD
*TITLE
Wave Propagation In Rod, bar element
$
$ This problem is to demonstrate wave propagation in one dimension
$ Demonstrate potential problems with 32 Bit machines
$ Time step calculation for rod elements
$ Demonstrate time integration stability limits
$ units: mm, ton, N
$ A. Tabiei 3/3/98
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*CONTROL_TIMESTEP
$ DTINIT TSSFAC
0.0000 0.9000
*CONTROL_TERMINATION
$ ENDTIM
0.000925
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*DATABASE_BINARY_D3PLOT
$ DT/CYCL
0.00001
*DATABASE_MATSUM
$ DT/CYCL
1.000E-06
*DATABASE_NODOUT
$ DT/CYCL
1.000E-06
*DATABASE_ELOUT
$ DT/CYCL
1.000E-06
*DATABASE_NODFOR
$ DT/CYCL
1.000E-06
*DATABASE_GLSTAT
$ DT/CYCL
1.000E-06
*DATABASE_history_node_set
$ ID
1
*DATABASE_history_beam_set
$ ID
1
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*SET_NODE_LIST
$ SID
1
$ NID1
2 22
*SET_BEAM_LIST
$ SID
1
$ K1
20
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*MAT_elastic
$ MID RO E PR
1 7.890E-09 2.068E+05 3.000E-01
*PART
BEAM:
$ PID SID MID
1 1 1
*SECTION_BEAM
$ sid elform
1 3
$ a
645
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*DEFINE_CURVE
$ lcid
1
$ abscissa ordinate
0.00000000000000E+00 1.0000000000000E+00
2.00000000000000E-03 1.0000000000000E+00
*LOAD_NODE_POINT
$NODE/NSID DOF LCID SF CID
2 1 1 5.000E+02 0
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*BOUNDARY_SPC_NODE
$ NID CID X Y Z RX RY RZ
1 0 1 1 1 1 1 1
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*NODE
$ NID X Y Z
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*ELEMENT_BEAM
$ EID PID N1 N2
$---+----1----+----2----+----3----+----4----+----5----+----6----+----7----+----8
*END