$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$        ----------    COMMANDS TO ANALYZE A CALM     ------------
$
$    This set of commands will perform an analysis of a tanker moored
$ via a hawser to a buoy which, in turn, is secured by a set of
$ mooring lines. Here, a frequency domain analysis is performed.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      SET BASIC PARAMETERS
$
$
&device -g_default device
&device   -oecho no
&dimen -DIMEN METERS M-TONS
$
$*********************************************      GEN. DATABASE
$
INMODEL
&TITLE TANKER 300000 DWT MOORED TO A BUOY
$
$*********************************************      SET INIT. CONDITIONS
$
&INSTATE -LOCATE  tanker 67.66  0 -21.95 \
         -LOCATE  buoy    0     0 -3.16
$
$*********************************************      DEFINE LINES
$
MEDIT
   &DESCRIBE bodY BUOY
   *CAT1   6.28 -2.6  0.35
   *CAT2   2.60 -6.28 0.35
   *CAT3  -2.60 -6.28 0.35
   *CAT4  -6.28 -2.60 0.35
   *CAT5  -6.28  2.6  0.35
   *CAT6  -2.60  6.28 0.35
   *CAT7   2.60  6.28 0.35
   *CAT8   6.28  2.60 0.35
   *TAUTB  0.0   0.0  6.0
   ~CHAIN b_cat 100 -b_tension  350 -depanc 31 -len 356
   CONNECTOR CAT1 -ANC 337.5  340 ~CHAIN  *CAT1
   CONNECTOR CAT2 -ANC 292.5  340 ~CHAIN  *CAT2
   CONNECTOR CAT3 -ANC 247.5  340 ~CHAIN  *CAT3
   CONNECTOR CAT4 -ANC 202.5  340 ~CHAIN  *CAT4
   CONNECTOR CAT5 -ANC 157.5  340 ~CHAIN  *CAT5
   CONNECTOR CAT6 -ANC 112.5  340 ~CHAIN  *CAT6
   CONNECTOR CAT7 -ANC  67.5  340 ~CHAIN  *CAT7
   CONNECTOR CAT8 -ANC  22.5  340 ~CHAIN  *CAT8
   &DESCRIBE bodY TANKER
   *TAUTT  0 0.0 37.7
   ~ROPE h_cat 25.54 exact -b_tension 1000 -len 60.86
   CONNECTOR TAUT ~ROPE *TAUTB *TAUTT
END
&dcptime Time to Connect
$
$*********************************************      plots
$
&picture iso
&picture side
&picture top
$
$*********************************************      SET WEIGHTS
$
&connector taut -INACTIVE
&WEIGHT -COMPUTE TANKER 14.5 \
        -COMPUTE BUOY 3.91
&dcptime Time to Ballast
$
$*********************************************      LOOK AT MOORING
$
CONN_DESIGN
  TABLE CAT1
     REPORT
     vlist
     PLOT 1 3 -NO
     END
  MOVE BUOY 180.0
     REPORT
     vlist
     PLOT 1 6 -NO
     END
END
&dcptime Time For Conn_Design
$
$*********************************************      COMPUTE FREQ. DOMAIN
$
hydrodynamics
   g_pressure tanker -HEADING 0 22.5  90 180
end
$
$*********************************************      DEFINE ENV.
$
&ENV USE -sea ISSC 180 3.68 9.19 -CURRENT .7 180 -WIND 26.8 180 \
         -time 600 .50
$
$*********************************************      LOOK AT STATE
$
&STATUS CONFIG
&STATUS FORCE
&STATUS F_CONNECT
$
$*********************************************      SET INITIAL CONDITION
$
&set forc =   51.2
&set EXCU =   13.87
&set angl =   14
&connector taut -ACTIVE
&INSTATE -locate TANKER %EXCU%+67.66+6*&number(sind %angl%)  0 -21.95 \
         -locate BUOY   %EXCU%-.1  0 -3.21  0 %angl%
$
$*********************************************      DEFINE TAUT LINE
$
&connector TAUT -L_HORIZONTAL %forc
&status f_connect
&dcptime Time to Set Up For Equilibrium
$
$*********************************************      NOW FIND EQUI.
$
&describe body buoy -ignore rx rz
&equi -move_max .05 .1
&describe body buoy -ignore
$
$*********************************************      REPORT STATE
$
&STATUS CONFIG -HARD
&STATUS FORCE -HARD
&STATUS F_CONNECT -HARD
&dcptime Time For Equilibrium
$
$*********************************************      COMPUTE RAOS
$
freq_response
   RAO -spectrum use
$
$*********************************************      REPORT FDOM RESULTS
$
   &dcptime
   fr_point *tautt
      END
   st_point USE
      REPORT
      END
   fr_point *tautb
      END
   st_point USE
      REPORT
      END
   st_cforce  TAUT USE
      REPORT
      END
   &dcptime Time For FRQPOST
$
$*********************************************      spectral response
$
   sresponse use  -heading 180 135 -period  300 275 250 225 200  \
                       175 150 125 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.
$
$*********************************************      spectral post
$
   &dcptime
   fr_point *tautt
      END
   st_point
      REPORT
      END
   fr_point *tautb
      END
   st_point
      REPORT
      END
   st_cforce  TAUT
      REPORT
      END
end
&dcptime Time For Spectral Post
$
$*********************************************      COMPUTE TDOM
$
tdom -no_cap
&dcptime Time For Time Domain
$
$*********************************************      REPORT TDOM RESULTS
$
prcpost
   &dcptime
   trajectory
      vlist
      statistics 1 5 6 7 8 9 10 -hard
      statistics 1 25 2 -hard
      plot 1 5 25 -no
      REPORT location
      END
   &dcptime Time For Traj
   cf_magnitude
      vlist
      statistics 1 1+2*8+1
      REPORT
      END
   &dcptime Time For cf_mag
   rel_mot *tautt *tautb  *tautb *tautt -even 0 20000 1 -mag x y 
     vlist
     view 1 2 3 4 -hard -mag -rec 0 40
     REPORT
     END
END
$
$*********************************************     ALL DONE
$
&FINI