resolucao da Questão 1_18 livro Fritzen 6ed no MATLAB

Prévia do material em texto

%Calculo do número de espiras, tamanho do Gap e Voltagem de %
um transformador a partir de um valor de induntancia 
%informado
clc
clear
%Permeabilidade do espaço livre, expressa em Henries por metro
mu0=pi*4.e-7;
mu=3200*mu0;
%Comprimento do núcleo em metros
lc=0.25;
%Frequencia em Hz
f=60
%Área de secção transversal da lacuna expressa em metros
Ag=0.0005;
%Corrente em Arms
I=4.5;
%Densidade de fluxo no núcleo em Teslas
B=1.7;
Z=0;
%Inicio da Função de solicitação ao usuário de entrada de um 
valor para obtenção da indutância
while(Z~=3)
 prompt='\n Qual é o valor desejado de indutância (em 
MH)?';
 result=input(prompt);
 L=result;
 %Calculo do número de voltas das espiras
 N=(L*.001*I)/(Ag*B);
 g=(N*I*mu0/B-lc*mu0/mu)*1000;
 Vrms=L*.001*2*pi*f*I;
 M=mod(N,1);
 N=N-M;
 %Verificação dos parametros minimos e máximos requisitados 
do número de enrolamento
 %de espiras e intervalo do entreferro.
 if (N>=5 && g>=0.05 && g<=5)
 fprintf('O número de voltas = %g;', N);
 fprintf(' O intervalo do gap = %g mm;', g);
 fprintf(' Vrms= %g V;', Vrms), Z=3;
 else
 %Resposta caso o valor informado de indutância não 
estejam dentro dos
 %parametros minimos e máximos requsitados, para melhor 
entendimento
 %caso ocorra escolha de valor fora dos requisitos; é 
informado o
 %intervalo testado do máximo e minimo de indutãncia em 
mH pré-calculado que atenda os requisitos.
 fprintf('Fora dos parametrosm ,não é um valor possível 
para indutância,\n por favor insira um valor possivel de 
(7.28) mH à 288.27 mH!\n');
 end
 
end
 
1