% isodriver.m
% 96/05/14
%
% Program to draw isoclines for a first-order differential equation
%

   c=(-6:1:10);
   for i=1:length(c);
% Draw isocline
     x=(-4:.1:4);
     y=x.^2-c(i);
     cline1='w:';
     plot(x,y,cline1); hold on;
% Draw in slope on isocline
     xs=(-4:.3:4);
     ys=xs.^2-c(i);
     cline2='r-';
     len=.2;
     iso(xs,ys,c(i),len,cline2) 
   end;
   axis([-4 4 -2 6]); 
   hold off;  
