Topo

2
>> %crear un programa para calcular el polinomio de una funcion
>> %dar a conocer el resultado en x=2
>> a=input('ingrese el primer dato ');
ingrese el primer dato 2>> b=input('ingrese el segundo dato ');
ingrese el segundo dato 1
>> x=2;
>> f(x)=5*x^a+2*x^b+5;
>> if a>b
disp([' el grado es ' num2str(a)]);else
disp([' el grado es ' num2str(b)]);
end
el grado es 2
>> y=polyval(f(x),x)
3
>> % Hacer un programa que lea 10 numeros y determine cuales y cuantos de ellos>> % son multiplos de 7
>> for i=1:10;
a(i) = input (['Numero ' num2str(i) ' :']);
end
Numero 1 :365
Numero 2 :35
Numero 3 :21
Numero 4 :49
Numero 5 :56
Numero 6 :63Numero 7 :10
Numero 8 :1
Numero 9 :2
Numero 10 :8
>> disp('Multiplos de 7: ');
Multiplos de 7:
>> m=0;
>> for i=1:10;
if rem(a(i),7)==0
disp(a(i))
m=m+1;
endend
35

21

49

56

63

>> if m==0
disp('No hay.');
else
disp(['Son en total ' num2str(m)]);
end
Son en total 5
Problema 1
%Problema 01
>>%Verificar la ecuacion de mallas
>> Vef=220;
f=50;
w=2*pi*f;
R1=1;     L1=0.1;    C1=100e-6;   z1=R1+j*L1*w+1/(i*C1*w)
R2=1;     L2=0.03;   C2=200e-6;   z2=R2+j*L2*w+1/(i*C2*w)R3=0.25;  L3=0.2;    C3=100e-6;   z3=R3+j*L3*w+1/(i*C3*w)
R4=5;     L4=0.1;    C4=100e-6;   z4=R4+j*L4*w+1/(i*C4*w)
R5=20;    L5=0.01;   C5=100e-6;   z5=R5+j*L5*w+1/(i*C5*w)
R6=25;   L6=0.33;   C6=100e-6;   z6=R6+j*L6*w+1/(i*C6*w)
V=[Vef;0;0];
Z=[z1+z2+z3     -z2        -z4
     -z2      z2+z5+z3     -z5
     -z4        -z5      z4+z5+z6];
I=inv(Z)*V;
Ief=abs(I);fase=angle(I);
z1 =
   1.0000 - 0.4151i

z2 =
   1.0000 - 6.4907i

z3 =
   0.2500 +31.0009i

z4 =
   5.0000 - 0.4151i

z5 =
  20.0000 -28.6894i

z6 =
  25.0000 +71.8416i