$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------      MODEL FOR BARGE    ------------
$
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      define body
$
&describe body lbarge
$
$*********************************************      hydrostatic model
$
pgen -tanaka 1
   plane 0  50 100 150 200 250 300 -rect 0 20 90
end pgen
$
$*********************************************      nodes
$
*c1   0  00  10
*c2 150  00  10
*c3 300  00  10
*p1   0 -50  20
*p2 150 -50  20
*p3 300 -50  20
*s1   0  50  20
*s2 150  50  20
*s3 300  50  20
$
$*********************************************      non slam
$
&default -nuse @
~tbig tube 1200 1
~tlit tube 36   1
beam ~tbig *c1 *c2 *c3
beam ~tlit *c1 *p1 *s1 *c1
beam ~tlit *c2 *p2 *s2 *c2
beam ~tlit *c3 *p3 *s3 *c3
$
$*********************************************      slam
$
&default -use @
~tslam tube  12   1
beam ~tslam sl_s1 -sn x *s1 *s2
beam ~tslam sl_s2 -sn x *s2 *s3
beam ~tslam sl_p1 -sn x *p1 *p2
beam ~tslam sl_p2 -sn x *p2 *p3
$
$*********************************************      restraint
$
~supo gspr x 1e13  y 1e13  z 1e13 rx 1e14 ry 1e14 rz 1e14
rest ~supo *c1