1 files changed, 26 insertions, 0 deletions
diff --git a/1445/CH2/EX2.38/Ex2_38.sce b/1445/CH2/EX2.38/Ex2_38.sce
new file mode 100644
index 000000000..bce55490e
--- /dev/null
+++ b/1445/CH2/EX2.38/Ex2_38.sce
@@ -0,0 +1,26 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 38 // read it as example 37 in the book on page 2.93
+
+disp("CHAPTER 2");
+disp("EXAMPLE 38");
+//
+//Solve exercise 36 by j method
+//VARIABLE INITIALIZATION 
+z1=10+15*%i;
+z2=12-20*%i;
+V=230;
+//invZ=1/z1+1/z2;
+Z=z1*z2/(z1+z2);
+magZ=sqrt(real(Z)^2+imag(Z)^2);
+I=V/magZ;
+pf=real(Z)/magZ;
+disp("SOLUTION (a)");
+disp(sprintf("The  current   is %.1f Amp",  I));
+//
+disp("SOLUTION (b)");
+disp(sprintf("The  Power factor  is %.3f lagging",  pf));
+disp(" "); 
+// 
+//END
+
+