blob: c07b80259a01a5f9b5c93fa1bd4abf65c98a4638 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
|
//To find the resistor for a given Q factor
clc;
clear;
f0=600*(10^3);
bw=50*(10^3); // Bandwidth
L=1.3*(10^-3); // Inductance
Q=30;
Xl=2*%pi*f0*L; // Inductive Reactance
Xco=Xl;// At resonance Xl= Xco
Zto=Q*Xco;
Qd=f0/bw; // Required Q for the circuit
Zdto= Qd*Xco; // The equivalent input resistance required
Rd=poly(0,'Rd');
x=(Zdto*(Zto+Rd))-(Zto*Rd); // Characteristic equation to the shunt resistance
Rd=roots(x); // Shunt resistance
printf('The resistance that is to be connected across the coil = %g k ohms\n',Rd/1000)
|
