f(x) = (x+3)*(x-4);
a=-5; 
Delta = 3 
Deltaf  = f(a+Delta)-f(a);
m = Deltaf/Delta;
g(x) = f(a) + m*(x-a);
plot f(x),g(x),0
print 'O coeficiente angular da reta secante é ', m
pause -2   

Delta = 2 
Deltaf  = f(a+Delta)-f(a);
m = Deltaf/Delta;
g(x) = f(a) + m*(x-a);
plot f(x),g(x),0
print 'O coeficiente angular da reta secante é ', m
pause -2  

Delta = 1  
Deltaf  = f(a+Delta)-f(a);
m = Deltaf/Delta;
g(x) = f(a) + m*(x-a);
plot f(x),g(x),0
print 'O coeficiente angular da reta secante é ', m
pause -2   

Delta = 0.5 
Deltaf  = f(a+Delta)-f(a);
m = Deltaf/Delta;
g(x) = f(a) + m*(x-a);
plot f(x),g(x),0
print 'O coeficiente angular da reta secante é ', m
pause -2   

Delta = 0.2
Deltaf  = f(a+Delta)-f(a);
m = Deltaf/Delta;
g(x) = f(a) + m*(x-a);
plot f(x),g(x),0
print 'O coeficiente angular da reta secante é ', m
pause -2