summaryrefslogtreecommitdiff
path: root/2384/CH3/EX3.14/ex3_14.sce
blob: 7332672e30a6dbcd906e98514375340662553ce6 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
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 : ")