1 files changed, 23 insertions, 0 deletions
diff --git a/2672/CH3/EX3.21/Ex3_21.sce b/2672/CH3/EX3.21/Ex3_21.sce
new file mode 100755
index 000000000..8a47e3308
--- /dev/null
+++ b/2672/CH3/EX3.21/Ex3_21.sce
@@ -0,0 +1,23 @@
+//Example 3_21
+clc;
+clear;
+close;
+format('v',5);
+//given data :
+L=100;//mH
+//i=14.148sin(314*t+%pi/6)
+//v=325*sin(314*t)
+Vm=325;//V
+Im=14.14;//A
+omega=314;//rad/s
+V=Vm/sqrt(2);//V
+I=Im/sqrt(2);//A
+Z=V/(I*expm(%i*%pi/6));//ohm
+R=real(Z);//ohm
+disp(R,"Value of R(ohm)");
+XCL=-imag(Z);//ohm//XCL=XC-XL
+XC=XCL+omega*L/1000;//ohm
+C=1/XC/omega;//F
+C=C*10^6;//micro F
+disp(C,"Value of C(micro F)");
+//Answer is not accurate in the book.