% =========
% Sección 1
% =========
%
% ----->   Apartado 1.2   <-----
help rand
doc rand
% ----->   Apartado 1.3   <-----
A=[1,2,3 ; 4, 5, 6]
A(:,2:3)
[A A]
A(:)
A'
10*A, 10+A
A=A*A’
i=10,i=i+2
whos
max(A(:))
sqrt(A)
x=10;prod(1:x) % Calcula el factorial del numero 10
x=20;sum(1:x) % Calcula el sumatorio de numero 10
x=linspace(-2,2);y=exp(x);plot(x,y)
x=linspace(-2,2); plot(x,exp(x))
% =========
% Sección 2
% =========
sqrt(2)
format long; ans
format rat; ans
vpa(ans,30)
dec2bin(1234)
base2dec(’1234’,6)
%
a=eps/2,1+a-1, 1-1+a
x=rand(1,1000);y=sort(x);z=y(end:-1:1);
vpa(sum(x),20),vpa(sum(y),20), vpa(sum(z),20)
format long;
a=0;b=-10;
x=logspace(a,b,10000); 
sx=sum(x);
y=x(end:-1:1); sy=sum(y);
r=x(2)/x(1);se=(x(end)*r-x(1))/(r-1);

% =========
% Sección 3
% =========
% ----->   Apartado 3.1   <-----
% Definición de funciones simples
f=inline('sqrt(exp(x))')
p=f(4)		% Evaluación en el punto 4
X=linspace(-1,4);Y=f(X);plot(X,Y)	% Representación en el intervalo [-1,4]
% ----->   Apartado 3.2   <-----
% Definición de ficheros de instrucciones
x=(1:5), sx=sum(x)
y=(1:10); sy=sum(y);
% ----->   Apartado 3.3   <-----
% Definición general de funciones
% Las siguientes instrucciones deben estar en un fichero aparte
% ##################### Inicio del fichero ####################
function hip = hipotenusa(cateto1, cateto2)
hip = sqrt(cateto1*cateto1+cateto2*cateto2);
% ##################### fin del fichero ####################
%
x=3, y=4, hipotenusa(x,y)
x=3; y=4;z=hipotenusa(x,y)
% ==========
% Ejercicios
% ==========
% ----->   Ejercicio 1   <-----
X=linspace(-pi,pi);plot(X,sin(X));grid on;title('Seno(x)');xlabel('x');ylabel('f(x)');
% ----->   Ejercicio 2   <-----
X=linspace(-2,2,3);plot(X,abs(X));grid on;title('Valor Absoluto');xlabel('x');ylabel('|x|');
% ----->   Ejercicio 3   <-----
X=linspace(-pi,pi);plot(X,[sin(X);cos(X);tan(X)]);grid on;title('Funciones trigonometricas');xlabel('x');ylabel('f(x)');
axis([-pi,pi,-1.5,1.5])
% ----->   Ejercicio 4   <-----
(6:2:26)
18+3*(1:10)
(10:-1:0)
% ----->   Ejercicio 5   <-----
3*(ones(4)-eye(4))
% ----->   Ejercicio 6   <-----
(1:10)'*(1:8)
% ----->   Ejercicio 6   <-----
% Las siguientes instrucciones deben estar en un fichero aparte
% ##################### Inicio del fichero ####################
function [ro,phi] = carte2polar(x,y)
ro = sqrt(x*x+y*y);phi=atan2(y,x);
% ##################### fin del fichero ####################