summaryrefslogtreecommitdiff
path: root/3872/CH6/EX6.2
diff options
context:
space:
mode:
Diffstat (limited to '3872/CH6/EX6.2')
-rw-r--r--3872/CH6/EX6.2/Ex6_2.jpgbin0 -> 22783 bytes
-rw-r--r--3872/CH6/EX6.2/Ex6_2.sce26
2 files changed, 26 insertions, 0 deletions
diff --git a/3872/CH6/EX6.2/Ex6_2.jpg b/3872/CH6/EX6.2/Ex6_2.jpg
new file mode 100644
index 000000000..ed04ba716
--- /dev/null
+++ b/3872/CH6/EX6.2/Ex6_2.jpg
Binary files differ
diff --git a/3872/CH6/EX6.2/Ex6_2.sce b/3872/CH6/EX6.2/Ex6_2.sce
new file mode 100644
index 000000000..b5d9f5dda
--- /dev/null
+++ b/3872/CH6/EX6.2/Ex6_2.sce
@@ -0,0 +1,26 @@
+//Book - Power System: Analysis & Design 5th Edition
+//Authors - J. Duncan Glover, Mulukutla S. Sarma, and Thomas J. Overbye
+//Chapter - 6 ; Example 6.2
+//Scilab Version - 6.0.0 ; OS - Windows
+
+clc;
+clear;
+
+A=[2 3 -1;-4 6 8;10 12 14];
+y=[5;7;9];
+N=length(y); //Number of variables
+st=N-1; //Number of Gauss elimination steps
+
+//Gauss Elimination step:
+B=A;
+for i=1:st
+ for j=i+1:N
+ m=(B(j,i)/B(i,i));
+ A(j,i+1:N)=A(j,i+1:N)-m*(A(i,i+1:N));
+ A(i+1:N,i)=0;
+ y(j)=y(j)-m*y(i);
+ end
+ B=A;
+end
+disp(A,'The triangularized matrix using gauss elemination is:')
+disp(y,'and the corresponding y matrix is:')