THREE PHASE DELTA AND WYE CONNECTION MATLAB I need help writ

THREE PHASE DELTA AND WYE CONNECTION MATLAB!!!

I need help writing a matlab script that will evaluate three phase power systems in either delta or wye connection. Given the impedance and line voltage or line current, compute the following variables:

1. Power Factor

2. Real Power

3. Reactive Power

4. Apparent Power

5. Complex Power

NOTE: All input quantities must have the ability to be either in polar form or rectangular form, and all output quantities must be in polar form. I WOULD GREATLY APPRECIATE THE HELP OF ANY MATLAB GURUS OUT THERE! iF THERE IS A WAY TO AWARD MORE POINTS FOR THIS QUESTION PLEASE LET ME KNOW..

Solution

Just copy the code and change whatever values you want

%MATLAB CODE STARTS HERE
clc; clear all;
% GIVEN ARE THE VALUES OF CURRENT AND IMPEDANCE
i=2+50i;
z=2+5i;
% CALCULATION OF VOLTAGE
v=i*z
%REPRESENTATION OF THE INPUT QUANTITIES IN POLAR FORM FROM RECTANGULAR FORM
% ALL THE ANGLES WILL BE IN RADIANS
[VANGLE, VMAGNITUDE]=cart2pol(real(v), imag(v))
[IANGLE, IMAGNITUDE]=cart2pol(real(i), imag(i))
[ZANGLE, ZMAGNITUDE]=cart2pol(real(z), imag(z))
%--------------------------CALCULATION OF ANGLES --------------------------------------------------%
% CALCULATION OF ANGLES OF V AND I
vang=atand(abs(imag(v))/abs(real(v)))
iang=atand(abs(imag(i))/abs(real(i)))
% CALCULATION OF ANGLE OF VOLTAGE WITH QUADRANT
if imag(v)>0 && real(v)>0
vang = vang;
else if imag(v)>0 && real(v)<0
vang = 180-vang;
else if imag(v)<0 && real(v)>0
vang = -vang;
else if imag(v)<0 && real(v)<0
vang = vang - 180;
end
end
end
end
%--------------------------CALCULATION OF POWERS AND POWER FACTORS---------------------------------%
% POWER FACTOR CALCULATED IN THESE TWO WAYS.
% PF ANGLE = ARCTAN(ZIMAGINARY/ZREAL)
% PF = COS(ANGLE) AND PF = R/Z FROM THE Z VALUE.
pf=cosd(atand(imag(z)/real(z)))
pf1=real(z)/abs(z)
%---------------------------------------------------------------------------------%
% REAL POWER
% REAL POWER CAN BE CALCULATED AS SQUARE(I)*R OR V*I*COS(ANGLE BETWEEN V,I)
P=abs(i)*abs(i)*real(z)
P1=abs(v)*abs(i)*cosd(vang-iang)
%---------------------------------------------------------------------------------%
% REACTIVE POWER
% REACTIVE POWER CAN BE CALCULATED AS SQUARE(I)*X OR V*I*SIN(ANGLE BETWEEN V,I)
Q=abs(i)*abs(i)*imag(z)
Q1=abs(v)*abs(i)*sind(vang-iang)
%---------------------------------------------------------------------------------%
% APPARENT POWER
Sapp=abs(v*conj(i))
Sapp1=abs(P+Q*1i)
%---------------------------------------------------------------------------------%
% COMPLEX POWER
% COMPLEX POWER CAN BE CALCULATED AS V*CONJUGATE(I) OR P+QI
S=v*conj(i)
S1=P+Q*1i %IN RECTANGULAR FORM
[ANGLE, S] = cart2pol(P, Q) % IN POLAR FORM, ANGLE IS IN RADIANS
% SIMILARLY THE OTHER WAY CAN BE DONE WHEN VOLTAGE AND IMPEDANCE ARE GIVEN
% ONLY CHANGE WILL BE IN THE FIRST STEPS WHEREIN FROM VOLTAGE AND IMPEDANCE,
% THE CURRENT IS CALCULATED AND FROM THERE ALL THE STEPS ARE THE SAME.