$
$*********************************************      basics
$
&title Test of Pulleys in the Frequency Domain
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -loca 0 0 -9
&weight -compute 5 32 .29*400 .29*400
&dcptime time to medit
medit
   ~wire h_cat 1.25   -len 4000 -tab 300
   connector sst ~wire *mla *ga
   connector sbo ~wire *mld *ga
   connector pst ~wire *mlb *gb
   connector pbb ~wire *mlc *gb
   &connecto @ -l_tension 50
   assembly pulley pulley_s sst sbo
   assembly pulley pulley_p pst pbb
end
&status f_connector
&status spread
&status force
hydro
   g_press -heading 90 180 -period 6 7 8 9 10 11 12 13
end
freq_resp
   rao
    fr_point
       report
       end
    fr_cfor pst
       rep
       end
    fr_cfor sst
       rep
       end
    st_cfor @ -sea issc 90 10 4 -e_period  5 6 7 8 9
       rep
       end
    st_cfor @ -sea issc 180 10 4 -e_period  5 6 7 8 9
       rep
       end
$
$*********************************************      all done
$
&fini
