summaryrefslogtreecommitdiff
path: root/1445/CH2/EX2.41/ch2_ex_41.sce
blob: 5a2bb77e8484f073dbd65248297b5c4fd417cd6a (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
//CHAPTER 2- STEADY-STATE ANALYSIS OF SINGLE-PHASE A.C. CIRCUIT
//Example 41 // read it as example 40 in the book on page 2.99

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

//VARIABLE INITIALIZATION 
lampV=100;                                //Volts
lampW=60;                                 //watts
V=250;
f=50;
//
//SOLUTION
lampI=lampW/lampV;
lampR=lampW/lampI^2;                    //W=I^2.R
//
disp("SOLUTION (a)");
disp(sprintf("The resistance of the lamp is t is %f Ohms", lampR));
//
//in purely resistive / non inductive circuit,V=IR applies, and R=lampR+R
R=V/lampI-lampR;
disp(sprintf("The value value of resistor to be placed in series with the lamp is %f Ohms", R));
//
//in case of inductance
//XL=2*%pi*f*L;
//V=Z.I where Z^2=R^2+XL^2
//L=sqrt((V^2/I^2-R^2)/2*%pi*f)
L=sqrt((V/lampI)^2-lampR^2)/(2*%pi*f);
disp(sprintf("The  inductive resistance to be placed is %f H",L));
disp(" "); 
// 
//END