$
$*********************************************      set basics
$
&title Test Of Pulleys with Taught Lines
&device -oecho no
&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 ten 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
&instate -move 10
&status f_connector
&status force
&status spread
&connec pulle@  -l_ten 100
&status f_connector
&status force
&status spread
&equi -tole 1e-6
&status f_connector
&status spread
&event 1
struct
    lcase -proces 1
    ssolve
end
strpost
   rest
   beam load
end
$
$*********************************************      all done
$
&fini
