%%
%% This is file `pendg.m',
%% generated with the docstrip utility.
%%
%% The original source files were:
%%
%% dae.dtx  (with options: `pendg')
%% 
%% (c) Tony Roberts, v1.0b, 16 May 2000, aroberts@usq.edu.au
%% Permission is hereby granted, free of charge, to any person to copy
%% this software and associated documentation files.  But under no
%% circumstances is it to be modified.  This copyright and permission
%% notice shall be included in all copies or substantial portions of the
%% Software.
%% 
%% Used by pendrun.m
function pendg(t,w,wd)
x=w(1); y=w(2); u=w(3); v=w(4); s=w(5);
plot([0 -x],[0 -y],-x,-y,'o',-x-[0 u]/8,-y-[0 v]/8)
axis equal
axis off
axis([-1 1 -1 1])
drawnow
%% 
%%
%% End of file `pendg.m'.