$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con 10
&pb_parm -hbre yes
medit
   ~wire b_cat 3  -len 4000 -depanc 500  -b_tension 800
   connector pbml  -goa 0 -12*50 ~wire *b1 -anc 180+45 1500
   connector sbml  -goa 0  12*50 ~wire *b1 -anc 180-45 1500
   connector psml  -goa 0 -12*50 ~wire *s5 -anc    +45 1500
   connector ssml  -goa 0  12*50 ~wire *s5 -anc    -45 1500
   &connector /bml -a_horiz 500
   &connector /sml -a_horiz 500
   ~roller roller
   ~rod rod 21 .5 -len 490  -refine 25  -depanc 500 \
                  -wtplen (7.850/50.) -displen 7.428/50  \
                  -dragdia 38.25 -amasdia 38.25 -buoydia 0
   connector tens  ~roller *mpool
   assembly pipe  ~rod tens -pipe_tens  150
end
&status f_connector
&data env
  t_pressure cow @ 0 0 0 120/62.4
end_&data
&env -t_pressure cow
&weight -compute 5 32 120 120
&status pipe
&status f_connector
&status s_rod
hydro
   g_press -heading 90 -period 3 4 5 5.5  6 6.5  7 7.5  8 9 10 11 \
                           12 13 14 15
end
freq_resp
    rao
    &names rod
    fr_cforce tens
       report
       end
    st_cfor @ -sea issc 90 10 6 -use_mean
       report
       end
    st_rfor &pipe -sea issc 90 10 6 -use_mean
       report
       end
    st_rstr &pipe -sea issc 90 10 6 -use_mean
       report
       end
end
&paramet -ramp -1.
&env test -sea issc 90 10 7.5 -time 25 .25 -t_pressure cow
tdom
&dcptime time for time domain
prcpost
  cf_magnitude
    report
  end
  traj
    statist 1 2 6 7 8
    report loca
  end
  r_view &pipe
    vl
    report
    end
  r_deta &pipe -event 1
    report
    end
  r_enve &pipe
    report
    end
end
$
$*********************************************      all done
$
&fini
