From 7f60ea012dd2524dae921a2a35adbf7ef21f2bb6 Mon Sep 17 00:00:00 2001
From: prashantsinalkar
Date: Tue, 10 Oct 2017 12:27:19 +0530
Subject: initial commit / add all books

---
 147/CH3/EX3.8/Example3_8.sce | 25 +++++++++++++++++++++++++
 1 file changed, 25 insertions(+)
 create mode 100644 147/CH3/EX3.8/Example3_8.sce

(limited to '147/CH3/EX3.8/Example3_8.sce')

diff --git a/147/CH3/EX3.8/Example3_8.sce b/147/CH3/EX3.8/Example3_8.sce
new file mode 100644
index 000000000..a9cdcab70
--- /dev/null
+++ b/147/CH3/EX3.8/Example3_8.sce
@@ -0,0 +1,25 @@
+//Voltage V, Resistances R1 and R2, Capacitive reactance Xc
+close();
+clear;
+clc;
+R1 = 10;//ohm
+R2 = 20;
+Xc = -11.55*%i;
+V = 173.2;//V
+//By Nodal analysis
+V1 = V/(R1*((1/R1)+(1/R2)+(1/Xc)));
+V1r = polar(V1);
+V1arg = atan(imag(V1),real(V1))*180/%pi;
+V2 = V-V1;
+V2r = polar(V2);
+V2arg = atan(imag(V2),real(V2))*180/%pi;
+I = V2/R1;
+Ir = polar(I);
+Iarg =atan(imag(I),real(I))*180/%pi;
+I1 = V1/R2;
+I1r = polar(I1);
+I1arg =atan(imag(I1),real(I1))*180/%pi;
+I2 = V1/Xc;
+I2r = polar(I2);
+I2arg =atan(imag(I2),real(I2))*180/%pi;
+mprintf('Voltage across R2 and Xc = %0.0f arg(%0.0f degree) V \nVoltage across R1 = %0.0f arg(%0.0f degree) V \nCurrent through R1, I = %0.0f arg(%0.0f degree) A \nCurrent through R2, I1 = %0.0f arg(%0.0f degree) A \nCurrent through capacitor, I2 = %0.2f arg(%0.0f degree) A',V1r,V1arg,V2r,V2arg,Ir,Iarg,I1r,I1arg,I2r,I2arg);
\ No newline at end of file
-- 
cgit