&dimen -dimen meters m-tons
&default -save
&default -nuse @
&describe body barge
 pgen -cs_wind 1 1 1 -cs_curr 1 1 1
 -tanaka 0
       &loop xx ( 0 25 50 75 100 )
          plane %xx -rect 0 8 24
       &endloop
 end
$
*hcog 50 0 8
&describe load_group hull_weight *hcog
#weight *hcog 14756.1 8 30 30 -ldist 0 100
$
*n1  50   -5  8
*n2  50    -5 12
*n3  50   5  12
*n4  50   5 8
$
~tubegth tube 500 50           -fyield 412 -emod 2.05E5
$
$
beam b1 ~tubegth  *n1 *n2
beam b2 ~tubegth   *n2 *n3
beam b3 ~tubegth  *n3 *n4
~fix fix x y z rx ry rz
rest ~fix *n1
rest ~fix *n4
&default -remember