&title Test Of Pulleys with Catenary 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 h_cat 1.25   -len 4000 -tab 300
   connector tsst ~wire  *cen *mla
   connector tsbs ~wire  *cen *mla
   connector tsbb ~wire  *cen *mld
   connector tsbo ~wire  *cen *mld
   connector tpst ~wire  *cen *mlb
   connector tpbs ~wire  *cen *mlb
   connector tpbb ~wire  *cen *mlc
   connector tpbo ~wire  *cen *mlc
   &connecto @ -l_tension 100
   ~w b_cat  4.19 -dep 500 -len 4000 -buoy 0 -wtpl .008 \
                     -b_tens 500
   connector csst ~w   *mla -anc   45   20
   connector csbs ~w   *mla -anc   90   20
   connector csbb ~w   *mld -anc   90   20
   connector csbo ~w   *mld -anc  135   20
   connector cpst ~w   *mlb -anc  -45   20
   connector cpbs ~w   *mlb -anc  -90   20
   connector cpbb ~w   *mlc -anc  -90   20
   connector cpbo ~w   *mlc -anc -135   20
   &connect c@ -a_ten 100
   pulley psst tsst csst
   pulley psbs tsbs csbs
   pulley psbb tsbb csbb
   pulley psbo tsbo csbo
   pulley ppst tpst cpst
   pulley ppbs tpbs cpbs
   pulley ppbb tpbb cpbb
   pulley ppbo tpbo cpbo
end
&stat f_c
&connect @ -a_ten 125
&stat f_c
&connect @ -l_ten 150
&status f_c
&instat -move 10 0 0
&status force
&stat f_c
&stat config
repo
   show
   do
   &status force
   &stat f_c
   &stat config
&fini