1 files changed, 10 insertions, 0 deletions
diff --git a/3793/CH13/EX13.4/exp_13_4.sce b/3793/CH13/EX13.4/exp_13_4.sce
new file mode 100644
index 000000000..722bc2901
--- /dev/null
+++ b/3793/CH13/EX13.4/exp_13_4.sce
@@ -0,0 +1,10 @@
+clear;
+clc;
+a=[complex(0,4.8) complex(0,4);complex(0,4) complex(0,4.24)];
+b=[complex(0,5.337) complex(0,5.2407);complex(0,5.2407) complex(0,5.3148)];
+wa=inv(a);
+wb=inv(b);
+mprintf("Ward eqiwalents for power system A is");
+disp(wa);
+mprintf("Ward equivalent for power system B is");
+    disp(wb);