1 files changed, 23 insertions, 0 deletions
diff --git a/3769/CH13/EX13.37/Ex13_37.sce b/3769/CH13/EX13.37/Ex13_37.sce
new file mode 100644
index 000000000..0e64727cd
--- /dev/null
+++ b/3769/CH13/EX13.37/Ex13_37.sce
@@ -0,0 +1,23 @@
+clear
+//Given
+E0=283                       //V
+f=50                            //Hz
+R=3.0                           //ohm
+L=25.48*10**-3                   //h
+C=796*10**-6                       //F
+Xl=8
+
+//Calculation
+//
+Xc=1/(2*%pi*f*C)
+Z=sqrt(R**2+(Xl-Xc)**2)
+a=atan(Xc/R)*180/3.14
+Iv=(E0/sqrt(2))/Z
+P=Iv**2*R
+a1=cos(a*180/3.14)
+
+//Result
+printf("\n (a) The inpedence of the circuit is %0.0f  ohm",Z)
+printf("\n (b) The phase difference is %0.1f  degree",a)
+printf("\n (c) The power dissipated is %0.0f  W",P)
+printf("\n (d) Power factor is %0.1f  lag",a1)