%Script para solução do Exercício 1 – Aula 103
clear all; clc; close all; %limpa todas as variáveis e o Command Window e fecha as janelas
E = 50 + 0i; %Tensão da fonte
R = 2000; %Valor da resistência
L = 0.04 % Valor da indutância
f = 1:20000; %Faixa de valores de frequência
for k = 1:20000
XL(k) = 2*pi*f(k)*L; %Calcula a reatância indutiva
Zt(k) = sqrt(R^2 + XL(k)^2); %Calcula a impedância total
ThetaT(k) = atan(XL(k)/R)*(180/pi); %Calcula o ângulo theta total e convertendo em graus
VL(k) = ((XL(k)*i)*E)/(R + XL(k)*i); %Aplica a regra dos divisores de tensão para o elemento indutivo
VL_mod(k) = abs(VL(k)); %Calcula o módulo da tensão no indutor
ThetaL(k) = atan(R/XL(k))*(180/pi); %Calcula o ângulo theta do indutor e convertendo em graus
VR(k) = ((R)*E)/(R + XL(k)*i); %Aplica a regra dos divisores de tensão para o elemento resistor
VR_mod(k) = abs(VR(k)); %Calcula o módulo da tensão no resistor
end
figure(1)
subplot(2,1,1),plot(f/1000,Zt,‘LineWidth’,2,‘Color’,[1 0 0])
grid on; xlabel(‘Frequência (kHz)’); ylabel(‘Impedância Total (Ohms)’); title(‘Módulo da impedância total em função de frequência’);
subplot(2,1,2),plot(f/1000,ThetaT,‘LineWidth’,2,‘Color’,[1 0 0])
grid on; xlabel(‘Frequência (kHz)’); ylabel(‘Ângulo (Graus)’); title(‘Ângulo da impedância total em função de frequência’);
figure(2)
plot(f/1000,VL_mod,‘LineWidth’,2,‘Color’,[1 0 0])
grid on; xlabel(‘Frequência (kHz)’); ylabel(‘Tensão no indutor (V)’); title(‘Tensão no indutor em função de frequência’);
figure(3)
plot(f/1000,ThetaL,‘LineWidth’,2,‘Color’,[1 0 0])
grid on; xlabel(‘Frequência (kHz)’); ylabel(‘Ângulo (Graus)’); title(‘Fase da tensão no indutor em função de frequência’);
figure(4)
plot(f/1000,VR_mod,‘LineWidth’,2,‘Color’,[1 0 0])
grid on; xlabel(‘Frequência (kHz)’); ylabel(‘Tensão no resistor (V)’); title(‘Tensão no resistor em função de frequência’);
% Impedância Total (Ohms)
Zt(1) % Para 1 Hz
Zt(2000) % Para 2 kHz
Zt(4000) % Para 4 kHz
Zt(6000) % Para 6 kHz
Zt(8000) % Para 8 kHz
Zt(10000) % Para 10 kHz
Zt(12000) % Para 12 kHz
Zt(14000) % Para 14 kHz
Zt(16000) % Para 16 kHz
Zt(18000) % Para 18 kHz
Zt(20000) % Para 20 kHz
% Ângulo theta total (Graus)
ThetaT(1) % Para 1 Hz
ThetaT(2000) % Para 2 kHz
ThetaT(4000) % Para 4 kHz
ThetaT(6000) % Para 6 kHz
ThetaT(8000) % Para 8 kHz
ThetaT(10000) % Para 10 kHz
ThetaT(12000) % Para 12 kHz
ThetaT(14000) % Para 14 kHz
ThetaT(16000) % Para 16 kHz
ThetaT(18000) % Para 18 kHz
ThetaT(20000) % Para 20 kHz
% Tensão no indutor (V)
VL_mod(1) % Para 1 Hz
VL_mod(2000) % Para 2 kHz
VL_mod(4000) % Para 4 kHz
VL_mod(6000) % Para 6 kHz
VL_mod(8000) % Para 8 kHz
VL_mod(10000) % Para 10 kHz
VL_mod(12000) % Para 12 kHz
VL_mod(14000) % Para 14 kHz
VL_mod(16000) % Para 16 kHz
VL_mod(18000) % Para 18 kHz
VL_mod(20000) % Para 20 kHz
% Ângulo theta no indutor (Graus)
ThetaL(1) % Para 1 Hz
ThetaL(2000) % Para 2 kHz
ThetaL(4000) % Para 4 kHz
ThetaL(6000) % Para 6 kHz
ThetaL(8000) % Para 8 kHz
ThetaL(10000) % Para 10 kHz
ThetaL(12000) % Para 12 kHz
ThetaL(14000) % Para 14 kHz
ThetaL(16000) % Para 16 kHz
ThetaL(18000) % Para 18 kHz
ThetaL(20000) % Para 20 kHz
% Tensão no resistor (V)
VR_mod(1) % Para 1 Hz
VR_mod(2000) % Para 2 kHz
VR_mod(4000) % Para 4 kHz
VR_mod(6000) % Para 6 kHz
VR_mod(8000) % Para 8 kHz
VR_mod(10000) % Para 10 kHz
VR_mod(12000) % Para 12 kHz
VR_mod(14000) % Para 14 kHz
VR_mod(16000) % Para 16 kHz
VR_mod(18000) % Para 18 kHz
VR_mod(20000) % Para 20 kHz