1 files changed, 27 insertions, 0 deletions
diff --git a/1445/CH2/EX2.10/ch2_ex_10.sce b/1445/CH2/EX2.10/ch2_ex_10.sce
new file mode 100644
index 000000000..3d34c9759
--- /dev/null
+++ b/1445/CH2/EX2.10/ch2_ex_10.sce
@@ -0,0 +1,27 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 10
+
+disp("CHAPTER 2");
+disp("EXAMPLE 10");
+
+//VARIABLE INITIALIZATION
+v=230;                           //in Volts
+z1=3+(%i*4);                     //impedance in rectangular form in Ohms
+z2=6+(%i*8);                     //impedance in rectangular form in Ohms
+
+//SOLUTION
+function [z,angle]=rect2pol(x,y);
+z=sqrt((x^2)+(y^2));             //z is impedance & the resultant of x and y
+angle=atan(y/x)*(180/%pi);       //to convert the angle from radians to degrees
+endfunction;
+
+[z1,angle1]=rect2pol(3,4);
+[z2,angle2]=rect2pol(6,8);
+
+z=(z1*z2)/(z1+z2); 
+I=v/z;
+angle=-angle1;                   //as angle1=angle2
+p=v*I*cos(angle*%pi/180);        //to convert the angle from degrees to radians
+disp(sprintf("The power drawn from the source is %f kW",p/1000));
+
+//END