&title Test Of Pulleys with Taught Lines
&dimen -dimen feet kips
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
   pulley pulley_s sst sbo
   pulley pulley_p pst pbb
end
&stat f_c
&stat spread
&stat force
&instat -move 10
&stat f_c
&stat force
&stat spread
&connec pulle@  -l_ten 100
&stat f_c
&stat force
&stat spread
&equi -tole 1e-6
&stat f_c
&stat spread
&event 1
struct
    lcase -proces 1
    ssolve
end
strpost
   rest
   beam load
end
&fini