$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
$
$*********************************************      position
$
&instate -con 10
&weight -compute temp 0.
$
$*********************************************      environments
$
&data env
   env seahar -sea regular 0 0.0001 8.05 -time 8.06 .01
   env hogsag -sea regular 0 10.    8.05 -time 8.06 .01
   env ss0390 -sea issc 90  9.  8.114 -time 10 1
   env ss1090 -sea issc 90 26. 11.403 -use_mean yes
end_&data
$
$*********************************************      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 -note Rao Load Cases -tag load_case
   s_rest ~supo
   ssolve
end
$
$*********************************************      duration
$
&set vel = 6*1.689
&set tim = &number(real 60*3600*24)
&set len = &number(real %vel*%tim)
&data duration tow -velocity 6*1.689 $&number(real 60*3600*24*6*1.689)
   0.03  -sea issc 00 22. 10.317
   0.03  -sea issc 00 26. 11.403
   0.03  -sea issc 90 22. 10.317
   0.03  -sea issc 90 26. 11.403
   0.06  -sea issc 45 22. 10.317
   0.06  -sea issc 45 26. 11.403
   0.07  -sea issc 00 19. 10.317
   0.08  -sea issc 90 19. 10.317
   0.10  -sea issc 00 17. 10.317
   0.12  -sea issc 90 17. 10.317
   0.16  -sea issc 45 19. 10.317
   0.18  -sea issc 00 15.  9.541
   0.22  -sea issc 90 15.  9.541
   0.25  -sea issc 45 17. 10.317
   0.42  -sea issc 00 13.  8.990
   0.44  -sea issc 45 15.  9.541
   0.50  -sea issc 90 13.  8.990
   0.77  -sea issc 00 11.  8.560
   0.91  -sea issc 90 11.  8.560
   1.01  -sea issc 45 13.  8.990
   1.50  -sea issc 00  9.  8.114
   1.78  -sea issc 90  9.  8.114
   1.86  -sea issc 45 11.  8.560
   3.63  -sea issc 45  9.  8.114
   4.54  -sea issc 00  2.  7.866
   5.38  -sea issc 00  6.  7.400
   5.40  -sea issc 90  2.  7.866
   6.39  -sea issc 90  6.  7.490
   11.01 -sea issc 45  2.  7.866
   13.03 -sea issc 45  6.  7.445
end
$
$*********************************************      strpost
$
strpost
   cases -fatigue  tow
   &type Duration &str_post(dura)
   &type c_Duration &str_post(c_dura)
$
$*********************************************      sn curve
$
   &rep_sel  -sn Ray \
              400    5.25e3    \
              375    6.77e3    \
              350    7.84e3    \
              325    9.79e3    \
              300    1.24e4    \
              275    1.61e4    \
              250    2.15e4    \
              225    2.95e4    \
              200    4.20e4    \
              175    6.27e4    \
              150    9.96e4    \
              125    1.72e5    \
              100    3.36e5    \
               75    7.97e5    \
               50    2.69e6    \
               40    5.25e6    \
               32.45 9.84e6 -s_imp 1.4
$
$*********************************************      cases
$
   cases  -time   seahar harbour 4.03 -note Harbor Condition -tag load_case
   cases  -time   hogsag hog     4.03 -note Hog Condition -tag load_case
   cases  -time   hogsag sag    8.05  -note Sag Condition -tag load_case
   cases -combine nethog harbour -1 hog 1 -note Net Hog -tag load_case
   cases -combine netsag harbour -1 sag 1 -note Net Sag -tag load_case
   cases -time    ss0390 t1 1 -note Time 1 -tag load_case
   cases -time    ss0390 t2 2 -note Time 2 -tag load_case
   cases -time    ss0390 t3 3 -note Time 3 -tag load_case
   cases -time    ss0390 t4 4 -note Time 4 -tag load_case
   cases -time    ss0390 t5 5 -note Time 5 -tag load_case
   cases -time    ss0390 t6 6 -note Time 6 -tag load_case
   cases -time    ss0390 t7 7 -note Time 7 -tag load_case
   cases -time    ss0390 t8 8 -note Time 8 -tag load_case
   cases -time    ss0390 t9 9 -note Time 9 -tag load_case
   cases -spect   ss1090 -note spectral case -tag load_case
$
$*********************************************      status
$
   &status note
   &status n_map
$
$*********************************************      joint
$
   joint displ -load net@ -file yes
   joint crush -load :check -detail -summary -file yes
   joint fat -durat tow -stand -sn xp -csrv no -file yes
   &type Joint Fat &str_post(j_fat)
   joint code -load :check -detail -summary -file yes
   &type Joint Code &str_post(j_check)
$
$*********************************************      beam
$
   beam loads code -load net@ -file yes -b_load
   &type Beam Code &str_post(e_check)
   &type Beam load &str_post(e_load)
   &select :check -s net@ ss1090
   beam code -load :check -summary -file yes
   &type Beam Code &str_post(e_check)
   beam fat -element tstbeam -summary -standard -file yes
   beam count -element tstbeam -s_bins 5 10 15 20 25 30 35 40 \
                  50 60 70 80 90 100 120 -file yes
   f_rao -element @ -Class @ -detail -standar -summ -file yes
   &type Beam Fat &str_post(e_fat)
$
$*********************************************      plate
$
   &set von =  -cdr_von no
   plate %von -eleme @ -s_bins 5 10 15 20 25 30 35 40 \
                  50 60 70 80 90 100 120 800 -stand -file yes
   &type Plate Fat &str_post(e_fat)
   &type Plate Load &str_post(e_load )
$
$*********************************************      names
$
   &names duration
   &names sn
   &names selec
   &names env
   &names macros
   &names names
   &status sn
$
$*********************************************      all done
$
&finish
