$
$*********************************************      set basics
$
&device  -oecho n  -g_default device -diag none 0
&dimen -dimen feet kips
$
$*********************************************      read model
$
inmodel
&instate -loc 0 0 0 0 0 0
medit
  &set spring   = -send 1
  &set damp     = -damp 1
  &set spring   =
  &set damp     =
  &set weight   =   900 $ weight of winch + wire
  &set applied  =   300 $ maximum applied torque
  &set s_moment =     1 $ constant moment friction
  &set d_moment =     2 $ dynamic moment friction ( omega**2 )
  &set tot_len  =  1000 $ line on winch
  &set gy_radi  =     5 $ winch radius of gyration
  &set radius   =     5 $ radius of winch
  ~w_line  h_cat .5 -len 10 %spring %damp
  connector w_line1 ~w_line   *1 *g
  connector w_line2 ~w_line   *2 *g
  assembly winch winch w_line1 w_line2 %weight      \
                              %applied     \
                              %s_moment    \
                              %d_moment    \
                              %tot_len     \
                              %gy_radi     \
                              %radius
end
&pict side
&insta -loca 0 0 100
&conn @ -l_ten 10
&equi
&stat force
&stat f_conn
&conn winch  -l_dynam brake 1
&set tstep = .05
&env still -time 75 %tstep  0
tdom -new .33 .67
 prcpost
    traj
       vlist
       report
       plot 1 7 -rax 13 -n
       end
    cf_mag
       vl
       report
       plot 1 2 4 -n
       end
    c_length
       vl
       report
       plot 1 2 4 -rax 3 5  -n
       end
$
$*********************************************      all done
$
&fini
