1 files changed, 40 insertions, 0 deletions
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');