$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ------------ DECK TWO BLOCK LIFT WITH SPREADER BAR -------------
$
$    This example shows how to define a sling assembly set for a deck
$    lift.  Ond of the sling assemblies has a spreader bar. The CG of the
$    deck is not on the goemetric center, consequently the equilibrium    
$    position has a list and trim.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$*********************************************      define misc. params
$
&device -g_default file   -oecho n 
&dimen -DIMEN FEET KIPS
&TITLE Two Block Upend Analysis
$
$*********************************************      define water depth
$
&default -depth 138.0
$
$*********************************************      read model
$
INMODEL  -offset
$
$*********************************************      set weight
$
&apply  -margin str@ 6
&apply  -percent @ 100
$
$*********************************************      weight summary
$
&summary
   categ_sum
   categ_sum -brief
end
&status category -hard
$
$*********************************************      reposition jacket
$
&describe process lift    
&instate -loc deck 0 0 -50
$
$
$*********************************************      define sidelift slng
$
&instate -loc spread -35 0 120
$               this is so the spreader does not spin about it long axis
&weight -total spread 5.33 0 0 0 15 100 15 
medit
$
$_______________________________________________________________________
$
$  General notes:
$  element type sling is used for tip hook assembly
$  element type sl_elem is used to connect bodies
$
$   __________________________________________     
$                 main hook
$
   ~bo1 sl_elem 10 -length 122    -density 0.001 -emodulus 15000.
   &describe part ground
   &type deck CG &body(a_cg deck   -g)
   *mainhk 0 0 160 -location &point(coordinates *J0324 -g)
   &type Location of *mainhk &point(coordinates *mainhk -g)
   &type distance &point(d_node *mainhk *j0324) 
   connector mainln ~bo1 *mainhk *j0324
$   __________________________________________     
$                 auxilary hook
$
   ~ls1 sling    4 -length  58.     -density 0.001 -emodulus 15000.
   ~aux sling    4 -length  50    -density 0.001 -emodulus 15000.
   *auxhk   -51 0 15 -reference *mainhk
   &type Location of *auxhk = &point(coordinates *auxhk -g)
   connector auxln ~aux *auxhk 
   connector ls305 ~ls1 *s1  
   connector ls105 ~ls1 *s3  
   assembly t-h_definition aux  auxln  ls305 ls105 $ -init
$   __________________________________________     
$              from spreader to deck
$
   ~sll sl_elem 10 -length  31    -density 0.001 -emodulus 15000.
   &type distance between *j381L and *s3 &point(d_node *j381L *s3) 
   &type location *j381L &point(coord  *j381L  -g) 
   connector s3 ~sll *j381L *s3
   connector s1 ~sll *j301L *s1
end
$
&title  AFTER CONNECTOR DEFINITION
&picture starb
&picture bow
$   __________________________________________     
$   we know the center is toward the aux hook
$   equilibrium is going to have a list and trim
&equi -iter_max 100
&status tip-hook    -hard
&status f_connector -hard
&title  AFTER Equilibrium
&picture starb
&picture bow
&fini  
