$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    BARGE/JACKET TRANSPORTATION COMMANDS  ------------
$
$    This set of commands will perform an analysis of a jacket on
$ a flexible barge in the frequency domain. Stochastic member and
$ joint checks are computed, as well as fatigue. To condiser the
$ barge as rigid, you need only add -RIGID to the TOWSOLVE command.
$ Also, it you have a rigid barge, then the only "barge structure"
$ needed is a single node.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      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
   beam_sum scf
   point_sum scf
   categ
end
&status b_w    -hard
&status force  -hard
&status config -hard
&PICTURE iso     -type structure
&PICTURE side
&PICTURE front
&PICTURE top
&DCPTIME Time To Print Reports
$
$*********************************************      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 resp
$
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
$
$*********************************************      perfomr struct. analysis
$
STRUCTURAL
   TOWSOLVE
$
$*********************************************      struct. post sis
$
STRPOST
$
$*********************************************      define environments
$
   &DCPTIME
   duration tow -velocity 6*1.689 &number(real 59.99*3600*24*6*1.689)
      0.03  -sea issc 180 22. 10.317
      0.03  -sea issc 180 26. 11.403
      0.03  -sea issc 090 22. 10.317
      0.03  -sea issc 090 26. 11.403
      0.06  -sea issc 135 22. 10.317
      0.06  -sea issc 135 26. 11.403
      0.07  -sea issc 180 19. 10.317
      0.08  -sea issc 090 19. 10.317
      0.10  -sea issc 180 17. 10.317
      0.12  -sea issc 090 17. 10.317
      0.16  -sea issc 135 19. 10.317
      0.18  -sea issc 180 15.  9.541
      0.22  -sea issc 090 15.  9.541
      0.25  -sea issc 135 17. 10.317
      0.42  -sea issc 180 13.  8.990
      0.44  -sea issc 135 15.  9.541
      0.50  -sea issc 090 13.  8.990
      0.77  -sea issc 180 11.  8.560
      0.91  -sea issc 090 11.  8.560
      1.01  -sea issc 135 13.  8.990
      1.50  -sea issc 180  9.  8.114
      1.78  -sea issc 090  9.  8.114
      1.86  -sea issc 135 11.  8.560
      3.63  -sea issc 135  9.  8.114
      4.54  -sea issc 180  2.  7.866
      5.38  -sea issc 180  6.  7.400
      5.40  -sea issc 090  2.  7.866
      6.39  -sea issc 090  6.  7.490
      11.01 -sea issc 135  2.  7.866
      13.03 -sea issc 135  6.  7.445
   end_duration
   &data environment
      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
$
$*********************************************      define cases
$
   CASES -spectra ss10_90 ss10_135 ss10_180
   CASES -fatigue  TOW
   &DCPTIME Time To Define Cases
$
$*********************************************      reactions
$
   RESTRAINT envelope -load SS@
   &DCPTIME Time To Report Reactions
$
$*********************************************      member checks
$
   beam CODE -load ss@ -summary  1 1e10  0 1
   &DCPTIME Time To Report Code Check
$
$*********************************************      joint checks
$
   joint code -load SS@ -standard 1 1e10 0 1
   &DCPTIME Time To Report Punch
$
$*********************************************      plate stress
$
   plate stress -load SS@ -standard 1 1e10 0 1
   &DCPTIME Time To Report Plate Stresses
$
$*********************************************      joint fatigue
$
   JOINT fatigue -duration tow -node *J0601 -standard -cls_mea yes \
           -csrv_jfat no -sn xp
   JOINT fatigue -duration tow -node *j@ -standard \
                    -summary -cls_mea no \
           -sn xp
   &DCPTIME Time To Report Joint Fatigue
$
$*********************************************      beam
$
   BEAM nt_fatigue  -duration TOW -class @ -summary \
                    -standard .1 1e10 .01 .1 0 .01
   &DCPTIME Time To Report Beam Fatigue
   &type Beam Fat &str_post(e_fat)
$
$*********************************************      plate
$
   PLATE fatigue  -duration TOW -class @ -node @ \
                  -summary  .1 1e10 .01 .1 0 .01
   &DCPTIME Time To Report Fatigue
   &type Duration &str_post(dura)
   &type plate Fat &str_post(e_fat)
END
$
$*********************************************      all done
$
&FINISH