84
// Determinação das tensões eficazes
VtVEficaz[j]:=Sqrt(Soma/nAmostra);
// Determinação das correntes eficazes
VtIEficaz[j]:=Sqrt(Soma1/nAmostra);
// Determinação das potências ativas
VtPEficaz[j]:=(Soma2/nAmostra);
end;
//--- Apresentado os resultados
// Limpando os componentes "Memos" antes de inserir dados
MmResultados.Lines.Clear;
MmResultados02.Lines.Clear;
// Apresentando os resultados de tensão
MmResultados.Lines.Add(' ');
MmResultados.Lines.Add('--- Tensões de fase ---');
MmResultados.Lines.Add(' ');
for i:=0 to 2 do
begin
ErroParcial:=(VtVEficaz[i]-Veficaz)*100/Veficaz;//Erro percentual de cada sinal de tensão
MmResultados.Lines.Add(' V'+IntToStr(i)+' = '+FloatToStrF(VtVEficaz[i], ffExponent,18,2));
MmResultados.Lines.Add(' ErroParc = '+FloatToStrF(ErroParcial, ffExponent,18,2)+'%');
end;
MmResultados.Lines.Add('');
MmResultados.Lines.Add('Média aritmética das tensões eficazes');
MmResultados.Lines.Add('');
VtVEficaz[3]:=(VtVEficaz[0]+VtVEficaz[1]+VtVEficaz[2])/3;//Na posição "7" desse vetor é
guardada a média entre as três tensões calculadas anteriormente
ErroMedio:=(VtVEficaz[3]-Veficaz)*100/Veficaz;//Erro percentual da média das tensões
MmResultados.Lines.Add(' Vmed = '+FloatToStrF(VtVEficaz[3],ffExponent,18,2));
MmResultados.Lines.Add(' Erro da média = '+FloatToStrF(ErroMedio,ffExponent,18,2)+'%');
MmResultados.Lines.Add('');
// Apresentando os resultados de corrente
MmResultados.Lines.Add('');
MmResultados.Lines.Add('--- Correntes de linha ---');
MmResultados.Lines.Add('');
for i:=0 to 2 do
begin
ErroParcial:=(VtIEficaz[i]-Ieficaz)*100/Ieficaz;//Erro percentual de cada sinal de tensão
MmResultados.Lines.Add(' I'+IntToStr(i)+' = '+FloatToStrF(VtIEficaz[i],ffExponent,18,2));
MmResultados.Lines.Add(' ErroParc = '+FloatToStrF(ErroParcial,ffExponent,18,2)+'%');
end;
MmResultados.Lines.Add('');
MmResultados.Lines.Add('Média aritmética das correntes');
MmResultados.Lines.Add('');
VtIEficaz[3]:=(VtIEficaz[0]+VtIEficaz[1]+VtIEficaz[2])/3;//Na posição "7" desse vetor é
guardada a média entre as três tensões calculadas anteriormente
ErroMedio:=(VtIEficaz[3]-Ieficaz)*100/Ieficaz;//Erro percentual da média das tensões
MmResultados.Lines.Add(' Imed = '+FloatToStrF(VtIEficaz[3],ffExponent,18,2));
MmResultados.Lines.Add(' Erro da média = '+FloatToStrF(ErroMedio,ffExponent,18,2)+'%');
MmResultados.Lines.Add('');
// Apresentando os resultados de potência
MmResultados02.Lines.Add('');
MmResultados02.Lines.Add('--- Potência por fase ---');
MmResultados02.Lines.Add('');
for i:=0 to 2 do
begin
ErroParcial:=(VtPEficaz[i]-Peficaz)*100/Peficaz;
MmResultados02.Lines.Add(' P'+IntToStr(i)+' =
'+FloatToStrF(VtPEficaz[i],ffExponent,18,2));
MmResultados02.Lines.Add(' ErroParc = '+FloatToStrF(ErroParcial,ffExponent,18,2)+'%');
end;
MmResultados02.Lines.Add('');
MmResultados02.Lines.Add('Potência total');