$
$*********************************************      basics
$
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -loc  0 0 -20
medit
    ~sling sling 3 -len 325 -b_ten 150
    ~boom sling 3 -len 325 -sec 12*(1.5**2)*3.14159
    ~airt h_cat 2
    &describe body ground
    *b1 50 0 501
    connector boom ~boom *b1
    connector sling1 ~sling *1
    connector sling2 ~sling *2
    assembly t-h boom sling1 sling2  -init
end
&connec &boom -l_ten 5
&status tip
&status f_connector
&status spread
hydro
   g_press -head 180 90 -period 5 6 7 8 9 10 11
end
freq_resp
    rao
    fr_point
       report
       end
    fr_cfo sling1
       rep
       end
    fr_cfo sling2
       rep
       end
    fr_cfo boom
       rep
       end
    st_cfo @ -sea issc 180 10 4 -e_period 5 6 7 8 9
       rep
       end
$
$*********************************************      all done
$
&fini
