summaryrefslogtreecommitdiff
path: root/3754/CH7/EX7.6/7_6.sce
blob: 88d7a31eafa708755ba2d73e95aae9f85fbb640d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
clear//

//Variables

Q = 90.0                 //Q-factor
L = 15.0 * 10**-6        //Inductance (in Henry)
f = 10.0 * 10**6         //Frequency (in Hertz)  

//Calculation

Ro = 2*%pi*f*L/Q     //d.c. resistance (in ohm)

//Result

printf("\n d.c. resistance of coil is  %0.1f  ohm.",Ro)