&dimen -dimen feet kips
&title Test Of A Bar Connected on Two Ends to a Point
&subtitle Connectors Are Very Stiff Tension Elements
&device  -g_default device
&set leng = 800
&set time = 15
inmodel
&instat -loc 0 0 100
medit
   ~line h_cat 10 -len 100+%leng -b_ten 200
   connector ~line *one *g
   connector ~line *two *g
end
&instat -vel 2 0 0 0 -57.295*2/%leng
&instat -line @
&stat sprea
&env test  -time 7*%time 3.75/%time
TDOM -newm  1/4 1/2
prcpost
  cf_mag -even 0 999999 .25
    report
    end
  traj
    report  -even 0 999999 .25
    p 1 9 -n
    p 1 21 -n
    end
end
&fini