$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$   This is a sample of how to calculate connector forces between
$   two bodies.  This file models a simple jacket on a barge.  The
$   connectors (sea-fastenings) are modeled as springs.  Several
$   reports on the connectors forces are produced.
$
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
$
$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&default -probability 1/10                   $ changing from default
$
$   put barge at 10ft draft leave the barge deck at 10ft above MWL.
$   put jacket 0.001ft above barge deck
&instate -locate jacket 200 0  10.001 0 0 0 \
         -locate barge    0 0 -10 000 0 0    $ cannot put comment after
$                                              line continuation
$
$*********************************************      Use model edit to make connections between
$                       barge and jacket.  Need connectors so the
$                       jacket loads can be transfered to the barge.
medit
$*********************************************      Generalized spring defined 6 dof
 ~pin gspr x 1e5 y 1e5 z 1e5 rx 1e4 ry 1e4 rz 1e4
$*********************************************      Connection nodes correspond to
$                       comments in dat file
  connector c1  ~pin *db1 *v1
  connector c2  ~pin *db2 *v2
  connector c3  ~pin *db3 *v3
  connector c4  ~pin *db4 *v4
end_medit
$                       In main menu again
$
$
$
$*********************************************      forces on the connect at distance 0.001
&status f_connector
$*********************************************      find equilibrium position of two body system
&equi
&status
$*********************************************      position moved just a little
&status configur
$*********************************************      now forces should total the jacket weight
&status f_connector
$
$*********************************************      Calculate the hydrodynamic database
hydrodynamics
   g_pressure barge -heading 90 -period    6 7 8 9 10 11 12 13
end_hydrodynamics
$
$*********************************************      Frequency-response (i.e. linearized analysis)
$
freq_response
$*********************************************      calculate Response Amplitude Operators
 rao
$*********************************************      connectors do not belong to a body
$                       so do not have to specify what body to look at
$*********************************************      connector force response operators
 fr_cforce c1
    report
 end
$*********************************************      statistics of the connector response
$ to defined wave spectrum
 st_cforce @ -sea issc 90 10 6
    report
 end
$*********************************************      force response spectra
 sp_cforce c1 -sea issc 90 10 6
    report
 end
$
$*********************************************      now interested in barge so have to
$                      specify which body
 &describe body barge
$*********************************************      report motion response operators
$                      at x=200,y=0,z=20 of barge coordinate system
 fr_point 200 0 20
    report
 end
$*********************************************      connector force response operators
$                      should be same as above
 fr_cforce c1
    report
 end
$*********************************************      statistics of the connector response, this time
$                      reporting for 8 diff wave spectra periods
 st_cforce @ -sea issc 90 10 6 -e_period 13 12 11 10 9 8 7 6
    report
 end
$
$                      now interested in jacket so have to specify which body
 &describe body jacket
$*********************************************      report motion response operators at
$                      body origin of jacket coordinate system
  fr_point
     report
  end
end_freq_response
$
$*********************************************      all done
$
&finish
