initial commit / add all books

2 files changed, 97 insertions, 0 deletions

diff --git a/14/CH7/EX7.1/example_7_1.sce b/14/CH7/EX7.1/example_7_1.sce
new file mode 100755
index 000000000..9657f3cd5
--- /dev/null
+++ b/14/CH7/EX7.1/example_7_1.sce
@@ -0,0 +1,59 @@
+//chapter 7
+//Example 7.1
+//Page 170
+//busadmittancematrix
+clear;clc;
+//Given
+//Voltage Sources
+Ea = 1.5;
+Eb = 1.5*(cos(-36.87 * %pi / 180) + %i * sin(-36.87 * %pi / 180))
+Ec = 1.5;
+//admittances
+Ya = -%i*0.8;
+Yb = Ya;
+Yc= Ya;
+Yd = -%i*5;
+Ye = -%i*8;
+Yf = -%i*4;
+Yg = -%i*2.5;
+Yh = Yd;
+//current sourcs
+I1 = Ea * Ya;
+I2 = Eb * Yb;
+I3 = I1;
+I4 = 0;
+disp('Current Sources are')
+printf("\n I1 = - j%.2f per unit",-imag(I1))
+printf("\n I2 = %.2f - j%.2f per unit",real(I2),-imag(I2))
+printf("\n I3 = - j%.2f per unit \n\n",-imag(I3))
+//Self-admittances
+Y11 = Yd + Yf + Ya;
+Y22 = Yh + Yg + Yb;
+Y33 = Ye + Yc + Yg + Yf;
+Y44 = Yd + Ye + Yh;
+disp('Self-admittances are')
+printf("\n Y11 = - j%.2f per unit",-imag(Y11))
+printf("\n Y22 = - j%.2f per unit",-imag(Y22))
+printf("\n Y33 = - j%.2f per unit",-imag(Y33))
+printf("\n Y44 = - j%.2f per unit\n\n",-imag(Y44))
+//Mutual-admittances
+Y12 = 0;Y21 = Y12;
+Y13 = -Yf;Y31 = Y13;
+Y14 = -Yd;Y41 = Y14;
+Y23 = -Yg;Y32 = Y23;
+Y24 = -Yh;Y42 = Y24;
+Y34 = -Ye;Y43 = Y34;
+disp('Mutual admittances are')
+printf("\n Y12 = Y21 = %.2f per unit",imag(Y12))
+printf("\n Y13 = Y31 = j%.2f per unit",imag(Y13))
+printf("\n Y14 = Y41 = j%.2f per unit",imag(Y14))
+printf("\n Y23 = Y32 = j%.2f per unit",imag(Y23))
+printf("\n Y24 = Y42 = j%.2f per unit",imag(Y24))
+printf("\n Y34 = Y43 = j%.2f per unit \n\n",imag(Y34))
+//Matrix Form
+I = [I1 ; I2 ; I3 ; I4];
+Y = [Y11 Y12 Y13 Y14;Y21 Y22 Y23 Y24;Y31 Y32 Y33 Y34;Y41 Y42 Y43 Y44];
+disp('Current Vector =')
+disp(I)
+disp('Bus admittance matrix =')
+disp(Y)
\ No newline at end of file
diff --git a/14/CH7/EX7.1/result_ex_7_1.txt b/14/CH7/EX7.1/result_ex_7_1.txt
new file mode 100755
index 000000000..b34d7b100
--- /dev/null
+++ b/14/CH7/EX7.1/result_ex_7_1.txt
@@ -0,0 +1,38 @@
+ Current Sources are   
+
+ I1 = - j1.20 per unit
+ I2 = -0.72 - j0.96 per unit
+ I3 = - j1.20 per unit 
+
+ 
+ Self-admittances are   
+
+ Y11 = - j9.80 per unit
+ Y22 = - j8.30 per unit
+ Y33 = - j15.30 per unit
+ Y44 = - j18.00 per unit
+
+ 
+ Mutual admittances are   
+
+ Y12 = Y21 = 0.00 per unit
+ Y13 = Y31 = j4.00 per unit
+ Y14 = Y41 = j5.00 per unit
+ Y23 = Y32 = j2.50 per unit
+ Y24 = Y42 = j5.00 per unit
+ Y34 = Y43 = j8.00 per unit 
+
+ 
+ Current Vector =   
+ 
+  - 1.2i                    
+  - 0.7200017 - 0.9599987i  
+  - 1.2i                    
+    0                       
+ 
+ Bus admittance matrix =   
+ 
+  - 9.8i    0       4.i      5.i   
+    0     - 8.3i    2.5i     5.i   
+    4.i     2.5i  - 15.3i    8.i   
+    5.i     5.i     8.i    - 18.i