set xrange [-10:4] f(x) = ((x+7)/4)*((x-5)/3); df(x) = (1/4.0)*((x-5)/3) + (1/3.0)*((x+7)/4) a=-5.0; der = df(a); Delta = 0.5; ## usando números do tipo float 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 com Delta =',Delta,' é ', m; print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2 Delta = 0.1 ## usando números do tipo float 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 com Delta =',Delta,' é ', m print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2 Delta = 0.01 ## usando números do tipo float 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 com Delta =',Delta,' é ', m print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2 Delta = 0.001 ## usando números do tipo float 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 com Delta =',Delta,' é ', m print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2 Delta = 0.0001 ## usando números do tipo float 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 com Delta =',Delta,' é ', m print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2 Delta = 0.00001 ## usando números do tipo float 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 com Delta =',Delta,' é ', m print 'O valor \"exato\" da derivada em ', a , "é ", der; pause -2