summaryrefslogtreecommitdiff
path: root/1409/CH8
diff options
context:
space:
mode:
Diffstat (limited to '1409/CH8')
-rw-r--r--1409/CH8/EX8.1/8_1.sce18
-rw-r--r--1409/CH8/EX8.10/8_10.sce12
-rw-r--r--1409/CH8/EX8.11/8_11.sce14
-rw-r--r--1409/CH8/EX8.12/8_12.sce13
-rw-r--r--1409/CH8/EX8.13/8_13.sce15
-rw-r--r--1409/CH8/EX8.14/8_14.sce44
-rw-r--r--1409/CH8/EX8.15/8_15.sce30
-rw-r--r--1409/CH8/EX8.16/8_16.sce40
-rw-r--r--1409/CH8/EX8.17/8_17.sce13
-rw-r--r--1409/CH8/EX8.18/8_18.sce11
-rw-r--r--1409/CH8/EX8.19/8_19.sce31
-rw-r--r--1409/CH8/EX8.2/8_2.sce12
-rw-r--r--1409/CH8/EX8.20/8_20.sce21
-rw-r--r--1409/CH8/EX8.21/8_21.sce8
-rw-r--r--1409/CH8/EX8.22/8_22.sce11
-rw-r--r--1409/CH8/EX8.23.1/8_23_i.sce25
-rw-r--r--1409/CH8/EX8.23.2/8_23_ii.sce15
-rw-r--r--1409/CH8/EX8.24/8_24.sce8
-rw-r--r--1409/CH8/EX8.25/8_25.sce21
-rw-r--r--1409/CH8/EX8.26/8_26.sce23
-rw-r--r--1409/CH8/EX8.27/8_27.sce8
-rw-r--r--1409/CH8/EX8.3/8_3.sce26
-rw-r--r--1409/CH8/EX8.4/8_4.sce7
-rw-r--r--1409/CH8/EX8.5/8_5.sce50
-rw-r--r--1409/CH8/EX8.6/8_6.sce23
-rw-r--r--1409/CH8/EX8.7/8_7.sce16
-rw-r--r--1409/CH8/EX8.8/8_8.sce13
27 files changed, 528 insertions, 0 deletions
diff --git a/1409/CH8/EX8.1/8_1.sce b/1409/CH8/EX8.1/8_1.sce
new file mode 100644
index 000000000..b721f23e3
--- /dev/null
+++ b/1409/CH8/EX8.1/8_1.sce
@@ -0,0 +1,18 @@
+clc;
+//page no 8-6
+//Example 8.1
+//Given
+L=15*10^(-6);//in H
+C=67.6*10^(-12);//in F
+R=25;//in ohm
+//Resonant frequency of the LC tuned circuit is given by
+fr=(1/(2*%pi*sqrt(L*C)))*10^(-6);
+disp(+'MHz',fr,'Resonant frequency of LC tuned circuit is ');
+XL=(2*%pi*(fr*10^6)*L);
+Q=XL/R;
+disp(Q,'Q of the tuned circuit is ');
+//Rounding fr to 5MHz and Q to 18.85
+fr1=5;
+Q1=18.85;
+Bw=(fr1*10^6)/Q1;
+disp(+'Hz',Bw,'Bandwidth of the tuned circuit is ');
diff --git a/1409/CH8/EX8.10/8_10.sce b/1409/CH8/EX8.10/8_10.sce
new file mode 100644
index 000000000..36055ca55
--- /dev/null
+++ b/1409/CH8/EX8.10/8_10.sce
@@ -0,0 +1,12 @@
+clc;
+//page no 8-50
+//Example 8.10
+R=60;//in ohms
+fr=2*10^6;//in Hz
+C=50*10^(-12);//in farads
+//we know that fr=1/(2*%pi*sqrt(L*C));
+L=1/((2*%pi*fr)^2*C);
+L1=L*10^(6);
+disp(+'micro H',L1,'L=');
+Q=(2*%pi*fr*L1*10^(-6))/R;
+disp(Q,'Q of tuned circuit is ');
diff --git a/1409/CH8/EX8.11/8_11.sce b/1409/CH8/EX8.11/8_11.sce
new file mode 100644
index 000000000..8e59a9a5f
--- /dev/null
+++ b/1409/CH8/EX8.11/8_11.sce
@@ -0,0 +1,14 @@
+clc;
+//page no 8-51
+//Exmaple 8.11
+L=20*10^(-6);//in Henry
+C=100*10^(-12);//in Farads
+Bw=200*10^3;//in Hz
+fr=[1/(2*%pi*sqrt(L*C))]*10^(-6);
+disp(+'MHz',fr,'Resonant frequency is ');
+Q=(fr/Bw)*10^6;
+disp(Q,'Q for the tuned circuit is');
+R=((2*%pi*fr*L)/Q)*10^6;
+disp(+'ohms',R,'Resistance required is ');
+
+
diff --git a/1409/CH8/EX8.12/8_12.sce b/1409/CH8/EX8.12/8_12.sce
new file mode 100644
index 000000000..2e9fe59db
--- /dev/null
+++ b/1409/CH8/EX8.12/8_12.sce
@@ -0,0 +1,13 @@
+clc;
+//page no 8-51
+//Example 8.12
+fi=455*10^3;//in Hz
+fsi=2000*10^3;//in Hz
+Q=50;
+fs=[(fsi-(2*fi))/1000];//in kHz
+disp(+'kHz',fs,'Signal frequency is ');
+rho=(fsi/[fs*10^3])-([fs*10^3]/fsi);
+disp(rho,'rho=');
+alpha=sqrt(1+(Q^2*rho^2));
+disp(alpha,'Image frequency ratio is ');
+
diff --git a/1409/CH8/EX8.13/8_13.sce b/1409/CH8/EX8.13/8_13.sce
new file mode 100644
index 000000000..4cd3bd666
--- /dev/null
+++ b/1409/CH8/EX8.13/8_13.sce
@@ -0,0 +1,15 @@
+clc;
+//page no 8-52
+//Example 8.13
+fs=1500*10^3;//in Hz
+fi=455*10^3;//in Hz
+alpha=75;
+fsi=[fs+(2*fi)]*10^(-3);
+disp(+'kHz',fsi,'Image frequency is ');
+rho=([fsi*10^3]/fs)-(fs/[fsi*10^3]);
+//Rounding of rho to 0.984
+rho1=0.984;
+//We know that image frequency is given as alpha=sqrt(1+Q^2*rho^2)
+//alpha^2-1=Q^2*rho^2
+Q=sqrt([alpha^2-1]/rho1^2);
+disp(Q,'Q of the tuned circuit is ');
diff --git a/1409/CH8/EX8.14/8_14.sce b/1409/CH8/EX8.14/8_14.sce
new file mode 100644
index 000000000..aa566fbf8
--- /dev/null
+++ b/1409/CH8/EX8.14/8_14.sce
@@ -0,0 +1,44 @@
+clc;
+//page no 8-52
+//Example 8.14
+//Let Csmax/Csmin be denoted by C
+fmin=500;//in kHz
+fmax=1600;//in kHz
+IF=465;//in kHz
+C=(fmax/fmin)^2;
+fomin=fmin+IF;
+fomax=fmax+IF;
+disp(C,'Csmax/Csmin=');
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+//Let Comax/Comin be denoted by C1
+C1=(fomax/fomin)^2;
+disp(C1,'Comax/Comin=');
+Csmax=350//in pF
+Csmin=Csmax/C;
+disp(+'pF',Csmin,'Csmin=');
+//We know that
+//C=[Csmax(Csmin+Cp)/Csmin(Csmax+Cp)]
+//4.58=350/34.2*((34.2+Cp)/(350+Cp))
+Cp=221.3;//in pF
+Comax=(Csmax*Cp)/(Csmax+Cp);
+Comin=(Csmin*Cp)/(Csmin+Cp);
+disp(+'pF',Comax,'Comax=');
+disp(+'pF',Comin,'Comin=');
+//Rounding Comax
+Comax1=135.5;
+//The oscillator coil frequency can be calculated as
+Lo=[1/[(2*%pi*(fomin*10^3))^2*(Comax1*10^-12)]]*10^6;//Answer was given wrong in the text book
+disp(+'microHenry',Lo,'Oscillator coil frequency is');
+//At 1000 kHz
+f=1000;//in kHz
+fomid=f+IF;
+Comid=Comax/(fomax/fomid)^2;
+Comid1=68.2;
+disp(+'pF',Comid,'Comid=');
+Csmid=1/[(1/Comid1)-(1/Cp)];
+disp(+'pF',Csmid,'Csmid=');
+fsmid=fmax/sqrt(Csmax/Csmid);
+disp(+'kHz',fsmid,'fs"'mid=");
+Terr=fsmid-f;
+disp(+'kHz',Terr,'Tracking error is');
diff --git a/1409/CH8/EX8.15/8_15.sce b/1409/CH8/EX8.15/8_15.sce
new file mode 100644
index 000000000..0ee439bce
--- /dev/null
+++ b/1409/CH8/EX8.15/8_15.sce
@@ -0,0 +1,30 @@
+clc;
+//page no 8-54
+//Example 8.15
+fsmax=1650;
+fsmin=525;//in kHz
+SFR=fsmax/fsmin;
+disp(SFR,'Signal frequency ratio is');
+//Rounding off SRF to 3.14
+SFR1=3.14;
+C=(SFR1)^2;
+disp(C,'Capacitance ratio is');
+Comin=50;
+Comax=450;//in pF
+//For trimmer capacitor
+//Comax/Comin=(Csmax+CT)/(Csmin+CT)
+//450/50=(Csmax+CT)/(Csmin+CT)
+//By solving this
+//Csmax-9*Csmin=200
+//Csmax-9.86*Csmin=0
+//Solving we get
+Csmin=232.55;
+Csmax=2293;
+disp(+'pF',Csmin,'Csmin=');
+disp(+'pF',Csmax,'Csmax=');
+//For padder capacitor
+//Comax/Comin=(Csmax/Csmin)*(Csmin+Cp)/(Csmax+Cp)
+//9=9.86*(232.55+Cp)/(2293+Cp)
+//Solving this
+Cp=21330;
+disp(+'pF',Cp,'Padder Capacitor vlue is');
diff --git a/1409/CH8/EX8.16/8_16.sce b/1409/CH8/EX8.16/8_16.sce
new file mode 100644
index 000000000..4ccde1404
--- /dev/null
+++ b/1409/CH8/EX8.16/8_16.sce
@@ -0,0 +1,40 @@
+clc;
+//page no 8-55
+//Example 8.16
+fsmin=450;//in kHz
+fsmax=1600;//in kHz
+IF=455;//in kHz
+f=1000;//in kHz
+fomin=fsmin+IF;
+fomax=fsmax+IF;
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+//Let Comax/Comin be denoted by C
+C=(fomax/fomin)^2;
+disp(C,'Comax/Comin=');
+//Let Csmax/Csmin=C1
+C1=(fsmax/fsmin)^2;
+Csmax=300;//in pico Farads
+Csmin=(Csmax/C1);
+disp(+'pF',Csmin,'Csmin=');
+//Trimmer capacitor is connected in parallel with tuning capacitor
+//Comax/Comin=(Csmax+CT)/(Csmin+CT)
+//5.156=(300+CT)/(23.730+CT);
+CT=42.745;//in pF
+disp(+'pF',CT,'CT=');
+Comax=Csmax+CT;
+Comin=Csmin+CT;
+disp(+'pF',Comax,'Comax=');
+disp(+'pF',Comin,'Comin=');
+//The oscillator coil value can be calculated as
+Lo=[1/[(2*%pi*(fomin*10^3))^2*(Comax*10^(-12))]]*10^6;
+disp(+'microHenry',Lo,'Oscillator coil value is');
+fomid=f+IF;
+Comid=Comax/(fomax/fomid)^2;
+disp(+'pF',Comid,'Comid=');
+Comid1=171.82;
+Lo1=90.234;
+fomid1=[1/(2*%pi*sqrt(Lo1*10^-6*Comid1*10^-12))]*10^-3;
+disp(+'kHz',fomid1,'Actual value of fomid=');
+Terr=fomid1-fomid;
+disp(+'kHz',Terr,'Tracking error is');
diff --git a/1409/CH8/EX8.17/8_17.sce b/1409/CH8/EX8.17/8_17.sce
new file mode 100644
index 000000000..c91b0f749
--- /dev/null
+++ b/1409/CH8/EX8.17/8_17.sce
@@ -0,0 +1,13 @@
+clc;
+//page no 8-57
+//Example 8.17
+fo=1010;//in kHz
+fs=555;//in kHz
+Q=40;
+fi=fo-fs;
+disp(+'kHz',fi,'Intermediate frequency is ');
+fsi=fs+(2*fi);
+disp(+'kHz',fsi,'Image frequency is ');
+rho=(fsi/fs)-(fs/fsi);
+alpha=sqrt(1+(Q^2*rho^2));
+disp(alpha,'Image frequency rejection ratio is ');
diff --git a/1409/CH8/EX8.18/8_18.sce b/1409/CH8/EX8.18/8_18.sce
new file mode 100644
index 000000000..a7fd03d11
--- /dev/null
+++ b/1409/CH8/EX8.18/8_18.sce
@@ -0,0 +1,11 @@
+clc;
+//page no 8-58
+//Example 8.18
+Q=100;
+IF=455;//in kHz
+fs=1000;//in kHz
+fsi=fs+(2*IF);
+disp(+'kHz',fsi,'fsi=');
+rho=(fsi/fs)-(fs/fsi);
+alpha=sqrt(1+(Q^2*rho^2));
+disp(alpha,'Rejection ratio=');
diff --git a/1409/CH8/EX8.19/8_19.sce b/1409/CH8/EX8.19/8_19.sce
new file mode 100644
index 000000000..14d15f070
--- /dev/null
+++ b/1409/CH8/EX8.19/8_19.sce
@@ -0,0 +1,31 @@
+clc;
+//page no 8-58
+//Example 8.19
+fmin=500;//in kHz
+fmax=1600;//in kHz
+IF=465;//in kHz
+//Let Csmax/Csmin=C
+C=(fmax/fmin)^2;
+disp(C,'Csmax/Csmin=');
+fomin=fmin+IF;
+fomax=fmax+IF;
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+//Let Comax/Comin be denoted by C1
+C1=(fomax/fomin)^2;
+disp(C1,'Comax/Comin=');
+Csmax=350;//in pF
+Csmin=Csmax/C;
+disp(+'pF',Csmin,'Csmin=');
+//C=[Csmax(Csmin+Cp)/Csmin(Csmax+Cp)]
+//4.58=(350/34.2)*[(34.2+Cp)/(350+Cp)]
+Cp=221.3;
+disp(+'pF',Cp,'Cp=');
+Comax=(Csmax*Cp)/(Csmax+Cp);
+Comin=(Csmin*Cp)/(Csmin+Cp);
+disp(+'pF',Comax,'Comax=');
+disp(+'pF',Comin,'Comin=');
+//Rounding Comax to 135.5
+Comax1=135.5;
+Lo=[1/[(2*%pi*fomin*10^3)^2*(Comax1*10^(-12))]]*10^6;//Answer was given wrong in the text
+disp(+'microHenry',Lo,'Lo=');
diff --git a/1409/CH8/EX8.2/8_2.sce b/1409/CH8/EX8.2/8_2.sce
new file mode 100644
index 000000000..a9a662fff
--- /dev/null
+++ b/1409/CH8/EX8.2/8_2.sce
@@ -0,0 +1,12 @@
+clc;
+//Page no 8-6
+//Example 8.2
+//fr value is taken from the previous example
+fr=5*10^6;
+Bw=50*10^3;
+Q=fr/Bw;
+disp(Q,'Q of the tuned circut is ');
+L=15*10^(-6);
+XL=2*%pi*5*10^6*15*10^(-6);
+R=XL/Q;
+disp(+'ohm',R,'Resistance of the coil is ');
diff --git a/1409/CH8/EX8.20/8_20.sce b/1409/CH8/EX8.20/8_20.sce
new file mode 100644
index 000000000..c72c9cce9
--- /dev/null
+++ b/1409/CH8/EX8.20/8_20.sce
@@ -0,0 +1,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=');
diff --git a/1409/CH8/EX8.21/8_21.sce b/1409/CH8/EX8.21/8_21.sce
new file mode 100644
index 000000000..af866dfb8
--- /dev/null
+++ b/1409/CH8/EX8.21/8_21.sce
@@ -0,0 +1,8 @@
+clc;
+//page no 8-61
+//Example 8.21
+C=0.01*10^(-6);//in farads
+Rc=5*10^3;//in ohms
+fm=1*10^3;//in Hz
+Mmax=1/sqrt(1+(2*%pi*fm*C*Rc)^2);
+disp(Mmax,'Mmax=');
diff --git a/1409/CH8/EX8.22/8_22.sce b/1409/CH8/EX8.22/8_22.sce
new file mode 100644
index 000000000..011e75d3d
--- /dev/null
+++ b/1409/CH8/EX8.22/8_22.sce
@@ -0,0 +1,11 @@
+clc;
+//page no 8-61
+//Example 8.22
+fm=10*10^3;//in Hz
+Rc=50*10^3;//in ohms
+C=0.01*10^(-6);//in farads
+Mmax=1/sqrt(1+(2*%pi*fm*C*Rc)^2);
+disp(Mmax,'Mmax for modulating frequecy 10kHz is ');
+fm1=5*10^3;//in Hz
+Mmax1=1/sqrt(1+(2*%pi*fm1*C*Rc)^2);
+disp(Mmax1,'Mmax for modulating frequecy 5kHz is ');
diff --git a/1409/CH8/EX8.23.1/8_23_i.sce b/1409/CH8/EX8.23.1/8_23_i.sce
new file mode 100644
index 000000000..b1ffbfb9f
--- /dev/null
+++ b/1409/CH8/EX8.23.1/8_23_i.sce
@@ -0,0 +1,25 @@
+clc;
+//page no 8-62
+//Example 8.23
+Q=125;
+fi=465;//in kHz
+disp("Image frequencies and rejection at 1MHz");
+fs=1000;//in kHz
+fsi=[fs+(2*fi)]*10^-3;
+disp(+'MHz',fsi,'Image frequency is');
+rho=(fsi/(fs*10^-3))-((fs*10^-3)/fsi);
+disp(rho,'rho=');
+alpha=sqrt(1+(Q^2*rho^2));
+//rounding alpha to 176.48
+alpha1=176.48;
+alphadB=20*log10(alpha1);
+disp(+'dB',alphadB,'Image frequency rejection ratio is');
+disp("Image frequencies and rejection at 30MHz")
+fs1=30;//in MHz
+fsi1=fs1+(2*fi*10^-3);
+disp(+'MHz',fsi1,'Image frequency is');
+rho1=(fsi1/fs1)-(fs1/fsi1);
+disp(rho1,'rho=');
+alpha2=sqrt(1+(Q^2*rho1^2));
+alphadB1=20*log10(alpha2);
+disp(+'dB',alphadB1,'Image frequency rejection ratio is');
diff --git a/1409/CH8/EX8.23.2/8_23_ii.sce b/1409/CH8/EX8.23.2/8_23_ii.sce
new file mode 100644
index 000000000..737981c82
--- /dev/null
+++ b/1409/CH8/EX8.23.2/8_23_ii.sce
@@ -0,0 +1,15 @@
+clc;
+//page no 8-62
+//Example 8.23_ii
+//To calculate fi such that alpha at 30MHz is 44.9 dB or 176.48
+alpha=176.48;
+Q=125;
+rho=sqrt((alpha^2-1)/Q^2)
+disp(rho,'rho=');
+//rho=(fsi'/fs')-(fs'/fsi')
+//1.412=(fsi'/fs')-(fs'/fsi')=(1.93/1)-(1/1.93)
+//fs'/fsi'=1/1.93
+//fs'/(fs'+2*fi)=1/1.93
+fi=[(30*1.93)-30]/2;//Answer was slightly wrong
+disp(+'MHz',fi,'IF required=');
+
diff --git a/1409/CH8/EX8.24/8_24.sce b/1409/CH8/EX8.24/8_24.sce
new file mode 100644
index 000000000..e59e03c0d
--- /dev/null
+++ b/1409/CH8/EX8.24/8_24.sce
@@ -0,0 +1,8 @@
+clc;
+//page no 8-64
+//Example 8.24
+C=0.01*10^(-6);//in Farads
+Rc=5*10^3;//in ohms
+fm=10*10^3;//in Hz
+Mmax=1/sqrt(1+(2*%pi*fm*C*Rc)^2);
+disp(Mmax,'Mmax=');
diff --git a/1409/CH8/EX8.25/8_25.sce b/1409/CH8/EX8.25/8_25.sce
new file mode 100644
index 000000000..45237aef3
--- /dev/null
+++ b/1409/CH8/EX8.25/8_25.sce
@@ -0,0 +1,21 @@
+clc;
+//page no 8-64
+//Example 8.25
+fi=450;//in kHz
+Q=65;
+disp("For incoming frequency of 1200kHz");
+fs=1200;//in kHz
+fsi=fs+(2*fi);
+disp(+'kHz',fsi,'Image frequency is');
+P=(fsi/fs)-(fs/fsi);
+P1=1.178;
+alpha=sqrt(1+(Q^2*P^2));
+disp(alpha,'Image frequency rejection ratio is');
+//Answer given in book was wrong
+disp("For incoming frequency of 20MHz");
+fs1=20000;//in kHz
+fsi1=fs1+(2*fi);
+disp(+'kHz',fsi1,'Image frequency is');
+rho=(fsi1/fs1)-(fs1/fsi1);
+alpha1=sqrt(1+(Q^2*rho^2));
+disp(alpha1,'Image frequency rejection ratio is')
diff --git a/1409/CH8/EX8.26/8_26.sce b/1409/CH8/EX8.26/8_26.sce
new file mode 100644
index 000000000..5ca9e492c
--- /dev/null
+++ b/1409/CH8/EX8.26/8_26.sce
@@ -0,0 +1,23 @@
+clc;
+//page no 8-65
+//Example 8.26
+fmax=1600;//in kHz
+fmin=550;//in kHz
+IF=455;//in kHz
+Csmax=350;//in pF
+//Let Csmax/Csmin=C
+C=(fmax/fmin)^2;
+disp(C,'Csmax/Csmin=');
+fomin=fmin+IF;
+fomax=fmax+IF;
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+//Let Comax/Comin be denoted by C1
+C1=(fomax/fomin)^2;
+disp(C1,'Comax/Comin=');
+Csmin=(Csmax/C);
+disp(+'pF',Csmin,'Csmin=');
+//C=[Csmax(Csmin+Cp)/Csmin(Csmax+Cp)]
+//4.18=[350*(41.37+Cp)]/[41.37*(350+Cp)]
+Cp=260;
+disp(+'pF',Cp,'Cp=');
diff --git a/1409/CH8/EX8.27/8_27.sce b/1409/CH8/EX8.27/8_27.sce
new file mode 100644
index 000000000..9ba76ff31
--- /dev/null
+++ b/1409/CH8/EX8.27/8_27.sce
@@ -0,0 +1,8 @@
+clc;
+//page no 8-66
+//Example 8.27
+R=10*10^3;//in ohm
+C=1000*10^(-12);//in farads
+fm=10*10^3;//in Hz
+Mmax=1/sqrt(1+(2*%pi*fm*C*R)^2);
+disp(Mmax,'Mmax=');
diff --git a/1409/CH8/EX8.3/8_3.sce b/1409/CH8/EX8.3/8_3.sce
new file mode 100644
index 000000000..300de1acf
--- /dev/null
+++ b/1409/CH8/EX8.3/8_3.sce
@@ -0,0 +1,26 @@
+clc;
+//page no 8-9
+//Example 8.3
+disp("at 1000kHz");
+Q=80;
+fi=455*10^3;//in Hz
+fs=1000*10^3;//in Hz
+fsi=[fs+(2*fi)]*10^(-3);
+disp(+'kHz',fsi,'fsi=');
+rho=[(fsi*10^3)/fs]-[fs/(fsi*10^3)];
+disp(rho,'rho=');
+//Rounding rho to 3 digits
+rho1=1.386;
+alpha=sqrt(1+(Q^2*rho1^2));
+disp(alpha,'Rejection ratio is');
+disp("at 50MHz");
+fs2=50*10^6;
+fsi2=(fs2+2*fi)*10^(-6);
+disp(+'MHz',fsi2,'fsi=');
+rho2=[(fsi2*10^6)/fs2]-[fs2/(fsi2*10^6)];
+disp(rho2,'rho=');
+//rounding rho2 to 0.036
+rho3=0.036;
+alpha2=sqrt(1+(Q^2*rho3^2));
+disp(alpha2,'Rejection ratio is');
+
diff --git a/1409/CH8/EX8.4/8_4.sce b/1409/CH8/EX8.4/8_4.sce
new file mode 100644
index 000000000..47c12c8a2
--- /dev/null
+++ b/1409/CH8/EX8.4/8_4.sce
@@ -0,0 +1,7 @@
+clc;
+//page no 8-10
+//Example 8.4
+fs=1500;//in kHz
+IF=465;//in kHz
+fs1=fs-(2*IF);
+disp(+'kHz',fs1,'The frequency at another dialing station is ');
diff --git a/1409/CH8/EX8.5/8_5.sce b/1409/CH8/EX8.5/8_5.sce
new file mode 100644
index 000000000..aa9c4aba7
--- /dev/null
+++ b/1409/CH8/EX8.5/8_5.sce
@@ -0,0 +1,50 @@
+clc;
+//page no 8-16
+//Example 8.5
+fsmin=400;//in kHz
+fsmax=1650;//in kHz
+IF=455;//in kHz
+Csmax=300;//in pico Farads
+f=1000;//in kHz
+//Step:1 Calculate fomin,fomax, and oscillator capacitance ratio
+fomin=fsmin+IF;
+fomax=fsmax+IF;
+//Let Comax/Comin be denoted by C
+C=(fomax/fomin)^2;
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+disp(C,'Comax/Comin=');
+//Step:2 We know that, calculate Csmin
+//Let Csmax/Csmin=C1
+C1=(fsmax/fsmin)^2;
+Csmin=(Csmax/C1);
+disp(+'pF',Csmin,'Csmin=');
+//Step:3 We know that, calculate padder capacitance
+//C=[Csmax(Csmin+Cp)/Csmin(Csmax+Cp)]
+//6.06=(5295+300*Cp)/(5295+17.65*Cp)
+//193.041*Cp=26792.7
+Cp=26792.7/193.041;
+disp(+'pF',Cp,'Cp=');
+//Lets round off Csmin to 17.65
+Csmin1=17.65;
+//Step:4 Now calculate Comax and Comin
+Comax=(Csmax*Cp)/(Csmax+Cp);
+Comin=(Csmin1*Cp)/(Csmin1+Cp);
+disp(+'pF',Comax,'Comax=');
+disp(+'pF',Comin,'Comin=');
+//Step:5 Calculate Oscillator inductance
+Lo=[1/[(2*%pi*(fomin*10^3))^2*(Comax*10^(-12))]]*10^3;
+disp(+'mH',Lo,'Oscillator coil value=');
+//Step:6 Calculate tracking error
+//At 1 MHz
+fomid=f+IF;
+Comid=Comax/(fomax/fomid)^2;
+disp(+'pF',Comid,'Comid=');
+//Rounding off Lo and Comid values
+Lo1=365*10^-6;
+Comid1=45.4*10^-12;
+//Actual value of fomid1 is
+fomid1=[1/(2*%pi*sqrt(Lo1*Comid1))]*10^-3;
+disp(+'kHz',fomid1,'Actual value of fomid=');
+Terr=fomid1-fomid;
+disp(+'kHz',Terr,'Tracking error is');
diff --git a/1409/CH8/EX8.6/8_6.sce b/1409/CH8/EX8.6/8_6.sce
new file mode 100644
index 000000000..b24f6fd84
--- /dev/null
+++ b/1409/CH8/EX8.6/8_6.sce
@@ -0,0 +1,23 @@
+clc;
+//page no 8-19
+//Example 8.6
+//Given
+fsmin=530;//in kHz
+fsmax=1650;//in kHz
+IF=455;//in kHz
+disp("For fo>fs");
+fomin=fsmin+IF;
+fomax=fsmax+IF;
+disp(+'kHz',fomin,'fomin=');
+disp(+'kHz',fomax,'fomax=');
+TR=(fomax/fomin)^2;
+disp(TR,'Comax/Comin=');
+disp("Therfore, tuning range for oscillator capacitor is 4.567:1");
+disp("For fo<fs");
+fomin1=fsmin-IF;
+fomax1=fsmax-IF;
+disp(+'kHz',fomin1,'fomin=');
+disp(+'kHz',fomax1,'fomax=');
+TR1=(fomax1/fomin1)^2;
+disp(TR1,'Comax/Comin=');
+disp("Therfore, tuning range for oscillator capacitor is 253.87:1");
diff --git a/1409/CH8/EX8.7/8_7.sce b/1409/CH8/EX8.7/8_7.sce
new file mode 100644
index 000000000..eb08c79fa
--- /dev/null
+++ b/1409/CH8/EX8.7/8_7.sce
@@ -0,0 +1,16 @@
+clc;
+//page no 8-27
+//Example 8.7
+//Given
+C=0.001*10^(-6);//in Farads
+Rc=50*10^3;//in ohm
+fm=1*10^3;//in Hz
+//we know that Zm=Rc||C
+//=1/sqrt((1/Rc^2)+(1/Xc^2))
+//Xc=1/(2*%pi*f*C)
+//Mmax=Zm/Rc=1/Rc*sqrt((1/Rc^2)+(1/(1/2*%pi*f*C)^2)) which gives
+Mmax=1/sqrt(1+(2*%pi*fm*C*Rc)^2);
+disp(Mmax,'Maximum modulation index for modulation frequency 1kHz is ');
+fm2=5*10^3;//in Hz
+Mmax1=1/sqrt(1+(2*%pi*fm2*C*Rc)^2);
+disp(Mmax1,'Maximum modulation index for modulation frequency 5kHz is ');
diff --git a/1409/CH8/EX8.8/8_8.sce b/1409/CH8/EX8.8/8_8.sce
new file mode 100644
index 000000000..79dd443d4
--- /dev/null
+++ b/1409/CH8/EX8.8/8_8.sce
@@ -0,0 +1,13 @@
+clc;
+//page no 8-29
+//Example 8.8
+R1=100;//in kOhms
+R2=200;//in kOhms
+R3=510;//in kOhms
+R4=1000;//in kOhms
+Rc=R1+R2;//DC load for diode
+disp(+'kOhms',Rc,'DC load for diode=');
+Zm=R1+(1/[(1/R2)+(1/R3)+(1/R4)]);
+disp('kOhms',Zm,'Zm=');
+Mmax=Zm/Rc;
+disp(Mmax,'Mmax=');
generated by cgit (git 2.34.1) at 2024-12-22 17:03:14 +0000