summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.9/ch2_ex_9.sce
blob: 8e68bc680973bca4fc556c7d86f40f77751f89bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 9

disp("CHAPTER 2");
disp("EXAMPLE 9");

//VARIABLE INITIALIZATION
v1=120;                        //voltage of lamp in Volts
p=100;                         //in Watts
v2=220;                        //supply voltage in Volts
f=50;                          //in Hertz

//SOLUTION
vl=sqrt((v2^2)-(v1^2)); 
xl=(v1*vl)/p;
L=xl/(2*%pi*f);
disp(sprintf("The pure inductance should have a value of %f H",L));

//END