informatica

EJERCICIOS RESUELTOS INFORMÁTICA:
1.-TIPOS DE DATOS: MATRICES Y CADENAS.
1.
A=round(rand(5,5)*9)
B=round(rand(5,3)*9)
C=eye(5)
A*B
A.*C
A(2,1)=A(2,1)*B(2,3)
inv(A), det(A), transpose(A)
A(7,7)=1

2.
A=[3 4 5; 2 -3 7; 1 -6 1];
B=[2;-1;3];
rank(A)
rank([A B])
X=inv(A)*B

3.
A=[11:14;21:24;31:34]
B=A(2:3,3:4)
c1=A(1:3,1:3)
c2=c1'
c3=A(1:3,1:2)
C=[c2 c3]
d1=A(1:2,1:2)d2=[d1 zeros(2,2)]
d3=[zeros(2,2) B]
D=[d2;d3]

4.
X0=[0;0];
u=2;v=3;
alfa=30*pi/180;
B=[cos(alfa) -sin(alfa); sin(alfa) cos(alfa)];
C= [u;v];
X1=X0+B*C
X2=X1+B*C

5.
A=[0:5:225]
l=length(A)
A(l-9:l)=0
A(1:5)=[]

6.
A='informatica'

B='matematicas'
lA=length(A)
lB=length(B)
a=A(lA-4:lA)
b=B(lB-4:lB)
strcmp(a,b)

7.
Sujetos=char('Pepe','Ximo','Paco','Jose','Juan')Verbos=char('es','no es','quiere','no quiere','se imagina')
Atributos=char('apto','alto','coche','coser')
n=ceil(rand(1,3)*5)
[Sujetos(n(1),:) Verbos(n(2),:) Atributos(n(3),:)]

8.
n=[1 10 100 500 1000 4000 8000]
m=(1+1./n).^n
exp(1)

9.
v1=[1:100];
v2=[1:1000];
v3=[1:10000];
v1r=1./v1.^2
sum(1./v1.^2)
sum(1./v1.^2)
sum(1./v1.^2)
sum(1./v1.^2)
pi^2/6

10.
t=linspace(1,10,200);A=50;B=50;a=1;b=2;
x=A*sin(a*t)
y=B*sin(b*t)

11. Resistencias
2.- SCRIPTS ENTRADA/SALIDA.
1.
clear all
clc
primer_termino = input ('introduzca primer termino ', 's');
segundo_termino = input ('introduzca segundo termino ','s');
tercer_termino = input ('introduzca tercer termino ','s');
disp ('El primer termino es: ');
disp (primer_termino);
pause(2);
disp ('El segundo termino es: ');disp (segundo_termino);
pause(2);

disp ('Y el tercer termino es: ');
disp (tercer_termino);

2.
A=input('primer texto ','s');
B=input('segudo texto ','s');
C=input('tercer texto ','s');
[A B C]

3.
frase=input('introduzca palabra que contenga el\n','s');
frasenueva=strrep(frase,'el','*el*');
fprintf('la frase modificada es:\n %s',frasenueva)

4.
clear all
clca=[input('Introduce la x de a '),input('Introduce la y de a ')];
b=[input('Introduce la x de b '),input('Introduce la y de b ')];
angulo=acos(dot(a,b)/(norm(a)*norm(b)));
fprintf('Él ángulo que forman a y b es: %g\n',angulo);

5.
str = input('Nombre y apellidos: ','s');
nota1 = input('Nota Primer Parcial: ');
nota2 = input ('Nota Segundo Parcial: ');
media=(nota1+nota2)/2;
match = strfind(str,' ');l=length(str);
apellido=str(match:l);
fprintf('La nota de %s es: %g\n',apellido, media)

6.
%Inicializar
clear all;
clc;
DNIS = char();
MAILS = char();
%Cargar
fprintf('Cargando..............');
load('listaDNIS');
fprintf('Hecho: %d entradas cargadas \n',size(DNIS,1));
%Preguntar
dni = input('DNI : ','s');
mail = input('MAILS : ','s');
%Incorporar
DNIS(size(DNIS,1)+1,1:length(dni))=dni;
MAILS(size(MAILS,1)+1,1:length(mail))= mail;

%Cambia el tamaño de la matriz de forma dinamica
%Limpiar
clear dni;
clear mail;
%Guardar
fprintf('Guardando..............');
save('listaDNIS');
fprintf('Hecho\n');

3.- GRÁFICOS
1.
x=linspace(0,8*pi,20);
subplot(2,1,1);
plot(x,sin(x),'r');
hold on;
plot(x,x.*cos(x),'g');
xlabel('x');
ylabel('f(x)');
title('funciones');legend('sen(x)','x*cos(x)');
hold off
x1=linspace(0,8*pi,1000)
subplot(2,1,2);
plot(x1,sin(x1),'r');
hold on
plot(x1,x1.*cos(x1),'g');
legend('sen(x),x*cos(x)');
xlabel('eje x');
ylabel('eje y');

2.
x=[1:12];
Y=ceil(rand(1,12)*35)+5;
bar(x,Y);

3.
x=linspace(-2,2,10000);
y=cos(2.*x);
z=sin(2.*x);
plot3(x,y,z);

4.
x=linspace(0,4*pi,200);
subplot(2,3,1);
y=sin(x);plot(x,y,'r');
subplot(2,3,2);
y2=cos(x);
plot(x,y2,'g');

subplot(2,3,3);
y3=sin(x).*cos(x);
plot(x,y3,'b');
subplot(2,3,4);
plot(x, sin(x)+wgn(1,200,0.15));
subplot(2,3,5);
plot(x, cos(x)+wgn(1,200,0.15));
subplot(2,3,6);
plot(x, sin(x).*cos(x)+wgn(1,200,0.15));

5.
v0=input('introduce la velocidad inicial: ');
y0=input('introduce la altura inicial: ');
fi=input('introduce el ángulo...