summaryrefslogtreecommitdiff
path: root/1754/CH8
diff options
context:
space:
mode:
Diffstat (limited to '1754/CH8')
-rwxr-xr-x1754/CH8/EX8.1/Exa8_1.sce9
-rwxr-xr-x1754/CH8/EX8.10/Exa8_10.sce13
-rwxr-xr-x1754/CH8/EX8.2/Exa8_2.sce16
-rwxr-xr-x1754/CH8/EX8.3/Exa8_3.sce18
-rwxr-xr-x1754/CH8/EX8.4/Exa8_4.sce12
-rwxr-xr-x1754/CH8/EX8.5/Exa8_5.sce12
-rwxr-xr-x1754/CH8/EX8.6/Exa8_6.sce20
-rwxr-xr-x1754/CH8/EX8.7/Exa8_7.sce13
-rwxr-xr-x1754/CH8/EX8.8/Exa8_8.sce13
-rwxr-xr-x1754/CH8/EX8.9/Exa8_9.sce14
-rwxr-xr-x1754/CH8/EX8.m.1/ExaMisc8_1.sce11
-rwxr-xr-x1754/CH8/EX8.m.2/ExaMisc8_2.sce16
-rwxr-xr-x1754/CH8/EX8.m.3/ExaMisc8_3.sce10
-rwxr-xr-x1754/CH8/EX8.m.4/ExaMisc8_4.sce22
-rwxr-xr-x1754/CH8/EX8.m.5/ExaMisc8_5.sce18
15 files changed, 217 insertions, 0 deletions
diff --git a/1754/CH8/EX8.1/Exa8_1.sce b/1754/CH8/EX8.1/Exa8_1.sce
new file mode 100755
index 000000000..881a0dc6c
--- /dev/null
+++ b/1754/CH8/EX8.1/Exa8_1.sce
@@ -0,0 +1,9 @@
+//Exa 8.1
+clc;
+clear;
+close;
+//Given data
+A=50;//unitless
+disp("Barkhausen criterion for oscillator : Beta*A=1");
+Beta=1/A;//unitless
+disp(Beta,"Feedback Factor to make oscillator : ");
diff --git a/1754/CH8/EX8.10/Exa8_10.sce b/1754/CH8/EX8.10/Exa8_10.sce
new file mode 100755
index 000000000..7d1535ca5
--- /dev/null
+++ b/1754/CH8/EX8.10/Exa8_10.sce
@@ -0,0 +1,13 @@
+//Exa 8.10
+clc;
+clear;
+close;
+//Given data :
+L=0.5;//in H
+C=0.05;//in pF
+R=1;//in kohm
+Cm=1;//in pF
+fs=1/(2*%pi*sqrt(L*C*10^-12));//in Hz
+disp(fs/10^6,"Series resonant frequency in MHz :");
+fp=1/(2*%pi*sqrt((L*C*10^-12*Cm*10^-12)/(C*10^-12+Cm*10^-12)));//in Hz
+disp(fp/10^6,"Parallel resonant frequency in MHz :"); \ No newline at end of file
diff --git a/1754/CH8/EX8.2/Exa8_2.sce b/1754/CH8/EX8.2/Exa8_2.sce
new file mode 100755
index 000000000..268c4e001
--- /dev/null
+++ b/1754/CH8/EX8.2/Exa8_2.sce
@@ -0,0 +1,16 @@
+//Exa 8.2
+clc;
+clear;
+close;
+//Given data
+format('v',5);
+L=100;//in uH
+L=L*10^-6;//in H
+f1=500;//in kHz
+f1=f1*10^3;//in Hz
+f2=1500;//in kHz
+f2=f2*10^3;//in Hz
+//Formula : f=1/(2*%pi*sqrt(L*C))
+C1=1/(4*%pi^2*f1^2*L);//in F
+C2=1/(4*%pi^2*f2^2*L);//in F
+disp("Range of capacitor : "+string(C2*10^12)+" pF to "+string(C1*10^12)+" pF"); \ No newline at end of file
diff --git a/1754/CH8/EX8.3/Exa8_3.sce b/1754/CH8/EX8.3/Exa8_3.sce
new file mode 100755
index 000000000..9b4e71a94
--- /dev/null
+++ b/1754/CH8/EX8.3/Exa8_3.sce
@@ -0,0 +1,18 @@
+//Exa 8.3
+clc;
+clear;
+close;
+//Given data
+format('v',9);
+L=100;//in mH
+L=L*10^-3;//in H
+C1=0.1;//in uF
+C1=C1*10^-6;//in F
+f=100;//in kHz
+f=f*10^3;//in Hz
+//Formula : f=1/(2*%pi*sqrt(L*C))
+C=1/(4*%pi^2*f^2*L);//in F
+//Formula : C=C1*C2/(C1+C2)
+C2=C*C1/(C1-C);
+disp(C2,"C2 in micro farad : ");
+//Note : Answer in the book is wrong. \ No newline at end of file
diff --git a/1754/CH8/EX8.4/Exa8_4.sce b/1754/CH8/EX8.4/Exa8_4.sce
new file mode 100755
index 000000000..f79c550d6
--- /dev/null
+++ b/1754/CH8/EX8.4/Exa8_4.sce
@@ -0,0 +1,12 @@
+//Exa 8.4
+clc;
+clear;
+close;
+//Given data
+R=100;//in kOhm
+R=R*10^3;//in Ohm
+C=0.01;//in uF
+C=C*10^-6;//in F
+fo=sqrt(6)/(2*%pi*R*C);//in Hz
+disp(fo,"Frequency of oscillation in Hz : ");
+//Note : Answer in the book is not accurate. \ No newline at end of file
diff --git a/1754/CH8/EX8.5/Exa8_5.sce b/1754/CH8/EX8.5/Exa8_5.sce
new file mode 100755
index 000000000..77a686728
--- /dev/null
+++ b/1754/CH8/EX8.5/Exa8_5.sce
@@ -0,0 +1,12 @@
+//Exa 8.5
+clc;
+clear;
+close;
+//Given data
+disp("Put alfa=sqrt(6) to find the gain");
+alfa=sqrt(6);//unitless
+Beta=1/(1-5*alfa^2);
+//Barkhausen critera : A*|Beta|>=1
+Beta=-Beta;//
+A=1/Beta;//unitless
+disp(A,"Minimum Gain of Amplifier must be : ");
diff --git a/1754/CH8/EX8.6/Exa8_6.sce b/1754/CH8/EX8.6/Exa8_6.sce
new file mode 100755
index 000000000..8d06778d6
--- /dev/null
+++ b/1754/CH8/EX8.6/Exa8_6.sce
@@ -0,0 +1,20 @@
+//Exa 8.6
+clc;
+clear;
+close;
+//Given data :
+R1=50;//in kohm
+R1=R1*10^3;//in ohm
+C1=0.001;//in uF
+C1=C1*10^-6;//in F
+R2=1;//in kohm
+R2=R2*10^3;//in ohm
+C2=0.01;//in uF
+C2=C2*10^-6;//in F
+//Part (i)
+//Formula : f=1/(2*%pi*sqrt(C1*C2*R1*R2))
+f=1/(2*%pi*sqrt(C1*C2*R1*R2));//in Hz
+disp(f/1000,"Frequency of oscillations in kHz : ");
+//Part (ii)
+CurrentGain=1+C2/C1+R1/R2;//unitless
+disp(CurrentGain,"Current Gain : "); \ No newline at end of file
diff --git a/1754/CH8/EX8.7/Exa8_7.sce b/1754/CH8/EX8.7/Exa8_7.sce
new file mode 100755
index 000000000..85f082a58
--- /dev/null
+++ b/1754/CH8/EX8.7/Exa8_7.sce
@@ -0,0 +1,13 @@
+//Exa 8.7
+clc;
+clear;
+close;
+//Given data :
+fmin=20;//in Hz
+fmax=20;//in kHz
+Cmin=30;//in pF
+Cmax=300;//in pF
+//Formula : fo=1/(2*%pi*R*C))
+disp("Minimum Fequeny correspond to maximum capacitance.")
+R=1/(2*%pi*fmin*Cmax*10^-12)
+disp(R/10^6,"Required resistance in Mohm : "); \ No newline at end of file
diff --git a/1754/CH8/EX8.8/Exa8_8.sce b/1754/CH8/EX8.8/Exa8_8.sce
new file mode 100755
index 000000000..fb69fe684
--- /dev/null
+++ b/1754/CH8/EX8.8/Exa8_8.sce
@@ -0,0 +1,13 @@
+//Exa 8.8
+clc;
+clear;
+close;
+//Given data :
+f=500;//in kHz
+T1=50;//in degree C
+T2=60;//in degree C
+TC=-20;//in ppm/degree C
+ChangeInFreq=TC*(f*10^-3)*(T1-T2);//in Hz
+ResonantFreq=f*1000-ChangeInFreq;//in Hz
+disp(ResonantFreq/1000,"Resonant frequency in kHz : ");
+//Note : answer in the book is wrong. \ No newline at end of file
diff --git a/1754/CH8/EX8.9/Exa8_9.sce b/1754/CH8/EX8.9/Exa8_9.sce
new file mode 100755
index 000000000..c23348416
--- /dev/null
+++ b/1754/CH8/EX8.9/Exa8_9.sce
@@ -0,0 +1,14 @@
+//Exa 8.9
+clc;
+clear;
+close;
+//Given data :
+f=450;//in kHz
+T1=30;//in degree C
+T2=50;//in degree C
+TC=-10;//in ppm/degree C
+PercentChange=-TC*100/10^6;//in %
+TotalChangeInFreq=(PercentChange/100)*(f*10^3)*(T2-T1);//in Hz
+ResonantFreq=f*1000-TotalChangeInFreq;//in Hz
+disp(ResonantFreq/1000,"Resonant frequency in kHz : ");
+//Note : answer in the book is wrong. \ No newline at end of file
diff --git a/1754/CH8/EX8.m.1/ExaMisc8_1.sce b/1754/CH8/EX8.m.1/ExaMisc8_1.sce
new file mode 100755
index 000000000..2e9e7b4a0
--- /dev/null
+++ b/1754/CH8/EX8.m.1/ExaMisc8_1.sce
@@ -0,0 +1,11 @@
+//Exa Misc 8.1
+clc;
+clear;
+close;
+//given data
+format('v',5);
+L2=0.4;//in mH
+C=0.004;//in µF
+f=120;//in KHz
+L1=1/(4*%pi^2*(f*10^3)^2*C*10^-6)-L2*10^-3;//in H
+disp(L1*10^3,"Value of L1(in mH) :");
diff --git a/1754/CH8/EX8.m.2/ExaMisc8_2.sce b/1754/CH8/EX8.m.2/ExaMisc8_2.sce
new file mode 100755
index 000000000..c94814bdb
--- /dev/null
+++ b/1754/CH8/EX8.m.2/ExaMisc8_2.sce
@@ -0,0 +1,16 @@
+//Exa Misc 8.2
+clc;
+clear;
+close;
+//given data
+format('v',6);
+fo=10;//in KHz
+R1=25;//in kohm
+R2=60;//in kohm
+Rc=40;//in kohm
+R=7.1;//in kohm
+hie=1.8;//in kohm
+C=1/(2*%pi*fo*10^3*R*10^3*sqrt(6+4*Rc/R));//in F
+disp(C*10^9,"Value of Capacitor(in nF) :");
+hfe=23+29*R/Rc+4*Rc/R;//unitless
+disp("Value of hfe is ≥ "+string(hfe));
diff --git a/1754/CH8/EX8.m.3/ExaMisc8_3.sce b/1754/CH8/EX8.m.3/ExaMisc8_3.sce
new file mode 100755
index 000000000..d53e89d07
--- /dev/null
+++ b/1754/CH8/EX8.m.3/ExaMisc8_3.sce
@@ -0,0 +1,10 @@
+//Exa Misc 8.3
+clc;
+clear;
+close;
+//given data
+format('v',5);
+R=100;//in kohm
+fo=10;//in KHz
+C=1/(2*%pi*fo*10^3*R*10^3);//in F
+disp(C*10^12,"Value of Capacitor(in pF) :");
diff --git a/1754/CH8/EX8.m.4/ExaMisc8_4.sce b/1754/CH8/EX8.m.4/ExaMisc8_4.sce
new file mode 100755
index 000000000..1deb6466e
--- /dev/null
+++ b/1754/CH8/EX8.m.4/ExaMisc8_4.sce
@@ -0,0 +1,22 @@
+//Exa Misc 8.4
+clc;
+clear;
+close;
+//given data
+format('v',5);
+L=40;//in mH
+C1=100;//in pF
+C2=500;//in pF
+Vout=10;//in volt
+fo=1/(2*%pi*sqrt(L*10^-3*C1*10^-12*C2*10^-12/(C1*10^-12+C2*10^-12)))
+disp(fo*10^-3,"Frequency of oscillation (in KHz) :");
+Vf=Vout*C1/C2;//in volt
+disp(Vf,"Feedback voltage in volt :");
+Gain=C2/C1;//unitless
+disp(Gain,"Minimum Gain is ");
+//if Gain=10
+Gain=10;//given
+C1=C2/Gain;//in pF
+disp(C1,"For a gain of 10 C1 in pF is :");
+fo=1/(2*%pi*sqrt(L*10^-3*C1*10^-12*C2*10^-12/(C1*10^-12+C2*10^-12)))
+disp(fo*10^-3,"New frequency of oscillation (in KHz) :");
diff --git a/1754/CH8/EX8.m.5/ExaMisc8_5.sce b/1754/CH8/EX8.m.5/ExaMisc8_5.sce
new file mode 100755
index 000000000..37f513a03
--- /dev/null
+++ b/1754/CH8/EX8.m.5/ExaMisc8_5.sce
@@ -0,0 +1,18 @@
+//Exa Misc 8.5
+clc;
+clear;
+close;
+//given data
+format('v',6);
+L=0.5;//in H
+Cs=0.06;//in pF
+Cp=1;//in pF
+R=5;//in Kohm
+fs=1/(2*%pi*sqrt(L*Cs*10^-12));//in Hz
+Q=2*%pi*fs*L/(R*10^3);//Q-factor
+disp(fs/10^3,"Seies resonance frequency(in KHz)")
+disp(round(Q),"Q-factor f the crystal at fs is ");
+fp=(1/(2*%pi))*sqrt((Cs*10^-12+Cp*10^-12)/(L*Cs*10^-12*Cp*10^-12));//in Hz
+Q=2*%pi*fp*L/(R*10^3);//Q-factor
+disp(fp/10^3,"Seies resonance frequency(in KHz)")
+disp(round(Q),"Q-factor f the crystal at fs is ");
generated by cgit (git 2.34.1) at 2024-12-20 10:05:57 +0000