summaryrefslogtreecommitdiff
path: root/1760/CH2/EX2.87/EX2_87.sce
blob: a1f51e3cb574cc1083dcb6f0b0ed16c9003c692f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
       //EXAMPLE 2-87    PG NO-127  
Wo=1000;
C=20*10^-6;
R=2;
V=10;
L=1/((Wo^2)*C);
Q=(Wo*L)/R;
I=V/R;
Vr=I*R;
VL=Q*V;
Vc=Q*V;
disp(' INDUCTANCE is = '+string(L)+' H');
disp(' Q is = '+string(Q)+' ');
disp(' CURRENT(I) is = '+string(I)+' A');
disp('VOLTAGE ACROSS RESISTANCE is = '+string(Vr)+' V');
disp('VOLTAGE ACROSS INDUCTANCE is = '+string(VL)+' V');
disp(' VOLTAGE ACROSS CAPACITANCE is = '+string(Vc)+' V');