function out = practica1_10()
num=input('Ingrese el numero romano: ', 's');
total=0;
valor_anterior=0;
for i=1:length(num)
letra=num(i);
switch letra
case 'C'
valor=100;
case 'M'
valor=1000;
case 'D'
valor=500;
case 'L'
valor=50;
case 'X'
valor=10;
case 'V'
valor=5;
case 'I'
valor=1;
end
if (valor>valor_anterior&&valor_anterior>0)
valor_anterior = 0-valor_anterior;
end
total = total + valor_anterior;
valor_anterior = valor;
end
out=total+valor_anterior;
end
|
function out = practica1_ejercicio11()
resto = input('Introduzca la frase: ','s');
separadas = {};
i = 1;
while length(resto) ~=0
[primera,resto] = strtok(resto);
separadas{i} = primera;
i = i+1;
end
lonngitudCellArray=i-1;
posicion=1;
numeroPalabras={};
for j=1:lonngitudCellArray
contador=0;
for k=1:lonngitudCellArray
if(strcmp(separadas{j},separadas{k})==1)
contador=contador+1;
end
end
numeroPalabras{posicion}=contador;
posicion=posicion+1;
end
out=[separadas;numeroPalabras];
end
|
function letra = Ej8DNI ()
numero = input('Ingrese el valor de la variable: ');
if(numero<1000000||numero>99999999)
letra=99;
else
resto = mod(numero, 23);
switch resto
case 0
letra = 'T';
case 1
letra = 'R';
case 2
letra = 'W';
case 3
letra = 'A';
case 4
letra = 'G';
case 5
letra = 'M';
case 6
letra = 'Y';
case 7
letra = 'F';
case 8
letra = 'P';
case 9
letra = 'D';
case 10
letra = 'X';
case 11
letra = 'B';
case 12
letra = 'N';
case 13
letra = 'J';
case 14
letra = 'Z';
case 15
letra = 'S';
case 16
letra = 'Q';
case 17
letra = 'V';
case 18
letra = 'H';
case 19
letra = 'L';
case 20
letra = 'C';
case 21
letra = 'K';
case 22
letra = 'E';
otherwise
letra = 99;
end
end
%letra = dni(23);
|
function primos=practica1_8()
n=1000;
enteros=2:n;
primos =[1];
while length(enteros)>0
sicPrim=enteros(1) ;
primos=[primos,sicPrim];
enteros1=[];
for i=1:length(enteros)
if(mod(enteros(i),sicPrim)~=0)
enteros1=[enteros1, enteros(i)]
end % if
end % for
enteros=enteros1;
end % while
end % function
|
%Generar un vector de 10 elementos que cubra el intervalo[-pi, e]
linspace ( -pi, exp(1), 10)
%Generar sin utilizar ninguna funcion un vector de 500 puntos para el
%intervalo [0,10]
linspace ( 0, 10, 500)
|
%Generar una matriz cuadrada cuyos valores sean una secuencia uniforme de
%amplitud 3 con 400 puntos
A = rand(20)*3
%Determinar:
%Filas y columnas de los elementos de la matriz cuyo valor este comprendido
%entre 1 y 2
find((A>1)&(A<2))
%Elementos de la matriz cuyos valores sean o menores que 1 o mayores que 2
A((A<1)|(A>2))
%Redondear los elementos de la matriz al entero mas proximo y determinar
%los valores que no son iguales a 1
B = round(A)
find(B~=1)
|
%Generar una matriz aleatoria cuyos valores sean enteros y esten
%comprendidas en el intervalo -10 y 10. Las dimensiones de la matriz seran
%de 10 filas y 4 columnas.
A = round(-10 + (10-(-10)).*rand(10,4))
%Crear una matriz cuyas dimensiones sean 10*10 cuyos elementos sean las
%distancias euclideas entre todos los elementos de la matriz generada
%aleatoria.
sqrt (sum((A(1,:)-A(2,:)).^2))
[n,N]=size(A);
temp=[];
for i=1:10
for j=1:10
tempp=0;
for k=1:N
temp(k)=(A(j,k))^2;
tempp=tempp+temp(k);
end
d(i,j)=sqrt(tempp);
end
end
disp(d);
|
%Generar una matriz aleatoria cuyos valores sean enteros y esten
%comprendidas en el intervalo -10 y 10. Las dimensiones de la matriz seran
%de 10 filas y 4 columnas.
A = round(-10 + (10-(-10)).*rand(10,4))
%Crear una matriz cuyas dimensiones sean 10*10 cuyos elementos sean las
%distancias euclideas entre todos los elementos de la matriz generada
%aleatoria.
sqrt (sum((A(1,:)-A(2,:)).^2))
[n,N]=size(A);
temp=[];
for i=1:10
for j=1:10
tempp=0;
for k=1:N
temp(k)=(A(j,k))^2;
tempp=tempp+temp(k);
end
d(i,j)=sqrt(tempp);
end
end
disp(d);
|
%Definir las siguientes matrices
%Matriz A
A=[1,0,5,5;-1,3,2,2;2,0,1,1;5,-4,3,1]
%Matriz B
B=[2,1,-2,3;0,2,4,2;3,1,6,1;1,-1,-2,0]
%Realizar los siguientes cálculos:
3*A
A-7
%A*B traspuesta
A*B'
%inversa de B
inv(B)
%Eliminar de la matriz A la fila 3 y la columma 2 y almacenarla en la
%matriz C
C=A
C(3,:)=[]
C(:,2)=[]
%Convertir la matriz A en una matriz 2*8 y la matriz B en 8*2 y realizar el
%producto matricial
A = reshape(A, 2, 8)
B = reshape(A, 8, 2)
A*B
|
%Definir la siguiente matriz
A=[2,2,1;3,4,0;1,5,4]
%Calcular el maximo de cada fila y el maximo de la matriz
max(A, [],2)
max(max(A))
%Calcular el minimo de cada columna y el minimo de la matriz
min(A, [],1)
min(min(A))
%Calcular el sumatorio de los elementos de la primera columna y de la
%tercera
sum(A(:, 1))
sum(A(:, 3))
|
%Almacenar la variable Matriz1 la matriz A.
Matriz1=[1,-3,5 ;9,3 1; 2,-1,4]
%Calcular su transpuesta y guardarla en Matriz2
Matriz2=Matriz1'
%Calcular el producto elemento a elemento entre Matriz1 y Matriz2
Matriz1.*Matriz2
%Calcular la suma de Matriz1 y el producto anterior y almacenarlo en
%Matriz3
Matriz3 = Matriz1 + (Matriz1.*Matriz2)
%Calcular el producto matricial entre Matriz1 y Matriz2 y almacenarlo en
%prodM1M2
prodM1M2 = Matriz1 * Matriz2
%Calcular el producto matricial entre Matriz2 y Matriz1 y almacenarlo en
%prodM2M1
prodM2M1 = Matriz2 * Matriz1
%Cambiar el valor del elemento central de Matriz1 a 9
Matriz1(2,2) = 9
%Guardar en una matriz llamada esquinas de tamaño 2*2 los elementos de las
%esquinas de Matriz1
esquinas = Matriz1 ([1 3], [1 3])
%Guardar en un vector fila diagonalM1 los elementos de la diagonal
%principal de Matriz1
diagonalM1 = (diag(Matriz1)')
%Guardar en un vector columna diagonalM2 los elementos de la primera fila
%de la Matriz2
diagonalM2 = [1 9 2]'
%Calcular el producto escalar entre diagonalM1 y diagonalM2
productoEscM1M2 = dot(diagonalM1, diagonalM2)
%Calcular el producto vectorial entre diagonalM1 y diagonalM2
productoVecM1M2 = cross(diagonalM1, diagonalM2)
|