| animationCoweb(funcion,x0,itera,a,b,name)
|
% METODO COWEB PARA DETECCION DE PUNTOS FIJOS EN FUNCIONES
% VER 1.0
% AUTOR: EDGAR BERNAL FLORES
% 16022009
%email: tecualoya@hotmail.com
function animationCoweb(funcion,x0,itera,a,b,name)
% ENTRADA: X0->Es un punto de inicio en donde comenzaremos a realizar las iteraciones para llegar al punto fijo
% Nitera-> es el numero de iteraciones a realizar dentro del intervalo X1 y X2 comenzando en X0
% funcion-> esla funcion a evaluar y en la cual se obtienen los puntos fijos
% X1 y X2 -> son los limites en los cuales podemos realizar la graficacion y las orbitas de la funcion
%
% SALIDA : orbita-> es la secuencia de valores antes de llegar a un punto fijo
% puntosfijos-> son los valores de donde se encuetran los puntos fijos de la funcion
%
% NOTA: CONSIDERAMOS LAs SIGUIENTEs ECUACIONES:
% PARA PODER ONTENER LOS PUTNOS FIJOS -> f(x)-x=0
% PARA CALCULAR LAS ORBITAS X0,F'(X0)=X1,F''(X1),....
clc
% CREAMOS LOS FRAMES PARA LA ANIMATCION DE COWEB
cont=0;
% set(gca,'nextplot','replacechildren');
figure('position',[100 100 850 600])
set(gca,'nextplot','replacechildren');
F=moviein((b-a)*10);
for i1=1:((b-a)*10+1)
Coweb(funcion,x0,itera,a,b);
F(:,(cont + i1))=getframe(gcf);
pause(.2)
x0=x0+0.1;
end
implay(F);
movie2avi(F,name);
%REPRODUCIMOS LAS PELICULAS EN UN INTERVALO DE TIEMPO PARA OBSERVAR LA
%DINAMICADE TIEMPO
% % axes('Position',[0 0 1 1]);
% M=movie(F);
% movieview(M,'Coweb')
% h2 = figure;
% movie(F,10);
% Use the figure handle to make the frames fit:
|
|