From 8ac15bc5efafa2afc053c293152605b0e6ae60ff Mon Sep 17 00:00:00 2001
From: Siddharth Agarwal
Date: Tue, 3 Sep 2019 18:27:40 +0530
Subject: Xcos examples from textbooks and for blocks

---
 Working_Examples/83/CH6/EX6.2/example_6_2.sce      | 33 ++++++++++++++++++++++
 .../83/CH6/EX6.2/result_example_6_2.txt            | 18 ++++++++++++
 2 files changed, 51 insertions(+)
 create mode 100755 Working_Examples/83/CH6/EX6.2/example_6_2.sce
 create mode 100755 Working_Examples/83/CH6/EX6.2/result_example_6_2.txt

(limited to 'Working_Examples/83/CH6/EX6.2')

diff --git a/Working_Examples/83/CH6/EX6.2/example_6_2.sce b/Working_Examples/83/CH6/EX6.2/example_6_2.sce
new file mode 100755
index 0000000..208ebc4
--- /dev/null
+++ b/Working_Examples/83/CH6/EX6.2/example_6_2.sce
@@ -0,0 +1,33 @@
+//Chapter 6
+//Example 6.2
+//page 195
+//To Ybus of sample system
+clear;clc;
+
+y10=1;y20=1;y30=1;y40=1;
+y34=2-%i*6;y23=0.666-%i*2;
+y12=2-%i*6;y24=1-%i*3;
+y13=1-%i*3;
+
+//to form Ybus matrix
+Y11=y13;Y12=0;Y13=-y13;Y14=0;
+Y21=0;Y22=y23+y24;Y23=-y23;Y24=-y24;
+Y31=-y13;Y32=-y23;Y33=y13+y23+y34;Y34=-y34;
+Y41=0;Y42=-y24;Y43=-y34;Y44=y34+y24;
+
+//case(i) line shown dotted is not connected
+Ybus=[Y11 Y12 Y13 Y14;
+      Y21 Y22 Y23 Y24;
+      Y31 Y32 Y33 Y34;
+      Y41 Y42 Y43 Y44];
+printf('(i)Assuming that the line shown is not connected \n Ybus= ');disp(Ybus);
+//case(ii) line shown dotted is connected
+Y12=Y12-y12;Y21=Y12;
+Y11=Y11+y12;
+Y22=Y22+y12;
+
+Ybus=[Y11 Y12 Y13 Y14;
+      Y21 Y22 Y23 Y24;
+      Y31 Y32 Y33 Y34;
+      Y41 Y42 Y43 Y44];
+printf('\n\n(ii)Assuming that the line shown is connected \n Ybus= ');disp(Ybus);
\ No newline at end of file
diff --git a/Working_Examples/83/CH6/EX6.2/result_example_6_2.txt b/Working_Examples/83/CH6/EX6.2/result_example_6_2.txt
new file mode 100755
index 0000000..3e4396f
--- /dev/null
+++ b/Working_Examples/83/CH6/EX6.2/result_example_6_2.txt
@@ -0,0 +1,18 @@
+ 
+-->exec('/home/samyak/scilab_working_directory/chapter_6/ex_2/example_6_2.sce', -1)
+(i)Assuming that the line shown is not connected 
+ Ybus=  
+    1. - 3.i    0            - 1. + 3.i        0         
+    0           1.666 - 5.i  - 0.666 + 2.i   - 1. + 3.i  
+  - 1. + 3.i  - 0.666 + 2.i    3.666 - 11.i  - 2. + 6.i  
+    0         - 1. + 3.i     - 2. + 6.i        3. - 9.i  
+
+
+(ii)Assuming that the line shown is connected 
+ 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. + 6.i  
+    0         - 1. + 3.i      - 2. + 6.i        3. - 9.i  
+ 
+-->diary(0);
-- 
cgit