1 files changed, 36 insertions, 0 deletions
diff --git a/3802/CH12/EX12.2/Ex12_2.sce b/3802/CH12/EX12.2/Ex12_2.sce
new file mode 100644
index 000000000..37709dba3
--- /dev/null
+++ b/3802/CH12/EX12.2/Ex12_2.sce
@@ -0,0 +1,36 @@
+//Book Name:Fundamentals of Electrical Engineering
+//Author:Rajendra Prasad
+//Publisher: PHI Learning Private Limited
+//Edition:Third ,2014
+
+//Ex12_2.sce
+
+clc;
+clear;
+z=complex(6,8);
+Vl=110;
+printf("\nPhase current of the load:   Magnitude \t Angle(deg) \n")
+I_YR=complex(Vl*cosd(0),Vl*sind(0))/(z);
+I_BY=complex(Vl*cosd(-120),Vl*sind(-120))/(z);
+I_RB=complex(Vl*cosd(120),Vl*sind(120))/(z);
+I_YR_mag=sqrt(real(I_YR)^2+imag(I_YR)^2);
+I_BY_mag=sqrt(real(I_BY)^2+imag(I_BY)^2);
+I_RB_mag=sqrt(real(I_RB)^2+imag(I_RB)^2);
+I_YR_angle=atand(imag(I_YR)/real(I_YR));
+I_BY_angle=atand(imag(I_BY)/real(I_BY))-180;
+I_RB_angle=atand(imag(I_RB)/real(I_RB));
+printf("\n\t\t Iyr in A \t %d \t %2.2f",I_YR_mag,I_YR_angle)
+printf("\n\t\t Iby in A \t %d \t %2.2f",I_BY_mag,I_BY_angle)
+printf("\n\t\t Irb in A \t %d \t %2.2f",I_RB_mag,I_RB_angle)
+
+printf("\nLine current of the load:    Magnitude \t Angle(deg) \n")
+I_LR_mag=sqrt(3)*I_YR_mag;
+I_LY_mag=sqrt(3)*I_BY_mag;
+I_LB_mag=sqrt(3)*I_RB_mag;
+I_LR_angle=I_YR_angle-30;
+I_LY_angle=I_BY_angle-30;
+I_LB_angle=I_RB_angle-30;
+printf("\n\t\t Ilr in A \t %2.2f \t %2.2f",I_LR_mag,I_LR_angle)
+printf("\n\t\t Ily in A \t %2.2f \t %2.2f",I_LY_mag,I_LY_angle)
+printf("\n\t\t Ilb in A \t %2.2f \t %2.2f",I_LB_mag,I_LB_angle)
+