$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$   ----------    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 basics
$
&dimen -DIMEN FEET KIPS
&device -g_default file -oecho no
&title Sample of the use of the -PISTON option
$
$*********************************************      read model
$
inmodel
$
$*********************************************      Set Initial Condition
$
&instate -CONDITION 9
$
$*********************************************      Define Mooring Lines
$
medit
   &describe body ground
   *gmm   0   100   20
   &describe body tbrg
   *MLA 400    50   20
   *MLB 400   -50   20
   *MLC   0   -50   20
   *MLD   0    50   20
   *MMD   0    00   20
   ~max    sl_elem .5 -len 100  -emod 29e2 \
          -piston max 7*12 3.5*12 .125 .125 45
   ~minmax sl_elem .5 -len 100  -emod 29e2 \
          -piston min 7*12 3.5*12 .125 .125 45 10
   ~none  sl_elem .5 -len 100  -emod 29e2
   ~WIRE b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .0125
   CONNECTOR ma -ANC  -45   20 ~WIRE    *MLB
   CONNECTOR mb -ANC  -90   20 ~WIRE    *MLB
   CONNECTOR mc -ANC  -90   20 ~WIRE    *MLC
   CONNECTOR md -ANC -135   20 ~WIRE    *MLC
   CONNECTOR me -ANC  135   20 ~WIRE    *MLD
   CONNECTOR mf -ANC   90   20 ~WIRE    *MLD
   CONNECTOR mg -ANC   90   20 ~WIRE    *MLA
   CONNECTOR mh -ANC   45   20 ~WIRE    *MLA
   CONNECTOR snone             ~none    *MLD *gmm
   CONNECTOR smax              ~max     *MLD *gmm
   CONNECTOR smin              ~minmax  *MLD *gmm
end
$
$*********************************************      Move Anchors
$
&connector m@ -a_tension 100  s@ -l_ten 15
&dcptime Time to Connect
$
$*********************************************      Frequency Domain
$
hydrodynamics
    g_pressure TBRG -heading 90
end
&describe body TBRG  -md_phase 90
$
$*********************************************      Find Equilibrium
$
&env TEST -sea issc 90 5  7.5 -TIME 600 1 $ .25
&equi
&status f_connector
&status Force
&dcptime Time For Equilibrium
$
$*********************************************      Define Report Points
$
&describe interest -associate   *M@
$
$*********************************************      Time Domain
$
&connector s@ -l_ten 15
&status f_connector
TDOM   -newmark
&dcptime Time For Time Domain
$
$*********************************************      Time Domain Post
$
PRCPOST
  body_force -force @  m@
    vlist
    statistic 1 3
  end
  TRAJECTORY
    vlist
    statistic 1 2 6 7 8
  end
  cf_mag s@
    vl
    plot 1 2  -n
    plot 1 4  -n
    plot 1 6  -n
    report
    end
end
&dcptime Time For Time Post Processing
$
$*********************************************      all done
$
&FINI
