1 files changed, 33 insertions, 0 deletions
diff --git a/1445/CH2/EX2.33/ch2_ex_33.sce b/1445/CH2/EX2.33/ch2_ex_33.sce
new file mode 100644
index 000000000..502902d56
--- /dev/null
+++ b/1445/CH2/EX2.33/ch2_ex_33.sce
@@ -0,0 +1,33 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 33 // read it as example 32 in the book on page 2.86
+
+disp("CHAPTER 2");
+disp("EXAMPLE 33");
+
+//VARIABLE INITIALIZATION 
+r1=20;                          //in Ω
+r2=30;                          //
+r3=40;                          //
+l1=0.5;                         //in Henry
+l2=0.3;                         //
+l3=0.2;                         //
+V=230;                          // volts
+f=50;                           //Hz
+//coils connected in series
+// 
+//SOLUTION
+R=r1+r2+r3;
+L=l1+l2+l3;
+XL=2*%pi*f*L;
+//impedence Z=sqrt(R*2 +XL^2)
+Z=sqrt(R^2 +XL^2);
+I=V/Z;
+pf=R/Z;
+pc=V*I*pf;
+disp(sprintf("The total current is %f Amp",  I));
+disp(sprintf("The Power Factor is %f lagging",  pf));
+disp(sprintf("The Power consumed in the circuit is %f W",  pc));
+disp(" "); 
+// 
+//END
+