$
$*********************************************      basics
$
&title Test Of Tug Connectors and Reposition
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -condition 9
&status
&weight -compute 5 32 .29*400 .29*400
&status
&dcptime time to medit
medit
   ~wire b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008
   ~tug  tug_boat 400 -damp 10 -t_dyn 10 45
   connector sst ~wire   *mla -anc   45   20
   connector sbs ~wire   *mla -anc   90   20
   connector sbb ~wire   *mld -anc   90   20
   connector sbo ~wire   *mld -anc  135   20
   connector pst ~tug    *mlb -tug  -45   20
   connector pbs ~tug    *mlb -tug  -90   20
   connector pbb ~tug    *mlc -tug  -90   20
   connector pbo ~tug    *mlc -tug -135   20
end
&connector sst sbs sbb sbo -a_tension 400
&connector pst pbs pbb pbo -t_force   400
&env -sea issc 90 40 6
hydro
   g_press -head 90
end
repo
   do
   &status force
   &status f_connector
   &status spread
end
freq
   rao
   equ
   fr_point
      report
      end
   &loop name ( sst sbs sbb sbo pst pbs pbb pbo )
      fr_cfor %name
        report
        end
   &endloop
end
$
$*********************************************      all done
$
&fini
