1 files changed, 14 insertions, 0 deletions
diff --git a/2384/CH3/EX3.14/ex3_14.sce b/2384/CH3/EX3.14/ex3_14.sce
new file mode 100755
index 000000000..7332672e3
--- /dev/null
+++ b/2384/CH3/EX3.14/ex3_14.sce
@@ -0,0 +1,14 @@
+// Exa 3.14
+clc;
+clear;
+close;
+format('v',6)
+// Given data
+Im= 100;// in A
+Irms= sqrt(Im^2/2*integrate('1-cos(2*theta)','theta',0,%pi)/%pi);// in A
+disp(Irms,"The R.M.S value of current in A is : ")
+Iav= Im*integrate('sin(theta)','theta',0,%pi)/%pi;// in A
+disp(Iav,"The average value of current in A is : ")
+// The form factor 
+kf= Irms/Iav;
+disp(kf,"The form factor is : ")