$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -con 10
&weight -compute 5 32 120 120
medit
   ~wire b_cat 3  -len 4000 -depanc 500
   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
   &conne /bml -a_horiz 500
   &conne /sml -a_horiz 500
   ~rod rod 12 .5 -len 3300  -refine 33 -depanc 500 \
            -section 0 0 0 0 1e-5 1e-5
   ~roller roller y 11*12 z 11*12
   connector rol_5 -goa 0 0 12*10    ~roller *s5
   connector rol_4 -goa 0 0 12*18.81 ~roller *s4
   connector rol_3 -goa 0 0 12*25.26 ~roller *s3
   connector rol_2 -goa 0 0 12*29.31 ~roller *s2
   connector rol_1 -goa 0 0 12*31    ~roller *s1
   assembly pipe  ~rod rol_5 rol_4 rol_3 rol_2 rol_1 -pipe_tens 100 300 250
end
&status pipe
&status f_connector
&status config
&connector &pipe -pipe_tens  50 100
&connector &pipe -pipe_tens  50 200
&connector rol_5  -move 0 0 0
&status pipe
&names rods
&status f_connector
&status f_rod
&status s_rod
&equi
&status pipe
&status f_connector
&status f_rod
&status s_rod
hydro
   g_press -heading 90 -period 6 7 8 9 10
end
freq_resp
    rao
    fr_point 0 0 0
       report
       end
    fr_cf rol_1
       report
       end
    fr_cf rol_2
       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
$
$*********************************************      all done
$
&fini
