initial commit / add all books

1 files changed, 17 insertions, 0 deletions

diff --git a/1055/CH17/EX17.8/ch17_8.sce b/1055/CH17/EX17.8/ch17_8.sce
new file mode 100755
index 000000000..1b0c10fea
--- /dev/null
+++ b/1055/CH17/EX17.8/ch17_8.sce
@@ -0,0 +1,17 @@
+// Compute the prefault, faulted and post fault reduced Y matrices

+clear 

+clc;

+y=[-%i*5 0 %i*5 ; 0 -%i*5 %i*5;%i*5 %i*5 -%i*10 ];

+YAA=[-%i*5 0;0 -%i*5];

+YAB=[%i*5;%i*5];

+YBA=[%i*5 %i*5];

+YBB=[%i*10];

+Y=YAA-YAB*(inv(YBB))*YBA;

+Yfull=[-%i*5 0 %i*5;0 -%i*7.5 %i*2.5;%i*5 %i*2.5 -%i*12.5];

+disp(Yfull,"(i)faulted case, full matrix(admittance)=");

+Y=[-%i*3 %i*1;%i*1 -%i*7];

+disp(Y,"(ii)Pre-fault case, reduced admittance matrix=");

+Y=[-%i*5 0 %i*5;0 -%i*2.5 %i*2.5;%i*5 %i*2.5 -%i*7.5];

+disp(Y,"(iii)Post-fault case, full matrix(admittance)=");

+Y=[-%i*1.667 %i*1.667;%i*1.667 -%i*1.667];

+disp(Y," reduced admittance matrix=");