$
$*********************************************      basics
$
$
$*********************************************      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
   &connector /bml -a_horiz 300
   &connector /sml -a_horiz 300
   ~davit davit 3 -len 100
   ~rod rod 12 .5  -len 700  -refine 20 -depanc 500
   ~rod rod 12 .5  -len 800  -refine 8
   connector dav_1 ~davit *s3
   connector dav_2 ~davit *s2
   assembly pipe  ~rod dav_1 dav_2 -pipe_ten 50
end
&status dg_connector &pipe@
&status f_connector
&status f_rod
&status g_connector
&status s_rod
&status pipe
&connector dav_2 -dav 98.0
&status pipe
&status f_connector
&equi
&status pipe
hydro
   g_press -heading 90 -period 6 7 8 9 10
end
&status f_connector -hard
&status f_rod -hard
freq_resp
    rao
    fr_point 0 0 0
       report
       end
    fr_cf dav_1
       report
       end
    fr_cf dav_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
