diff options
Diffstat (limited to '3793/CH13/EX13.4/exp_13_4.sce')
| -rw-r--r-- | 3793/CH13/EX13.4/exp_13_4.sce | 10 |
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);
|