$
$*********************************************      set basics
$
&title Test Of Pulleys with Catenary 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 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
   assembly pulley psst tsst csst
   assembly pulley psbs tsbs csbs
   assembly pulley psbb tsbb csbb
   assembly pulley psbo tsbo csbo
   assembly pulley ppst tpst cpst
   assembly pulley ppbs tpbs cpbs
   assembly pulley ppbb tpbb cpbb
   assembly pulley ppbo tpbo cpbo
end
&status f_connector
&connect @ -a_ten 125
&status f_connector
&connect @ -l_ten 150
&status f_connector
&instate -move 10 0 0
&status force
&status f_connector
&status config
repo
   show
   do
   &status force
   &status f_connector
   &status config
$
$*********************************************      all done
$
&fini
