clc; 
clear all; 
close all;

disp('Encuentra mínimo y máximo de una función')
%variables para registrar máximo y mínimo
max=0; 
min=0; 
t_min=0; 
t_max=0;

%generación del vector de tiempo
t=[0:0.01:10]'; %tiempo de 0 a 10 segundos con incremento de 0.01 seg.
[n m]=size(t); %dimensión del arreglo
y=zeros(n,m);  %variables de registro
%función de prueba para generar la gráfica del proceso\n
for i=1:n
 y(i)=sin(t(i))-cos(pi*t(i))-2*tanh(t(i))+0.1*log(t(i)^3+1);
end

%gráfica de la función del proceso
plot(t,y)
for i=1:n
      if (y(i)>= max)
                 max=y(i); 
                 t_max=t(i);
      
      elseif (y(i)<= min)
             min=y(i);
             t_min=t(i); 
      end
end

disp( '      Max      Tmax      Min       Tmin')
Resultado=[max  t_max  min  t_min ];
disp(Resultado)