1 files changed, 17 insertions, 0 deletions
diff --git a/671/CH4/EX4.50/4_50.sce b/671/CH4/EX4.50/4_50.sce
new file mode 100755
index 000000000..20125fddc
--- /dev/null
+++ b/671/CH4/EX4.50/4_50.sce
@@ -0,0 +1,17 @@
+function Zeq=parallel(Z1,Z2)
+    Zeq=Z1*Z2/(Z1+Z2)
+endfunction
+
+V=12*%i
+
+Vth=4-12*%i/(4-12*%i+6+9*%i)*V
+Zth=parallel(4-12*%i,6+9*%i)
+
+I=Vth/(Zth+6+12*%i)
+S=V*conj(I)
+disp(S)
+
+Zl=conj(Zth)
+I=Vth/(Zth+Zl)
+S=V*conj(I)
+disp(Zth,S)
+\ No newline at end of file