1 files changed, 31 insertions, 0 deletions
diff --git a/3673/CH6/EX6.a.7/Example_a_6_7.sce b/3673/CH6/EX6.a.7/Example_a_6_7.sce
new file mode 100644
index 000000000..401ea1fff
--- /dev/null
+++ b/3673/CH6/EX6.a.7/Example_a_6_7.sce
@@ -0,0 +1,31 @@
+//Example_a_6_7 page no:237
+clc;
+I1mag=50;
+I1ang=10;
+I2mag=20;
+I2ang=30;
+Z1mag=100/50;
+Z1ang=15-10;
+Z1real=Z1mag*cosd(Z1ang);
+Z1imag=Z1mag*sind(Z1ang);
+Z1=Z1real+(%i*Z1imag);
+Z2mag=100/20;
+Z2ang=15-30;
+Z2real=Z2mag*cosd(Z2ang);
+Z2imag=Z2mag*sind(Z2ang);
+Z2=Z2real+(%i*Z2imag);
+Pa1=I1mag^2*Z1mag;
+Pt2=I2mag^2*real(Z2);
+Pr1=I1mag^2*imag(Z1);
+disp(Pr1,"the reactive power in branch is (in VAR)");
+disp(Pa1,"apparent power in branch Z1 is (in VA)");
+disp(Pt2,"the true power in branch Z2 is (in W)");
+Pr2=I2mag^2*-imag(Z2);//only reactive power is taken, negative sign is used to convert negative to positive
+Pa2=I2mag^2*Z2mag;
+disp(Pr2,"the reactive power in branch is (in VAR)");
+disp(Pa2,"the apparent power in branch is (in VA)");
+Z=((Z1mag*Z2mag)/(Z1+Z2));
+theta=0.71;
+pf=cosd(theta);
+disp(pf,"the power factor of the total circuit is (leading)");
+//reactive power varies slightly hence textbook values are rounded off