1 files changed, 24 insertions, 0 deletions
diff --git a/1445/CH2/EX2.51/ch2_ex_51.sce b/1445/CH2/EX2.51/ch2_ex_51.sce
new file mode 100644
index 000000000..665dbfdc2
--- /dev/null
+++ b/1445/CH2/EX2.51/ch2_ex_51.sce
@@ -0,0 +1,24 @@
+//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
+//Example 51
+
+disp("CHAPTER 2");
+disp("EXAMPLE 51");
+
+//VARIABLE INITIALIZATION
+Y1=0.4+(%i*0.6);               //admittance of 1st branch in Siemens
+Y2=0.1+(%i*0.4);               //admittance of 2nd branch in Siemens
+Y3=0.06+(%i*0.23);             //admittance of 3rd branch in Siemens
+
+//SOLUTION
+Y=Y1+Y2+Y3;
+//function to convert from rectangular form to polar form
+function [Y,angle]=rect2pol(x,y);
+Y=sqrt((x^2)+(y^2));           
+angle=atan(y/x)*(180/%pi);     //to convert the angle from radians to degrees
+endfunction;
+[Y1,angle]=rect2pol(real(Y),imag(Y));
+disp(sprintf("The total admittance of the circuit is %f S, %f degrees",Y1,angle));
+z=1/Y1;
+disp(sprintf("The impedance of the circuit is %f Ω, %f degrees",z,-angle));
+
+//END