summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.47/EX2_47.sce
blob: f63dfe9c1d8b23b00644e450f888c22cf1584c95 (plain)
1
2
3
4
5
6
7
8
9
10
                        //EXAMPLE 2-47   PG NO 92
V=100/sqrt(2);                //VOLTAGE
F=100;                      //FREQUENCY
L=0.018;                    //INDUCTANCE
XL=2*%pi*F*L;
disp('i)   INDUCTANCE (XL) is  in polar form  =  '+string (XL) +'  ohm ');
I=V/[(11.3+%i*11.3)];                    //current
disp('ii)   CURRENT (I) is  in polar form  =  '+string (I) +'  A ');
VR=I*10;                                   //voltage
disp('i)   Voltage Across Resister (VR) is    =  '+string (VR) +'  V ');