summaryrefslogtreecommitdiff
path: root/1409/CH8/EX8.20/8_20.sce
blob: c72c9cce9871524ac8c44fefa4a2d6edfde9283a (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
clc;
//page no 8-60
//Example 8.20
fo=1126;//in kHz
fs=670;//in kHz
V=68;//in micro volts
Q=50;
fi=fo-fs;
disp(+'kHz',fi,'Frequency of the other station fi=');
//Log alpha=20/20
alpha=10^1;
rho=sqrt((alpha^2-1)/Q^2)
disp(rho,'rho=');
//rho=(fsi/fs)-(fs/fsi);
//fsi=fs+2*fi; fs+2*456
//rho=[(fs+912)/fs]-[fs/(fs+912)]
//0.199=[(fs+912)/fs]-[fs/(fs+912)]
//Solving for fs, we get
fs=8500;//in kHz
S=V/alpha;
disp(+'micro Volt',S,'Strength of the signal=');