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