$
$*********************************************      set basics
$
&device -oecho no
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
$
$*********************************************      position
$
&instate -con 10
&weight -compute temp 0.
$
$*********************************************      hydrodynamics
$
hydro
   g_press  -heading 0 45 90 -period 5 10 15 20 25 30
end
$
$*********************************************      freq response
$
freq_resp
   rao
end
$
$*********************************************      struct
$
struc
   lcase -rao 
   s_rest ~supo
   ssolve
end
$
$*********************************************      strpost
$
strpost
   &set vel = 6*1.689
   &set tim = &number(real 60*3600*24)
   &set len = &number(real %vel*%tim)
   &data duration tow_1 -velocity 6*1.689 &number(real 60*3600*24*6*1.689)
      1.00  -sea issc 90 10. 8.00  
   end
   &data duration tow_2 -velocity 6*1.689 &number(real 60*3600*24*6*1.689)
      1.00  -sea issc 90 10. 8.00  -a_sea issc 90 3 16
   end
   cases -fatigue  tow_1 
   cases -fatigue  tow_2 
   &dimen  -dimen meters m-tons
   &loop case ( tow_1 tow_2 )
      &title Duration %case
      joint fat -duration %case  -stand -sn xp -csrv no 
   &endloop
   &loop case ( tow_1 tow_2 )
      &title Duration %case
      cases -fatigue  %case
      joint count -duration %case -csrv no  -s_bins 5 10 15 20 25 30 35 40 \
                                               50 60 70 80 90 100 120 
   &endloop
   &loop case ( tow_1 tow_2 )
      &title Duration %case
      cases -fatigue  %case
      beam fat -duration %case -element tstbeam -standard 
   &endloop
   &loop case ( tow_1 tow_2 )
      &title Duration %case
      cases -fatigue  %case
      beam count -duration %case -element tstbeam -s_bins 5 10 15 20 25 30 35 40 \
                                          50 60 70 80 90 100 120 
   &endloop
end
$
$*********************************************      all done
$
&finish
