necesito que me ayuden con un ejercicio, hice el programa pero nose si lo que estoy haciendo esta bien, por eso les pido ayuda.. :D
aqui les dejo el ejercicio y lo que hice, ojala me puedan decir algo sobre el procedimiento y sobre el resultado.
Utilizando el método de Newton- Raphson hallar la solución de la ecuación
x5 -5x3 + 2 x +1 = 0 en el intervalo (0,1) con un error no mayor a 0,0005.
*mi programa*
void __fastcall TForm1::Button1Click(TObject *Sender)
{
float x,p,fx,fdx,q1,q2,q3,r1,r2;
p=1;
do
{
x=p;
q1=x*x*x*x*x;
q2=5*x*x*x;
q3=2*x;
fx=q1-q2+q3+1;
r1=5*x*x*x*x;
r2=15*x*x;
fdx=r1-r2+2;
p=x-(fx/fdx);
}
while (x-p>=0.0005 || x<0 || x>1);
Edit1->Text=FloatToStr(p);
}
RESULTADO: 0,861593127250671
gracias..!!
