1 files changed, 16 insertions, 0 deletions
diff --git a/1109/CH13/EX13.17/13_17.sce b/1109/CH13/EX13.17/13_17.sce
new file mode 100755
index 000000000..770d1ead5
--- /dev/null
+++ b/1109/CH13/EX13.17/13_17.sce
@@ -0,0 +1,16 @@
+clear;
+clc;
+R1=2;R2=1;R3=1;R4=2;
+A=[R1+R2 R2 -R4;R2 R2+R4 R4;-R1 R1 R4+R3+R1];  
+B=det(A);
+C=[1 R2 -R1;0 R2+R1 R1;0 R4 R4+R3+R1];
+D=det(C);
+E=[1 -R1;0 R4+R3+R1];
+F=[R2+R1 -R1;-R1 R4+R3+R1]; 
+G=[R4+R2 0 -R4;R1 1 R4;-R4 0 R4+R2];
+H=[1 R1;0 R4+R3+R1];
+I=[R2+R1 R1;R1 R4+R3+R1]; 
+printf("Z1s = %d/%d ohms\n",B,D);
+printf(" Z1o = %d/%d ohms\n",det(F),det(E));
+printf(" Z2s = %d/%d ohms\n",det(A),det(C));
+printf(" Z2o = %d/%d ohms\n",det(I),det(H));