APLICACIONES CON MATLAB

EXPON.M
% Este programa sirve para evaluar la funcion exponencial en la siguiente serie: 1+x+x^2/2!+.....x^n/n!.....
%%%%%%%%%%%%%%%%%
 clc
 clear
 x=input('ingrese x: ');
 n=input ('ingrese n: ');tofi=exp(x);
 y=1;
 sum=1;
 erro=tofi-sum;
 disp ('   n       aproximacion              erro')
 for i=1:n;
 fprintf(' %2.0f    %1.15f    %1.15f\n ',i,sum,erro)
 y=y*x/i;
 sum=sum+y;
 erro=((tofi-sum)/tofi)*100;
 end

PROMEDIO.M
% Este programa es diseñado para determinar la nota de un curso que consiste en parciales, trabajos y examen
% final, que al final  seran mostrados al acabar el proceso.
%%%%%%%%%%%%%%%%%%%%%%%%%
clc
clear
s=input ('ingrese el nombre del curso:  ','s');
t=input ('ingrese el codigo del curso:  ');
fp=input ('ingrese el factor de peso del parcial:  ');
ft=input ('ingrese el factor de peso del trabajo:  ');
fF=input ('ingrese el factor de peso del examen final:  ');
n=input ('ingrese el numero de examenes parciales:  ');
for i=1:n
    g(i)=input ('ingrese las notas de los parciales:  ');
end
x=input ('ingrese el numero de trabajos:  ');
for j=1:x
    h(j)=input ('ingrese las notas de los trabajos:  ');
end
prop=(sum(g))/n;
prot=(sum(h))/x;
nF=input ('existe la nota nota final (s/n): ','s');
  if nF =='s'
      pfin=input('calificacion final: ');
      pp=(fp*prop+ft*prot+fF*nF)/(fp+ft+fF);
   else
      pp=(fp*prop+ft*prot)/(fp+ft);
   end
t
s
pp

COSENO.M
function aproximada=coseno(x0,n,tol)
% Este programa sirve para aproximar la funcción f(x)=cos(x)
% por 1-(X^2)/2!+(X^4)/4!-(X^6)/6!+(X^8)/8!-....
% probar con:  x0=pi/3   n=25   tol=0.00001
%%%%%%%%%%%%%%%%%%
clc
serie(1)=1;
i=1;
disp('iter      |Eap|%            Ev%            Evr%            Eap% ')
while  i<=n
    p=((-1)^i)*(x0^(2*i))/facto(2*i);
    serie(i+1)=serie(i)+p;
    Ev = cos(x0)-serie(i);
    Evr= (cos(x0)-serie(i))*100/cos(x0);
    Eap= (serie(i+1)-serie(i))*100/serie(i+1);
    fprintf('i= %d %3.9f \t %3.9f \t %3.9f \t %3.9f\n',i,abs(Eap),abs(Ev),abs(Evr),abs(Eap))
    i=i+1;
    if abs(Eap) < tol
          break
    end
end

DERIN.M
% Este es un programa que sirve para calcular la derivada de y=x^3
% usar n:10
%%%%%%%%%%%%%%
clc
clear
b=10;
der=3*b^2;
b1=b^3;
n=input('ingrese n:  ');
y=300; % y(10)=300 es la derivada exacta
disp('  n             h             f(x0)               Et')
for i=1:1:n;
  h=10^(1-i);
  f=b+h;
  ff=f^3;
  denum=(ff-b1)/h;
  et=((y-denum)/y)*100;
  fprintf('  %2.0f \t %4.10f \t %4.4f \t %4.4f\n',i,h,denum,abs(et))
 end
end

PARAC.M
 % Este es un programa que sirve para graficar la ecuacion de la caida
 % un paracaidista en condiciones ideales.
 % recomendacion: usar con t:10, m:68.1, v:40
 %%%%%%%%%%%%%%%
 clc
 clear
 t=input('ingrese el tiempo:  ');
 m=input('ingrese la masa:  ');
 g=9.8;
 v=input('ingrese la velocidad:  ');
 c=2:2:20;
    fc= ((m.*g)./c).*[1-exp(-(c./m).*t)]-v;
    plot (c,fc,'b-',c,fc,'g*');
    grid
    end
 title('grafico  de  la  caida  del  paracaidista');
 xlabel(' c '); ylabel('f(c) ');
 end

SUMA.M
% Este programa sirve para calcular la serie infinita f(n)=sum 1/n^2, desde 1 hasta 10000
% recomendacion: dar n:10000
%%%%%%%%%%%%%%%%%
clc
clear
n=input ('ingrese n: ');
sum=0;
for i=1:n;
 sum=sum+1/i^2;
end
sum

SUMAI.M
% Este programa sirve para calcular la serie infinita f(n)=sum 1/n^2, desde 10000 hasta 1
% Recomendacion: dar n:10000 
%%%%%%%%%%%%%%%%%
clc
clear
n=input ('ingrese n: ');
sum=0;
for i=n:-1:1;
 sum=sum+1/i^2;
end
sum

SENCOS.M
% Este es un programa que sirve para calcular la funcion: (sen 10x) + (cos 3x), en diferentes Intervalos.              
%%%%%%%%%%%%%%%%%
clc
clear
subplot 311
 x=-5:0.001:5;
 f=sin(10*x)+cos(3*x);
 plot(x,f,'b-')
 grid
 title('grafico 1')
 end

subplot 312
 x1=3:0.01:5;
 f1=sin(10*x1)+cos(3*x1);
 plot(x1,f1,'m-')
 grid
 title('grafico 2')
 ylabel(' f(x) = seno de 10x + coseno de 3x ');
end

subplot 313
 x2=4.2:0.01:4.3;
 f2=sin(10*x2)+cos(3*x2);
 plot(x2,f2,'c-');
 grid
 title('grafico 3')
 xlabel('Intervalos de Crecimiento');
end

                        Ir al principio                                                                        Volver a la pagina principal