summaryrefslogtreecommitdiff
path: root/3754/CH19/EX19.10/19_10.sce
blob: 15f674963178f7bb54901e64ef8e06ee27519e7f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
clear//

//Case (a):

//Variables

f = 50.0                             //Frequency (in Hertz)
g = 0.05                             //Ripple factor
RL = 100.0                           //Resistance (in ohm)
w = 2 * %pi * f                  //Angular frequency (in radians per second)       

//Calculation

L = RL / (3 * 2**0.5 * w * g)        //Inductance (in Henry) 

//Result

printf("\n Value of inductance is  %0.1f  H.",L)

//Case (b):

//Variables

f = 400.0                            //Frequency (in Hertz)
g = 0.05                             //Ripple factor
RL = 100.0                           //Resistance (in ohm)
w = 2 * %pi * f                  //Angular frequency (in radians per second)       

//Calculation

L = RL / (3 * 2**0.5 * w * g)        //Inductance (in Henry) 

//Result

printf("\n New Value of inductance is  %0.3f  H.",L)