summaryrefslogtreecommitdiff
path: root/1964/CH5/EX5.40/ex5_40.sce
blob: 13a0c6e0ae0cc0ee8b0c135551853825747fa03a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
//Chapter-5, Example 5.40, Page 200
//=============================================================================
clc
clear
//INPUT DATA
R=10;//resistance in ohm
L=10^-3;//inductance in henry
C=1000*10^-12;//capacitance in Farads
V=20;//voltage in volts
//CALCULATIONS
fr=inv(2*%pi*sqrt(L*C));//resonant frequency in Hz
Q=(inv(R))*(sqrt(L/C));//Q-factor
Bw=fr/Q;//bandwidth in Hz
hf1=fr+Bw;//halfpower freq1 in Hz
hf2=fr-Bw;//halfpower freq2 in Hz
mprintf("Thus resonant freq,Q-factor and new halfpower frequencies are %d hz ,%d ,%g hz,%g hz respectively",fr,Q,hf1,hf2);
//=================================END OF PROGRAM======================================================================================================