Codigos basicos de matlab

Problema 3 de la Guía

function grafico

t=-pi:0.01:3*pi;

f=(t<1).*(t);

fu=(t>=1)&(t<=pi).*(1/1);

fi=(t>pi).*(sin(t));

plot(t,f,'r')

title('Funcion a trozos')

grid on

hold on

plot(t,fu,'gr')

grid on

hold on

plot(t,fi,'y')

grid on

end

Problema 4 de la Guía

function simbolica

x=-2:0.1:2;

f=inline('(cos(3*x)).^1/2+(sin(4*x).^2)');

ezplot('f',[-2,2])

grid on

end

fplot(@(x)(cos(3*x)).^1/2+(sin(4*x).^2),[-2,2])

Problema 5 de la Guía

Problema 6

Problema 7

clc, clear all

%Programa que indica cual es el precio por el consumo del KW de una familia

%si es mayor a la establecida (700) se le aplica un aumento del 5%

kw=input('cantidad de KW consumido por una familia= ')

p=input('Precio de cada KW= ')

if kw>700

    t=kw*p;

    P=t+(t*0.05);

    fprintf('El precio total a pagar por los KW consumidos es %g',P)

end

if kw<700

    C=kw*p

    fprintf('El precio total a pagar por los KW consumidos es %g',C)

end

Problema 8

clc, clear all

%Programa que calcule los terminos de una sucesión y evaluados por un

%número,donde ambos datos seran introducidos por el usuario

a=input('introduzca variables que se evaluaran entre corchetes=');

f=length(a)

for i=1:1:f

    r(i)=(a(1:end)/(a(1:end)+1)).*((sin(a(1:end)).*pi)/2);

    fprintf('Terminos obtenidos de acuerdo a las variables introducidos por el usuario')

    disp(r)

end

Problema 9

Problema 10

clc, clear all

%Programa que determina si un número es PERFECTO o no lo es.

n=input('Introduzca el número a rectificar = ');

c=0;

for i=1:n-1;

    if mod(n,i)==0;

        c=c+i;

    end

end

if c==n

    fprintf('El número %g es PERFECTO \n',n)

else

    fprintf('El número %g no es PERFECTO \n',n)

end

Problema 11

clc, clear all

%Programa que sume los numeros impares de un número elevado al cuadrado

 n=input('Introduca el número con la potencia que desee= ');

 c=0;

 for i=0:1:n;

     if rem(i,2)~=0;

         p=sum(i);

         c=p;

     else if rem(i,2)==0;

             p=sum(i);

             c=p;

         end

     end

 end

 fprintf('La suma de los números impares del número potenciado es %g \n',c)

Problema 14 y similitud con el 12

%Programa que al ingresar una cifra de 3 números/digítos los ordena en la

%mayoor cifra posible

t=input('Ingrese el tamaño de la cifra que quiere ordenar= ');

for i=1:t;

    cifra=input('Cifra introducida a transforma= ');

    v(i)=cifra;

end

for i=1:t-1;

    for j=2:t;

        if v(j)>v(j-1)

            aux=v(j-1);

            v(j-1)=v(j);

            v(j)=aux;

        end

    end

end

disp(v);

Problema 13 Que calcula el factorial de un numero usando ciclo fijo FOR

clc

clear all

n=input('Introduzca el dato = ');

a=1;

for c=n:-1:1

    a=(a*c);

end

fprintf('\n%g!= %g\n',n,a)

Problema 3 de Gráficas del ETS

clc, clear all;

%Problema proveniente del ETS sobre gráficas

x=[1:1:11];

y=[422 461 506 554 610 670 736 796 851 914 984];

 %Gráfica de datos Dispersos de los polinomios y Ajuste Lineal

 subplot(1,2,1)

 plot(x,y,'ok')

 title('Datos dispersos y polinomio lineal')

 xlabel('Año')

 ylabel('Tiendas')

 hold on

 PolinomioLineal=polyfit(x,y,1);

 PuntosdeY=polyval(PolinomioLineal,x);

 plot(x,PuntosdeY,'-m')

 legend('Datos Dispersos','Polinomio lineal')

  %Gráfica de datos Dispersos y Ajuste Cuadratico

 subplot(1,2,2)

 plot(x,y,'ok')

...