set xrange [-10:4] f(x) = ((x+7)/4.0)*((x-5)/3.0); df(x) = (1/4.0)*((x-5)/3.0) + (1/3.0)* ((x+7)/4.0) der = df(-7.0) a=-7.0; Delta = 6.0; ## 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2 Delta = 5.0 ## 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2 Delta = 3.0 ## 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2 Delta = 2.0 ## 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2 Delta = 1.0 ## 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2 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, aproxim. é ', m print 'O coeficiente angular da reta tangente é ', der pause -2