Profesor

 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, trabajosy 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 delcurso:  '); 
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('calificacionfinal: '); 
      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 programasirve 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=...