1 files changed, 30 insertions, 0 deletions
diff --git a/Working_Examples/154/DEPENDENCIES/ch4_3.sce b/Working_Examples/154/DEPENDENCIES/ch4_3.sce
new file mode 100755
index 0000000..74e715c
--- /dev/null
+++ b/Working_Examples/154/DEPENDENCIES/ch4_3.sce
@@ -0,0 +1,30 @@
+clc
+disp("Problem 4.3")
+printf("\n")
+
+//From figure 4.2
+disp("The reduced incidence matrix is ")
+A=[-1  1 0 0  1  0
+    0 -1 1 0  0  1
+    0  0 0 1 -1 -1]
+    disp(A,"A=")
+AT=[ -1  0  0
+      1 -1  0
+      0  1  0
+      0  0  1 
+      1  0 -1
+      0  1 -1 ]
+      disp(AT,"AT=")
+//Let e be the node to datum voltages
+//Let e=[ e1
+//        e2
+//        e3 ]
+//Multiplying [AT] with [e] we get the node voltages as
+disp("Node to datum voltages are")
+disp("v1=-e1")
+disp("v2=e1-e2")
+disp("v3=e2")
+disp("v4=e3")
+disp("v5=e1-e3")
+disp("v6=e2-e3")
+