summaryrefslogtreecommitdiff
path: root/3673/CH8/EX8.a.9/Example_a_8_9.sce
blob: 2de36d08c299e5d5a16183a67818c50f4b3b3c40 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Example_a_8_9 page no:331
clc;
V=20;
omega_r=500;
C=20*10^-6;
Xl=1/(omega_r^2*C);
C=30*10^-6;
R=((omega_r*Xl)-(1/(omega_r*C)));
Q=(omega_r*Xl)/R;
disp(Xl,"the value of inductance is (in H)");
disp(R,"the value of resistance is (in ohm)");
disp(Q,"the quality factor is ");