1 files changed, 22 insertions, 0 deletions
diff --git a/671/CH4/EX4.24/4_24.sce b/671/CH4/EX4.24/4_24.sce
new file mode 100755
index 000000000..d4b04e5e6
--- /dev/null
+++ b/671/CH4/EX4.24/4_24.sce
@@ -0,0 +1,22 @@
+V=230
+w=2*%pi*50
+R=8
+L=0.1
+C=160E-6
+
+Xl=w*L*%i
+disp(Xl)
+
+Xc=1/(w*C*%i)
+disp(Xc)
+
+Z=norm(R+Xl+Xc)
+disp(Z)
+I=V/Z
+disp(I)
+pf=cos(atan(norm(Xl+Xc)/R))
+disp(pf)
+
+Vcoil=I*norm(R+Xl)
+Vc=norm(I*Xc)
+disp(Vc,Vcoil)
+\ No newline at end of file