Ayuda con Newton
Publicado por Raul Ponte (1 intervención) el 14/06/2014 00:06:01

Ese es el ejercicio que debo hacer, principalmente me estoy enfocando en hacer todo sin que de el archivo .txt ya que esto no lo he investigado y no lo he podido lograr, pienso que primero me debe dar todo bien.
Mi codigo es el siguiente:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
syms x %declaramos a X
Y=cos(x/2)+2*sin(x); %Entrada de la funcion
f=@(x)cos(x/2)+2*sin(x);
%graficamos la función
sup = 2*pi; %limite superior
in = -2*pi; %limite inferior
p = linspace(in,sup,500); % vector con los valores
plot(p,subs(Y,p)) % grafica
grid on
n=0;
Xn=input('Ingrese el iterado: ');
Ydx = diff(Y,x);
z=fzero(f,2*pi);
while n<100 || abs(Subs(Y,Xn))<=0.0000000001 || abs(z-Xn)<=0.0000000001 %condiciónes de terminacion
X1 = Xn - (subs(Y,Xn)/subs(Ydx,Xn)); %formula de Newton
Xn=X1; %asignación del nuevo valor de Xn para la siguiente iteración
n=n+1;
end
Si me pudiesen ayudar estuviese agradecido y disculpen las molestias.
Valora esta pregunta


0