Taller 1 de Matlab
Taller 1 de Matlab
Taller 1 de Matlab
%% CREAR MATRIZ
%% MATRIZ DE CEROS
j= zeros (4,2)
A=[1 2 3; 4 5 6; 7 8 9];
B=[1 2 3; 0 3 1; 2 1 1];
A=[1 2 3; 4 5 6; 7 8 9];
B=[1 2 3; 0 3 1; 2 1 1];
C=A*B
D=B*A %% El producto de dos matrices no es conmutativa, por tanto, A*B~=B*A
A=[1 2 3; 4 5 6; 7 8 9];
B=[1 2 3; 0 3 1; 2 1 1];
C=A.*B
D=B.*A %% En este caso, como es una multiplicación término a término, es posible la
propiedad permutativa de dos matrices, por tanto, A.*B=B.*A
B= [1 2 3; 0 3 1; 2 1 1]
D= inv (B) % La condición inicial para que una matriz sea inversible o regular, es
que debe ser cuadrada.
E=D*B % Esta operación arroja la matriz identidad, indicando que la matriz D es
inversa de B.
%% Crear una matriz E 3×3 con todos los elementos de la diagonal iguales a 6 y el
resto de los elementos como 0.
v= [3 3 3];
j= diag (v)
x= 1:10 % Genera secuencia númerica que inicia y tiene paso de 1 y finaliza en 10.
MM= magic(4)
%% GRAFICAS EN MATLAB
h=0.01;
t=0:h:5;
y1=sin(2*pi*t);
y2=cos(2*pi*t);
plot (t, y1, 'r', t, y2, '--b')
xlabel ('Tiempo [s]')
ylabel ('Aceleración [m/s2]')
legend ('Sen', 'Cos')
A=[1 2 3; 4 5 6; 7 8 9]
B=[1 2 3; 0 3 1; 2 1 1]
%% EJERCICIOS
%% 1. Suma de 2 números
%% 2. Escriba un programa para que lea cuatro números del teclado y muestra el
mayor de ellos
t=0:0.01:30;
x=5*exp(-0.1*t).*cos(4*t-0.7048);
plot(t,x)
grid
xlabel('Tiempo(segundos)')
ylabel('Desplazamiento X(metros)')
Ut=(exp(-(J*(wn.*t)))).*((Uo*cos(wd.*t)+(((Uo+(J*wn*dUo))/(wd))*sin(wd.*t))));
y=1:x;
z=sum(y);
fprintf('La suma es = %d', z)
%% 6. Media aritmetica
suma=0;
contador=0;
x=input('digite un número (el número cero (0) termina el ejercicio)= ');
while (x~=0);
suma=x+suma;
contador=contador+1;
x=input('digite un número (el número cero (0) termina el ejercicio)= ');
end
if contador>0;
media=suma/contador;
fprintf('La media aritmetica es= %f', media)
else disp('Registre un valor distinto de cero')
end
elcentro = load('elcentro.txt');
MQ = [elcentro(1:end-150,1)/(100)];
dt = .02;
tt = [0:dt:((length(MQ)-1)*dt)]';
plot(tt,MQ), grid on
ylabel('Aceleración [m/s^2]')
xlabel('Tiempo [s]')
lunax = load('lp_1973_shallow_acc_12_LP_x.txt');
x = [lunax(1:end-38000,2)/(40)];
dt = .02;
ttx = [0:dt:((length(x)-1)*dt)]';
subplot(2, 1, 1)
plot(ttx,x), grid on
ylabel('Aceleración [m/s^2]')
xlabel('Tiempo [s]')
mx=abs(max(x));
fprintf('La aceleración pico en x es [m/s^2]= %f', mx)
lunay = load('lp_1973_shallow_acc_12_LP_y.txt');
y = [lunay(1:end-38000,2)/(40)];
dt = .02;
tty = [0:dt:((length(x)-1)*dt)]';
subplot(2, 1, 2)
plot(tty,y), grid on
ylabel('Aceleración [m/s^2]')
xlabel('Tiempo [s]')
my=abs(max(y));
fprintf('\n La aceleración pico en y es [m/s^2]= %f', my)