Anexo II – Rotinas Criadas no Matlab 95
TimeRms=linspace(0,ATime(length(ATime)),length(TensaoARms));
% TensaoARms CorrenteARms PotenciaARms
% TensaoDRms CorrenteDRms PotenciaDRms
%plota os graficos faixa de 60 a
pause
% figure(60),subplot (2,1,1),plot( Time, TensaoA),title('Antes do Inversor'),
% xlabel('Tempo (s)'),ylabel('Tensao (V)'), grid,
% figure(60),subplot (2,1,2),plot( Time, TensaoD),title('Depois do Inversor'),
% xlabel('Tempo (s)'),ylabel('Tensao (V)'), grid,
%
% figure(61),subplot (2,1,1),plot( Time, CorrenteA),title('Antes do Inversor'),
% xlabel('Tempo (s)'),ylabel('Corrente (A)'), grid,
% figure(61),subplot (2,1,2),plot( Time, CorrenteD),title('Depois do Inversor'),
% xlabel('Tempo (s)'),ylabel('Corrente (A)'), grid,
%
% figure(62),subplot (2,1,1),plot( Time, PotenciaA),title('Antes do Inversor'),
% xlabel('Tempo (s)'),ylabel('Potencia (W)'), grid,
% figure(62),subplot (2,1,2),plot( Time, PotenciaD),title('Depois do Inversor'),
% xlabel('Tempo (s)'),ylabel('Potencia (W)'), grid,
%plotagem dos graficos RMS
figure(63),subplot (2,1,1),plot( TimeRms, TensaoARms),title('Antes do Inversor'),
xlabel('Tempo (s)'),ylabel('Tensao RMS (V)'), grid,
figure(63),subplot (2,1,2),plot( TimeRms, TensaoDRms),title('Depois do Inversor'),
xlabel('Tempo (s)'),ylabel('Tensao RMS (V)'), grid,
figure(64),subplot (2,1,1),plot( TimeRms, CorrenteARms),title('Antes do Inversor'),
xlabel('Tempo (s)'),ylabel('Corrente RMS (A)'), grid,
figure(64),subplot (2,1,2),plot( TimeRms, CorrenteDRms),title('Depois do Inversor'),
xlabel('Tempo (s)'),ylabel('Corrente RMS (A)'), grid,
figure(65),subplot (2,1,1),plot( TimeRms, PotenciaARms),title('Antes do Inversor'),
xlabel('Tempo (s)'),ylabel('Potencia RMS (W)'), grid,
figure(65),subplot (2,1,2),plot( TimeRms, PotenciaDRms),title('Depois do Inversor'),
xlabel('Tempo (s)'),ylabel('Potencia RMS (W)'), grid,
R = input('Deseja salvar as variaveis? <S/N>','s')
if R=='Y'| R=='y'| R=='S'| R=='s'
arq=input('entre com o nome do arquivo de dados -> ','s')
% m=msgbox('salva'),set(m,'name','salvando variaveis')
eval (cat(2,'save ',arq,' TensaoA CorrenteA PotenciaA TensaoD CorrenteD
PotenciaD ATime DTime TensaoARms CorrenteARms PotenciaARms TensaoDRms
CorrenteDRms PotenciaDRms '))
% set(m,'name','variaveis salvas'),beep
end
% R = input('Deseja fechar os graficos e limpar as variaveis? <S/N>','s')
% if R=='Y'| R=='y'| R=='S'| R=='s'
% clear TeValue IrValue IsValue NValue VabValue
% clear Ntime TeTime IrIsTime VabTime TeSignals IrIsSignals NSignals
VabSignals
% close 50 51 52 53 54
% end
% clear R
simulacaorms
Este programa é uma função que retorna o sinal de entrada em RMS. Possui a
seguinte sintaxe: