summaryrefslogtreecommitdiff
path: root/3673/CH9/EX9.a.14/Example_a_9_14.sce
diff options
context:
space:
mode:
Diffstat (limited to '3673/CH9/EX9.a.14/Example_a_9_14.sce')
-rw-r--r--3673/CH9/EX9.a.14/Example_a_9_14.sce29
1 files changed, 29 insertions, 0 deletions
diff --git a/3673/CH9/EX9.a.14/Example_a_9_14.sce b/3673/CH9/EX9.a.14/Example_a_9_14.sce
new file mode 100644
index 000000000..b4546e303
--- /dev/null
+++ b/3673/CH9/EX9.a.14/Example_a_9_14.sce
@@ -0,0 +1,29 @@
+//Example_a_9_14 page no:416
+clc;
+Vrymag=400;
+Vryang=0;
+Vbrmag=400;
+Vbrang=-240;
+Vybmag=400;
+Zr=-(%i*50);
+Zrmag=sqrt(real(Zr)^2+imag(Zr)^2);
+Zrang=-90;//there is no real part
+Zb=30+(%i*40);
+Zbmag=sqrt(real(Zb)^2+imag(Zb)^2);
+Zbang=atand(imag(Zb)/real(Zb));
+Irmag=Vrymag/Zrmag;
+Irang=Vryang-Zrang;
+Ibmag=Vbrmag/Zbmag;
+Ibang=Vbrang-Zbang;
+Irreal=Irmag*cosd(Irang);
+Irimag=Irmag*sind(Irang);
+Ir=Irreal+(%i*Irimag);
+Ibreal=Ibmag*cosd(Ibang);
+Ibimag=Ibmag*sind(Ibang);
+Ib=Ibreal+(%i*Ibimag);
+I1=Ir-Ib;
+I1mag=sqrt(real(I1)^2+imag(I1)^2);
+pi=71.7;
+P=Vrymag*I1mag*cosd(pi);
+disp(P,"the wattmeter reading is (in W)");
+//the answer varie slightly with text book hence I1 value is rounded off in text book