1 files changed, 23 insertions, 0 deletions
diff --git a/671/CH4/EX4.46/4_46.sce b/671/CH4/EX4.46/4_46.sce
new file mode 100755
index 000000000..5d1528458
--- /dev/null
+++ b/671/CH4/EX4.46/4_46.sce
@@ -0,0 +1,23 @@
+Vl=1
+w=2
+R=1
+r=1/2
+L=0.5
+C=1
+Xl=w*L*%i
+Xc=1/(w*C*%i)
+
+Il=Vl/Xl
+VR=Il*R
+Vs=Vl+VR
+
+Vr=Vs
+Ir=Vr/r
+Ic=Vs/Xc
+Is=Ir+Ic+Il
+
+PR=-VR*VR/R
+Pr=-Vr*Vr/r
+Ps=Vs*conj(Is)
+
+disp(real(Ps),Pr,PR)
+\ No newline at end of file