summaryrefslogtreecommitdiff
path: root/1409/CH8/EX8.2/8_2.sce
blob: a9a662fff8fabe4d0abcf8c1929bbf77d3426b1c (plain)
1
2
3
4
5
6
7
8
9
10
11
12
clc;
//Page no 8-6
//Example 8.2
//fr value is taken from the previous example
fr=5*10^6;
Bw=50*10^3;
Q=fr/Bw;
disp(Q,'Q of the tuned circut is ');
L=15*10^(-6);
XL=2*%pi*5*10^6*15*10^(-6);
R=XL/Q;
disp(+'ohm',R,'Resistance of the coil is ');