%programa03.
m
%grafico de una funcion
clc%limpiar pantalla
clear all%limpiar toda la memoria
n=input('ingrese numero de periodos=') %lectura de datos
x=0:pi/100:2*pi*n;
y=10*sin(x);
z=8*cos(x)+4*cos(3*x)+cos(5*x)
subplot(2,1,1) % (Fikas,Columnas,Posicion)
% plot(x,y,x,z)
plot(x,y)
grid
title('Grafico de una funcion')
xlabel('Tiempo(seg)')
ylabel('Voltaje (V)')
subplot(2,1,2) %( Filas, Columnas,Posicion)
plot(x,z)
grid
title('Grafico de una funcion')
xlabel('Tiempo(seg)')
zlabel('Voltaje(V)')
%programa03.m
%grafico de una funcion
clc%limpiar pantalla
clear all%limpiar toda la memoria
n=input('ingrese numero de periodos=') %lectura de datos
x=0:pi/100:2*pi*n;
y=10*((((x-6)+9).^4)+8);
z=8*cos(x)+4*cos(3*x)+cos(5*x);
subplot(2,2,1) % (Fikas,Columnas,Posicion)
% plot(x,y,x,z)
plot(x,y)
grid
title('Grafico de una funcion')
xlabel('Tiempo(seg)')
ylabel('Voltaje (V)')
subplot(2,2,4) %( Filas, Columnas,Posicion)
plot(x,z)
grid
title('Grafico de una funcion')
xlabel('Tiempo(seg)')
zlabel('Voltaje(V)')
%Crear una matriz gr�fica de 2x2 y colocar graficos a criterio
%incluir una par�bola
%programa04.m
%Uso del for
%Construir una tabla de raices
clc, clear all,format long
n=input('Ingrese tu N xdxdx =')
acum=[]; %vacio
for i=1:n % i= 1,2,3... n
acum=[acum;i sqrt(i) i^1/3];
end
disp('Tabla de raices')
disp(' i Raiz Cuadrada (i) Raiz C�bica(i)')
disp(acum)
%programa04.m
%Uso del for
%Construir una tabla de raices
clc, clear all,format long
n=input('Ingrese tu N xdxdx =')
disp('Tabla de raices')
disp(' i Raiz Cuadrada (i) Raiz C�bica(i)')
for i=1:n % i= 1,2,3... n
fprintf('%4d%16.4f%22.4f\n',i,sqrt(i),i^(1/3))% el 4d es 4 espacios para los
enteros de izquierda a derecha, el 10.4 es 10 espacios y tomados 4 deciamles.
end
%No es un formato adecuado para enteros
%No hay manejo de la cantidad decimales
%programa05.m
%Uso del for
%Construir una tabla de raices
clc, clear all
n=input('Ingrese tu N xdxdx =')
disp('Tabla de raices')
disp(' i Raiz Cuadrada (i) Raiz C�bica(i)')
for i=[Link]*n+1 [Link] % contador= vector
fprintf('%4d%16.4f%22.4f\n',i,sqrt(i),i^(1/3))% el 4d es 4 espacios para los
enteros de izquierda a derecha, el 10.4 es 10 espacios y tomados 4 deciamles.
end
%No es un formato adecuado para enteros
%No hay manejo de la cantidad decimales
%programa06.m
%Serie de taylor del Exponencial
%s=1+x+x^2/2!+x^3/3! ...
%n tiende a 00, s tiende a e^x
clc
clear all
x=input('Ingrese real x xdxdx =')
n=input('Ingrese real n xdxdx =')
s=1;
for i=1:n
s=s+x^(i)/(factorial(i));
end
fprintf('Suma=%20.14f\n',s)
fprintf('Exp(%6.3f)=%20.14f\n',x,exp(x))
ErrAbs=abs(s-exp(x))
fprintf('ErrAbs=%20.14f\n',ErrAbs)
%Hallar el error relativo
%x=1 N=5,10,15
%x=5 N=5,10,15
%x=10 N=5,10,15
%programa06.m
%Serie de taylor del Exponencial
%s=1+x+x^2/2!+x^3/3! ...
%n tiende a 00, s tiende a e^x
%se suma hasta que el ultimo termino sea menor que una tolerancia
clc
clear all
x=input('Ingrese real x xdxdx =')
TOL=input('Ingrese una TOLERANCIA real xdxdx =')
s=1;
for i=1:2000
term=x^i/factorial(i)
s=s+term;
if abs(term)<TOL
break %interrumpe el for
end
end
fprintf('Suma=%20.14f\n',s)
fprintf('Exp(%6.3f)=%20.14f\n',x,exp(x))
ErrAbs=abs(s-exp(x))
fprintf('ErrAbs=%20.14f\n',ErrAbs)
fprintf('Numero de terminos =%4d\n',i)
%Hallar el error relativo
%x=1 TOL=1e-3,1e-6,1e-9,1e-12
%x=5 TOL=1e-3,1e-6,1e-9,1e-12
%x=10 TOL=1e-3,1e-6,1e-9,1e-12
%Ej. Resolver con while
%promedio.m
function [pp,pf,m]=promedio(p1,p2,p3,p4,ep,ef)
m=p1;
if m>p2
m=p2;
end
if m>p3
m=p3;
end
if m>p4
m=p4;
end
pp=(p1+p2+p3+p4-m)/3;
pf=(pp+ep+2*ef)/4;
%como ejecutar esta funcion
%>>[prom]=promedio(14,11,10)
%Crear una funcion "promb536" que ingrese 4 practicas p1,p2,p3,p4
%ep y final y calcule pp (eliminado la menor) y pf.
%program08.m
clc
clear all
p1=input('p1 =')
p2=input('p2 =')
p3=input('p3 =')
p4=input('p4 =')
ep=input('ep =')
ef=input('ef =')
[pp,pf,m]=promedio(p1,p2,p3,p4,ep,ef)
fprintf('Menor nota = %4d\n',m)
