$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    BARGE/JACKET TRANSPORTATION COMMANDS  ------------
$
$    This set of commands will perform an analysis of a jacket on
$ a ridig  barge in the frequency domain. Stochastic member and
$ joint checks are computed.
$
$ Two passes are made through the STRUCT menu.  The first pass
$ creates the deadload case without tiedowns.  After the tiedowns
$ are added, the deadload case is combined with the spectral cases.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      define misc. params
$
&DEVICE  -auxin jtrans.data  -g_default device -oecho no
&dimen -dimen feet kips
&TITLE Barge/Jacket Transportation
&SUBTITLE Frequency Domain Approach With Flexible Barge
$
$*********************************************      read model
$
inmodel
$
$*********************************************      set margin
$
&DCPTIME
&apply @ -percent  -margin str@ 5
$
$*********************************************      find equilibrium
$
&ENV -wind 50 90
&INSTATE -condition vessel 10
&describe body -ignore x y rz
&equi
&describe body -ignore
&DCPTIME Time for Equilibrium
$
$*********************************************      summaries
$
&summary
   beam_sum vortex
   categ
end
&status b_w    -hard
&status force  -hard
&status config -hard
&picture iso -type struct
&picture side
&picture front
&picture top
&DCPTIME Time To Print Reports
$
$*********************************************      load out cond
$
medit
    ~stab tube 12 .25
    &describe part stab pconnect
    pconnec  10 0 0 ~stab *j1001 *b@
    pconnec  10 0 0 ~stab *j1003 *b@
    pconnec  0 10 0 ~stab *j1003 *b@
    pconnec  0 10 0 ~stab *j0603 *b@
end_medit
&event_store 1
struct
     lcase -proces loadout 1
     s_part @ jacket stab pconnect
     s_rest ~\$vlway
     ssolve
end
$
$*********************************************      compute freq. domain
$
hydrodynamics
   g_press -heading 90 135 180 \
       -period 5 5.5 6 6.5 7 7.5 8 9 10 11 12 15 20
end
$
$*********************************************      freq response
$
freq_response
   rao
   equ_sum
   FP_STD &part(CG jacket -B) -weight &part(WEIGHT jacket) \
           &part(RADII jacket -B)  -height 26
end
&DCPTIME Time for Frequency Domain Post-Processing
$
$*********************************************      perform struct. analysis
$
structural
   lcase -rao
   s_part @ jacket tiedown pconnect
   s_rest ~\$vlway
   ssolve
end_struct
$
$*********************************************      struct. post
$
STRPOST
$
$*********************************************      define environments
$
   &DCPTIME
   &data env
      ENVIRONMENT ss10_180 -sea issc 180 26. 11.403 -use_mean yes
      ENVIRONMENT ss10_135 -sea issc 135 26. 11.403 -use_mean yes
      ENVIRONMENT ss10_90  -sea issc  90 26. 11.403 -use_mean yes
   end_&data
   CASES -mean loadout -spect ss10_180 ss10_135 ss10_90
   &DCPTIME Time To Define Cases
$
$*********************************************      reactions
$
   &selec :load -s ss@
   RESTRAINT envelope -load :load
   &DCPTIME Time To Report Reactions
$
$*********************************************      member checks
$
   beam code -node *j@ -class @ -summary  1 1e10  0 1
   &DCPTIME Time To Report Codeck
$
$*********************************************      joint checks
$
   joint code -standa 1 1e10 0 1 -code rp2a old
   &DCPTIME Time To Report Punch
END
$
$*********************************************      all done
$
&FINISH
