initial commit / add all books

2 files changed, 65 insertions, 0 deletions

diff --git a/83/CH6/EX6.7/example_6_7.sce b/83/CH6/EX6.7/example_6_7.sce
new file mode 100755
index 000000000..46c86059a
--- /dev/null
+++ b/83/CH6/EX6.7/example_6_7.sce
@@ -0,0 +1,45 @@
+//Chapter 6
+//Example 6.7
+//page 234
+//To find modified Ybus after including regulating transformer
+clear;clc;
+
+y34=2-%i*6;y23=0.666-%i*2;
+y12=2-%i*6;y24=1-%i*3;
+y13=1-%i*3;
+
+//case(i) when a=1/1.04;
+a=1/1.04;
+//to form Ybus matrix
+Y11=y13+y12;Y12=-y12;Y13=-y13;Y14=0;
+Y21=-y12;Y22=y12+y23+y24;Y23=-y23;Y24=-y24;
+Y31=-y13;Y32=-y23;Y33=(a^2)*y34+y23+y13;Y34=-(a')*y34;
+Y41=0;Y42=-y24;Y43=-a'*y34;Y44=y34+y24;
+
+
+Ybus=[Y11 Y12 Y13 Y14;
+      Y21 Y22 Y23 Y24;
+      Y31 Y32 Y33 Y34;
+      Y41 Y42 Y43 Y44];
+printf('Case(i) When a=1/1.04');
+printf('\nYbus=');disp(Ybus);
+printf('\nObserve the changes in elements between bus 3&4 when compared with the result of example_6.2');
+
+//case(ii) when a=e^(-j3)
+
+a=cosd(3)-%i*sind(3);
+//to form Ybus matrix
+Y11=y13+y12;Y12=-y12;Y13=-y13;Y14=0;
+Y21=-y12;Y22=y12+y23+y24;Y23=-y23;Y24=-y24;
+Y31=-y13;Y32=-y23;Y33=(abs(a)^2)*y34+y23+y13;Y34=(a')*(-y34);
+Y41=0;Y42=-y24;Y43=a*(-y34);Y44=y34+y24;
+
+
+Ybus=[Y11 Y12 Y13 Y14;
+      Y21 Y22 Y23 Y24;
+      Y31 Y32 Y33 Y34;
+      Y41 Y42 Y43 Y44];
+printf('\n\nCase(ii) When a=e^(-j3)');
+printf('\nYbus=');disp(Ybus);
+printf('\nObserve the changes in elements between bus 3&4 when compared with the result of example_6.2');
+
diff --git a/83/CH6/EX6.7/result_example_6_7.txt b/83/CH6/EX6.7/result_example_6_7.txt
new file mode 100755
index 000000000..3d2a478fa
--- /dev/null
+++ b/83/CH6/EX6.7/result_example_6_7.txt
@@ -0,0 +1,20 @@
+ 
+-->exec('/home/samyak/scilab_working_directory/chapter_6/ex_7/example_6_7.sce', -1)
+Case(i) When a=1/1.04
+Ybus= 
+    3. - 9.i  - 2. + 6.i      - 1. + 3.i                  0                       
+  - 2. + 6.i    3.666 - 11.i  - 0.666 + 2.i             - 1. + 3.i                
+  - 1. + 3.i  - 0.666 + 2.i     3.5151124 - 10.547337i  - 1.9230769 + 5.7692308i  
+    0         - 1. + 3.i      - 1.9230769 + 5.7692308i    3. - 9.i                
+
+Observe the changes in elements between bus 3&4 when compared with the result of example_6.2
+
+Case(ii) When a=e^(-j3)
+Ybus= 
+    3. - 9.i  - 2. + 6.i      - 1. + 3.i                  0                       
+  - 2. + 6.i    3.666 - 11.i  - 0.666 + 2.i             - 1. + 3.i                
+  - 1. + 3.i  - 0.666 + 2.i     3.666 - 11.i            - 2.3112748 + 5.8871053i  
+    0         - 1. + 3.i      - 1.6832433 + 6.0964491i    3. - 9.i                
+
+Observe the changes in elements between bus 3&4 when compared with the result of example_6.2 
+-->diary(0);