• Author / Uploaded
• MiGuel

Citation preview

>> 5> y=72 y= 0

>> y=(72) y= 0 >> y=2*4+5==7+20/4 y= 0

>> y=a>=b y= 1 >> y=a-b> y=a-(b> v>=w ans = 1 0 0 >> w~=v

ans = 1 1 1

1

1

0

1

1

input('sean los vectores v y w') v=[4 -2 -1 5 0 1 -3 8 2] w=[0 2 1 -1 0 -2 4 3 2] input('evaluando w>v') x=w>v input('Vector compuesto por los w>v') a=find(w>v); b=w(a)

1

1

0

1

1

1

0

input('las temperaturas máximas diarias (en Fº)en Nueva York y Anchorage, Alaska durante Enero') input('TNY=[31 26 30 33 33 39 41 41 34 33 45 42 36 39 37 45 43 36 41 37 32 32 35 42 38 33 40 37 36 51 50]') input('TANC=[37 24 28 25 21 28 46 37 36 20 24 31 34 40 43 36 34 41 42 35 38 36 35 33 42 42 37 26 20 25 31]') TNY=TNY; TANC=TANC; input('La temperatura promedio en ese mes para cada ciudad es:') a=sum(TNY)/length(TNY); b=sum(TANC)/length(TANC); fprintf('El promedio de la temperatura en ciudad de Nueva York: %f\n',a); fprintf('El promedio de la temperatura en ciudad de Anchorage: %f\n',b); input(' ') input('El número de dias que estuvo la temperatura de cada ciudad por debajo de la temperatura media') c=length(TNY(a>TNY)); d=length(TANC(b>TANC)); fprintf('De la ciudad Nueva York:%i\n',c); fprintf('De la ciudad Anchorage:%i\n',d); e=length(find(TANC>TNY)); f=find(TANC>TNY); input(' ') fprintf('El número de dias en que la temperatura de Anchorage es mayor que Nueva York: %i\n',e); input(' ') input('Los días en que la temperatura de Anchorage es mayor que Nueva York: \n'); fprintf('%i\n',f) g=length(find(TANC==TNY)); h=find(TANC==TNY); input(' ') fprintf('El número de dias en que la temperatura de Anchorage es igual a la Nueva York: %i\n',g); input(' ') input('Los días en que la temperatura de Anchorage es igual a la Nueva York: \n') fprintf('%i\n',h) d1=length(find(TANC>32)); d2=find(TANC>32); d3=length(find(TNY>32)); d4=find(TNY>32); input('') input('El número de dias en que la temperatura es mayor a 32º F') fprintf('En Nueva York %i\n',d3); fprintf('En Anchorage %i\n',d1) input('Los dias en que la temperatura es mayor a 32ºF') input('En Nueva York:'); fprintf('%i\n',d4);

input('\nEn Anchorage:'); fprintf('%i\n',d2');

input('FUNCION') x=input('Escriba el número que va evaluar'); if -2>=x & -6=x & -2=x & 2.50 x1=(-b+sqrt(D))/(2*a); x2=(-b-sqrt(D))/(2*a); input('La ecuación cuadratica tiene dos raices diferentes') fprintf('la raiz x1 es = %g\n',x1) fprintf('la raiz x2 es = %g\n',x2) elseif D==0

x=-b/(2*a); input('La ecuación cuadratica tiene dos raices iguales') fprintf('la raiz x es = %i\n',x) else D=0 s=s+x(m); end end fprintf('El valor de la suma de los numeros positivos del vector x es: %g\n',s)

x=1; a=rem(x,2); while (rem(x,3)==0)&(x^3>4000) if a==1 x=x+rem(x,2) end x=x+1 end

function a=ordenar(x,y,z) y=round((x-y)*rand(1,z)+1); p=length(y); for i=1:y for j=1:p-i if y(j)>y(j+1) aux=y(j+1); y(j)=y(j+1); y(j+1)=aux; end end end a=y;

function b=ordenar_matrix(x,y,w,z) y=round((x-y)*rand(w,x)+1); p=length(y);

for i=1:y for j=1:p for k=1:p-i if y(j,k)>y(j,k+1) aux=y(j,k); y(j,k)=y(j,k+1); y(j,k+1)=aux; end end end end a=y;

input('Envios de paquete') x=input('Escriba el peso que va enviar : '); y=input('Especifique el tipo de servicio : ','s'); if strcmp(y,'tierra') if 0=x Precio_t=1.5; fprintf('Monto a pagar : %f Euros\n',Precio_t) elseif 2=x Precio_t=1.5+0.5*(x-2); fprintf('Monto a pagar : %f Euros\n',Precio_t) elseif 10=x Precio_t=5.5+0.3*(x-10); fprintf('Monto a pagar : %f Euros\n',Precio_t) else fprintf('No se realizan entregas para paquetes que pasen más de 50 libras\n') end elseif strcmp(y,'aire') if 0=x Precio_t=3; fprintf('Monto a pagar : %f Euros\n',Precio_t) elseif 2=x Precio_t=3+0.5*(x-2); fprintf('Monto a pagar : %f Euros\n',Precio_t) elseif 10=x

Precio_t=10.2+0.6*(x-10); fprintf('Monto a pagar : %f Euros\n',Precio_t)

else

fprintf('No se realizan entregas para paquetes que pasen más de 50 libras\n') end else if 0=x Precio_t=18; fprintf('Monto a pagar : %f Euros\n',Precio_t) elseif 2=x Precio_t=18+6*(x-2); fprintf('Monto a pagar : %f Euros\n',Precio_t) else fprintf('No se realizan entregas para paquetes que pasen más de 10 libras\n') end end

input('Sea el vector v') v=[1:50]; v=v(~(~rem(v,3))); v=v(~(~rem(v,4))); v=v(~(~rem(v,5)))

function [theta radio] = cartesianoapolar(x,y) theta=[]; radio=[]; theta=(180/pi)*atan(y/x); radio=sqrt(x^2+y^2); if 0