$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    COMMANDS TO ANALYZE A MOORED BARGE    --------
$
$    This set of commands will perform an analysis of a moored barge.
$ A simple 4 point mooring arrangement is defined and the anchors are
$ repositioned to achieve a desired pretension. The Connector Design
$ menu is then entered to produce design type information. Next, a
$ frequency domain analysis is performed, and finally a time domain
$ simulation.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
&dimen -DIMEN FEET KIPS
&TITLE Sample of Multi-Point Mooring
$
$*********************************************      Read Model
$
INMODEL
$
$*********************************************      Set Initial Condition
$
&INSTATE -CONDITION TBRG 9 0 0
$
$*********************************************      Define Mooring Lines
$
MEDIT
   *MLA 400    50   20
   *MLB 400   -50   20
   *MLC   0   -50   20
   *MLD   0    50   20
   ~WIRE b_cat  4.19 -depanc 500 -len 4000 -buoydia 0 -wtplen .0125
   CONNECTOR a -ANCHOR  -45   20 ~WIRE   *MLB
   CONNECTOR b -ANCHOR  -90   20 ~WIRE   *MLB
   CONNECTOR c -ANCHOR  -90   20 ~WIRE   *MLC
   CONNECTOR d -ANCHOR -135   20 ~WIRE   *MLC
   CONNECTOR e -ANCHOR  135   20 ~WIRE   *MLD
   CONNECTOR f -ANCHOR   90   20 ~WIRE   *MLD
   CONNECTOR g -ANCHOR   90   20 ~WIRE   *MLA
   CONNECTOR h -ANCHOR   45   20 ~WIRE   *MLA
END_medit
$
$*********************************************     Move Anchors
$
&connector @ -a_tension 100
&dcptime Time to Connect
$
$*********************************************     Mooring Tables
$
CONN_DESIGN
   TABLE A
      REPORT
   END
   MOVE TBRG 90
      REPORT
   END
END_CONN
&DCPTIME Time To End Mooring Design
$
$*********************************************      Frequency Domain
$
hydrodynamics
    g_pressure TBRG -heading 90
end_hydrodynamics
$
$*********************************************     Find Equilibrium
$
&ENV TEST -sea issc 90 10  7.5 1 -TIME 300 1 
&equi
&STATUS F_CONNECTOR
&STATUS Force
&dcptime Time For Equilibrium
$
$*********************************************     Define Report Points
$
&describe interest -associate   *M@
$
$*********************************************     RAOs
$
freq_response
   rao
$
$*********************************************     Frequency Domain Post
$
   equ_sum
   fr_point
     REPORT
   END
   st_point test
      REPORT
   END
   st_cforce @ test
      REPORT
   END
   &DCPTIME Time To End FRQPOST
$
$*********************************************     spectral response
$
   sresponse test -period  500 450 400 350 300 250 200 180 160 150 140 \
                       130 120 110 100 90    \
                       80 70 60 50 40 30 \
                       25.  20.  19.  18.  17. 16.  15.  14.5    \
                       14. 13.5  13.  12.5 12. 11.5 11.  10.5    \
                       10.  9.5   9.   8.5  8.  7.5  7.   6.5    \
                       6.  5.5   5.   4.5  4.  3.
   exforce
     report
   end
   fr_point
     REPORT
   END
   st_point test
      REPORT
   END
   st_cforce @
      REPORT
   END
end_freq_response
$
$*********************************************     Time Domain
$
TDOM   -newmark yes .25 .5
&DCPTIME Time For Time Domain
$
$*********************************************     Time Domain Post
$
PRCPOST
  CONFORCE -mag_define y x z 
     REPORT
  END
  TOT_CFORCE -event 0 9999 1
    REPORT
    vlist
    statistic 1 3
  END
  TRAJECTORY
    vlist
    statistic 1 2 6 7 8
    REPORT LOCATION  -event 0 9999 1
  END
  points -event 0 9999 1 -mag_define x y 
    vlist
    REPORT
  END
END_PRCPOST
&DCPTIME Time For Time Post Processing
$
$*********************************************     All Done
$
&FINISH