1 files changed, 12 insertions, 0 deletions
diff --git a/1853/CH4/EX4.21/Ex4_21.sce b/1853/CH4/EX4.21/Ex4_21.sce
new file mode 100755
index 000000000..3dd98972b
--- /dev/null
+++ b/1853/CH4/EX4.21/Ex4_21.sce
@@ -0,0 +1,12 @@
+
+//calculate the value of current
+R=10;//ohms
+L=0.02;//henry
+V=250;//volt
+f=50;//hertz
+X=(2*%pi*f*L)
+Z=sqrt(R^2+X^2)
+I=V/Z
+coso=R/Z
+o=acosd(coso)
+disp('phase angle='+string(o)+'degree',  'current flowing through coil='+string(I)+'amp')