summaryrefslogtreecommitdiff
path: root/2210/CH5/EX5.20/5_20.sce
blob: 54329dfe6346d9880a9b2dca7ce6257c50682ca1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
//Chapter 5, Problem 20
clc
f=10e6                         //frequency in hertz
Ls=15e-6                      //capacitance in farad
Rs=2                         //resistance in ohm

//calculation
Qs=(2*%pi*f*Ls)/Rs
Rp=Rs*(1+(Qs^2))
Lp=((1+Qs^2)/Qs^2)*Ls

printf("Resistance Rp = %d Kohm\n\n Inductance Lp = %d uH\n\n Quality factor Qp = %d",Rp/1000,Lp*10^6,Qs)