Método de Newton Modificado p/ Raízes Multiplas
Publicado por Rafael Amorim 28/03/2005
[ Hits: 11.577 ]
Homepage: http://www.rafa-amorim.com.br/
O Algoritmo foi desenvolvido para cálcular raízes multiplas de polinômios com grau menor ou igual a 6, através do Método de Newton Modificado. Espero que seja de grande ajuda!!!
#include <stdio.h>
#include <math.h>
double calculafx(double coef[6], double p0){
double fx;
int i;
fx = coef[6];
for(i= 5;i>=0;i--){
fx = (p0*fx) + coef[i];}
return fx;}
double calculadfx(double coef[6], double p0){
double fx, dfx;
int i;
fx = coef[6];
dfx = coef[6];
for(i= 5;i>=1;i--){
fx = (p0*fx) + coef[i];
dfx = (p0*dfx) + fx;}
return dfx;}
double calculaddfx(double coef[6], double p0){
double fx, dfx, ddfx;
int i;
fx = coef[6];
dfx = coef[6];
ddfx = coef[6];
for(i= 5;i>=2;i--){
fx = (p0*fx) + coef[i];
dfx = (p0*dfx) + fx;
ddfx = (p0*ddfx) + 2*dfx;}
return ddfx;}
double modulo(double x){
if (x>=0.0){
return (x);}
else{
return (-1.0*x);}}
void main(void)
{
int n, op, grau, i;
double e, numer, denom, p0, p, fx, dfx, ddfx, tol, coef[6];
printf("\e[H\e[2J");
tol = 0.000001;
printf("Digite 0 p/ polinômio ou 1 p/ exponecial: ");
scanf("%i", &op);
if (op>0){
printf("\nEntre com o ponto inicial: ");
scanf("%lf", &p0);
fx = exp(p0) - p0 -1;
dfx = exp(p0) -1;
ddfx = exp(p0);
n =1;
p = p0 - (fx*dfx)/((dfx*dfx)-(fx*ddfx));
printf("\nP%i %lf\n", (n-1), p0);
e = modulo(p-p0);
while (n<20 && e>=tol) {
p0 = p;
fx = exp(p0) - p0 -1;
dfx = exp(p0) -1;
ddfx = exp(p0);
p = p0 - (fx*dfx)/((dfx*dfx)-(fx*ddfx));
n++;
e = modulo(p-p0);
printf("P%i %lf\n", (n-1), p0);}
printf("\nAproximação p/ raíz é %e\n", p);
printf("\nAproximação da f(x) no ponto é %e\n", fx);
printf("Com %i iterações\n\n", n);}
else{
printf("Entre com o grau do polinômio: ");
scanf("%i", &grau);
for(i = 0 ; i <= 6 ; i++){
coef[i] = 0;
}
for(i = 0 ; i <= grau ; i++){
printf("\nEntre com o coeficiente a%i: ", i);
scanf("%lf",&coef[i]);
}
printf("\nEntre com o ponto inicial: ");
scanf("%lf", &p0);
n = 1;
fx = calculafx (coef,p0);
dfx = calculadfx (coef,p0);
ddfx = calculaddfx (coef,p0);
p = p0 - (fx*dfx)/((dfx*dfx)-(fx*ddfx));
printf("\nP%i %lf\n", (n-1), p0);
e = modulo(p-p0);
while (n<20 && e>=tol) {
p0 = p;
fx = calculafx (coef,p0);
dfx = calculadfx (coef,p0);
ddfx = calculaddfx (coef,p0);
p = p0 - (fx*dfx)/((dfx*dfx)-(fx*ddfx));
n++;
e = modulo(p-p0);
printf("P%i %lf\n", (n-1), p0);
}
printf("\nAproximação p/ raíz é %e\n", p);
printf("\nAproximação da f(x) no ponto é %e\n", fx);
printf("Com %i iterações\n\n", n);
}}
Ponteiro para Ponteiro para Ponteiro
Tipos de Dados Abstrato - TDA - Números Complexos
Jogo Windows Invaders (com gráficos)
Papagaiando o XFCE com temas e recursos
WhatsApp com Chamadas no Linux via Waydroid
XFCE - quase um Gnome ou Plasma mas muito mais leve
LXQT - funcional para máquinas pererecas e usuários menos exigentes
Como cortar as partes de um vídeo com passagens de áudio em branco
Tiling automático no KDE Plasma
SNMP Scan no OCS Inventory só funciona com HTTPS corretamente configurado
Links importantes de usuários do vol (4)
GOG confirma suporte oficial ao sistema Linux: "o trabalho começo... (2)
Para os fãs de DOOM, um vídeo do Romero (com dublagem em pt-br disponí... (2)









