1 files changed, 16 insertions, 0 deletions
diff --git a/3673/CH6/EX6.a.3/Example_a_6_3.sce b/3673/CH6/EX6.a.3/Example_a_6_3.sce
new file mode 100644
index 000000000..fade57efa
--- /dev/null
+++ b/3673/CH6/EX6.a.3/Example_a_6_3.sce
@@ -0,0 +1,16 @@
+//Example_a_6_3 page no:234
+clc;
+R=0.5;
+P=200;
+pf=0.707;
+V=25/sqrt(2);//in V
+I=(200/pf)*(sqrt(2)/25);
+Ztmag=V/I;
+Ztang=25-(-20);
+Ztreal=Ztmag*cosd(Ztang);
+Ztimag=Ztmag*sind(Ztang);
+Zt=Ztreal+(Ztimag*%i);
+Z=Zt-R;
+disp(Z,"the impedence is (in ohm)");
+apparent_power=V*I;
+disp(apparent_power,"the apparent power is (in VA)");