1; function fx = val(x) fx = (x^3 - 170*x^2 - 125*x + 667500); endfunction delta = 0.0001; x1 = -100; x2 = 50; while ( (x2 - x1) > delta ) xm = (x2 + x1) / 2; if ( (val(x1) * val(xm)) > 0 ) x1 = xm; else x2 = xm; endif endwhile xm
Arrivabene, V. Resistência dos Materiais. São Paulo, Makron, 1994. Beer, Ferdinand P. Johnston, E. Russell, DeWolf John T. Mechanics of Materials. New York, McGraw-Hill, 2002 Beer, Ferdinand P. Johnston, E. Russell. Vector Mechanics for Engineers. New York, McGraw-Hill, 1962. Bouché, Ch. Leitner, A. Sans, F. Dubbel. Manual da Construção de Máquinas. São Paulo, Hemus, 1979. Giek, Kurt. Manual de Fórmulas Técnicas. São Paulo, Hemus. |