1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51
| clc;
clear;
close all;
% We will do a per phase analysis
%% Input Data
R1=0.125; % Stator resistance per phase (delta)
f=50; % Frequency
Poles=4; % No. of poles
% No load Test Data
%No load Currents
I1=18.3; % Line current at no load
%No load Applied Voltage
V_nl=401.6; %line to line voltage
Pin_nl=835; % No Load total input Power = 3*I1*V_nl*PF_nl
%% Calculation using no-load test data
V1=V_nl/sqrt(3); % Calculate phase voltage for per phase circuit
P1=Pin_nl/3; % active power per phase
P_scl=3*I1*I1*R1; % Stator copper losses
P_rot=Pin_nl-P_scl; % Rotational Losses
PF_nl=Pin_nl/(3*V1*I1); % No load power factor = cos(theta)
angle_nl=acos(PF_nl)*180/pi; % No load power factor angle in degrees
angle_nl_r=acos(PF_nl); % No load power factor angle in radians
Q1=V1*I1*sin(angle_nl_r); % reactive power per phase
[Vm,Rc,Xm]=solve(subs('P1=R1*I1^2+Vm*Vm/Rc',{'R1','I1','P1'},{R1,I1,P1}),subs('Q1=Vm^2/Xm','Q1',Q1),subs('Vm=V1*Rc*Xm/sqrt((R1*Rc)^2+(Xm*(Rc+R1))^2)',{'V1','R1'},{V1,R1}));
%solve('P1=R1*I1^2+Vm^2/Rc','Q1=Vm^2/Xm','Vm=V1*Rc*Xm/sqrt((R1*Rc)^2+(Xm*(Rc+R1))^2)')
%[Vm,Rc,Xm]=solve('P1=R1*I1^2+Vm*Vm/Rc','Q1=Vm^2/Xm','Vm=V1*Rc*Xm/sqrt((R1*Rc)^2+(Xm*(Rc+R1))^2)')
%Note that we can confirm that sqrt(3)*I1*V_nl=sqrt(P1^2+(3*Q1)^2) as
%waited
% i. e. sqrt(835^2+(3*4234)^2) = 12729
disp(['No load calculations to find the parameters Rc and Xm without approximation with the line current'])
disp(['------------------------------------------------------'])
disp(['Sator Resistance = R1 = ' num2str(R1) ' ohm'])
disp(['Line to line voltage = V_nl = ' num2str(V_nl) ' V']);
disp(['No load Current = I1 = ' num2str(I1) ' A']);
disp(['No load Input Power Pin = Pin = ' num2str(Pin_nl) ' W'])
disp(['Phase Voltage at no load = V1 = ' num2str(V1) ' V']);
disp(['No Load power factor = PFnl = ' num2str(PF_nl)]);
disp(['Power factor angle = phi = ' num2str(angle_nl) ' degree']);
disp(['Stator Copper Losses = Pscl = ' num2str(P_scl) ' W']);
disp(['Rotational Losses = Prot = ' num2str(P_rot) ' W']);
Vm=subs(Vm)
Xm=subs(Xm)
Rc=subs(Rc) |
Partager