1 files changed, 14 insertions, 0 deletions
diff --git a/671/CH6/EX6.5/6_5.sce b/671/CH6/EX6.5/6_5.sce
new file mode 100755
index 000000000..f4ef090ee
--- /dev/null
+++ b/671/CH6/EX6.5/6_5.sce
@@ -0,0 +1,14 @@
+Vl=400
+Z=16+%i*12
+
+Vp=Vl
+Ip=Vp/Z
+pf=cos(atan(imag(Z)/real(Z)))
+Il=Ip*sqrt(3)
+
+P=sqrt(3)*Vl*Il*pf
+Q=sqrt(3)*Vl*Il*sin(acos(pf))
+
+S=P+%i*Q
+
+disp(Ip,Il,pf,P,Q,S)
+\ No newline at end of file