summaryrefslogtreecommitdiff
path: root/752/CH4
diff options
context:
space:
mode:
Diffstat (limited to '752/CH4')
-rwxr-xr-x752/CH4/EX4.11.1/4_11_1.sce30
-rwxr-xr-x752/CH4/EX4.12.1/4_12_1.sce10
-rwxr-xr-x752/CH4/EX4.12.2/4_12_2.sce18
-rwxr-xr-x752/CH4/EX4.13.1/4_13_1.sce9
-rwxr-xr-x752/CH4/EX4.14.1/4_14_1.sce11
-rwxr-xr-x752/CH4/EX4.15.1/4_15_1.sce16
-rwxr-xr-x752/CH4/EX4.17.1/4_17_1.sce9
-rwxr-xr-x752/CH4/EX4.18.1/4_18_1.sce17
-rwxr-xr-x752/CH4/EX4.19.1/4_19_1.sce16
-rwxr-xr-x752/CH4/EX4.2.1/4_2_1.sce14
-rwxr-xr-x752/CH4/EX4.2.2/4_2_2.sce23
-rwxr-xr-x752/CH4/EX4.2.3/4_2_3.sce15
-rwxr-xr-x752/CH4/EX4.3.1/4_3_1.sce10
13 files changed, 198 insertions, 0 deletions
diff --git a/752/CH4/EX4.11.1/4_11_1.sce b/752/CH4/EX4.11.1/4_11_1.sce
new file mode 100755
index 000000000..145dbbaa5
--- /dev/null
+++ b/752/CH4/EX4.11.1/4_11_1.sce
@@ -0,0 +1,30 @@
+clc;
+// page no 135
+// prob no 4_11_1
+//An amplifier is given
+Rn=300;//Equivalent noise resistance
+Ieq=5*10^-6;//Equivalent noise current is 5 uA
+Rs=150;//Amplifier fed from 150 ohm,10 uV rms sinusoidal source
+Vs=10*10^-6;
+Bn=10*10^6;//Noise BW is 10 MHz
+//Assume the following
+kT=4*10^-21;//k is Boltzman constant in J/K & T is room temp
+q=1.6*10^-19;//Charge on electron in coulombs
+//Determination of shot noise current
+Ina=(2*q*Ieq*Bn)^(1/2);
+disp('nA',Ina*(10^9)','The value of shot noise current Ina is ');
+//Noise voltage developed by this across source resistance is
+V=Ina*Rs;
+disp('uV',Vs*(10^6)','The value of noise voltage across Rs is ');
+//Noise voltage developed across Rn resistance is
+Vna=(4*Rn*kT*Bn)^(1/2);
+disp('uV',Vna*(10^6)','The value of noise voltage across Rn is ');
+//Determination of thermal noise voltage from source
+Vns=(4*Rs*kT*Bn)^(1/2);
+disp('uV',Vns*(10^6)','The value of thermal noise voltage at Rs is');
+//Determination of total noise voltage at input
+Vn=(((V)^2)+((Vna)^2)+((Vns)^2))^(1/2)
+disp('uV',Vn*(10^6)','The value of total noise voltage Vn is ');
+//Determination of signal to noise ratio in dB
+SNR=20*(log10(Vs/Vn));
+disp('dB',SNR,'The value of signal to noise ratio is '); \ No newline at end of file
diff --git a/752/CH4/EX4.12.1/4_12_1.sce b/752/CH4/EX4.12.1/4_12_1.sce
new file mode 100755
index 000000000..b7275d84c
--- /dev/null
+++ b/752/CH4/EX4.12.1/4_12_1.sce
@@ -0,0 +1,10 @@
+clc;
+// page no 136
+// prob no 4_12_1
+//As shown in fig 4.12.1
+//Three identical links are given with for 1 link is SNR=60 dB
+SNR1=60;
+l=3;
+//Determination of output signal to noise ratio
+SNR=(SNR1)-10*log10(l);
+disp('dB',SNR,'The value of output signal to noise ratio is '); \ No newline at end of file
diff --git a/752/CH4/EX4.12.2/4_12_2.sce b/752/CH4/EX4.12.2/4_12_2.sce
new file mode 100755
index 000000000..7d3a19975
--- /dev/null
+++ b/752/CH4/EX4.12.2/4_12_2.sce
@@ -0,0 +1,18 @@
+clc;
+// page no 137
+// prob no 4_12_2
+//SNR for three links is given in which Ist two have SNR 60 db & IInd 40 dB
+SNRdB(1)=60;//SNR is 60 dB for Ist link
+SNRdB(2)=60;//SNR is 60 dB for IInd link
+SNRdB(3)=40;//SNR is 40 dB for IIIrd link
+//Determination of power in watt
+for i=1:3
+snr(i)=10^(-SNRdB(i)/10);
+end;
+//Determination of overall SNR
+for i=1:3
+SNR=snr(i);
+end;
+//Determination of total SNR in dB
+SNRdB=10*(-log10(SNR));
+disp('dB',SNRdB,'The value of output signal to noise ratio is '); \ No newline at end of file
diff --git a/752/CH4/EX4.13.1/4_13_1.sce b/752/CH4/EX4.13.1/4_13_1.sce
new file mode 100755
index 000000000..6ce520017
--- /dev/null
+++ b/752/CH4/EX4.13.1/4_13_1.sce
@@ -0,0 +1,9 @@
+clc;
+// page no 139
+// prob no 4_13_1
+//Noise fig. of an amplifier is 7 dB with input SNR=35 dB
+SNRin=35;//SNR at i/p of amplifier
+F=7;//Noise figure of an amplifier
+//Determination of output SNR
+SNRout=SNRin-F;
+disp('dB',SNRout,'The value of output signal to noise ratio is '); \ No newline at end of file
diff --git a/752/CH4/EX4.14.1/4_14_1.sce b/752/CH4/EX4.14.1/4_14_1.sce
new file mode 100755
index 000000000..a89392a03
--- /dev/null
+++ b/752/CH4/EX4.14.1/4_14_1.sce
@@ -0,0 +1,11 @@
+clc;
+// page no 140
+// prob no 4_14_1
+//Noise fig. of an amplifier is 13 dB with BW=1MHz
+f=13;//Noise figure of an amplifier
+Bn=1*10^6;
+kT=4*10^-21;//k is Boltzman constant in J/K & T is room temp
+F=10^(f/10);
+//Determination of equivalent amplifier input noise
+Pna=(F-1)*kT*Bn;
+disp('pW',Pna*10^12,'The value of input noise is'); \ No newline at end of file
diff --git a/752/CH4/EX4.15.1/4_15_1.sce b/752/CH4/EX4.15.1/4_15_1.sce
new file mode 100755
index 000000000..03ffeb20f
--- /dev/null
+++ b/752/CH4/EX4.15.1/4_15_1.sce
@@ -0,0 +1,16 @@
+clc;
+// page no 141
+// prob no 4_15_1
+//mixer with noise fig. 20dB preceded by amplifier with noise fig. 9dB is given
+f1=9;//Noise fig for amplifier
+f2=20;//Noise fig for mixer
+g=15;//power gain
+//Converting dB in power ratio
+F1=10^(f1/10);
+F2=10^(f2/10);
+G=10^(g/10);
+//Determination of overall noise fig. reffered at i/p
+F=F1+(F2-1)/G;
+//converting in dB
+FdB=10*log10(F);
+disp('dB',FdB,'The overall noise fig is'); \ No newline at end of file
diff --git a/752/CH4/EX4.17.1/4_17_1.sce b/752/CH4/EX4.17.1/4_17_1.sce
new file mode 100755
index 000000000..fe2ef8877
--- /dev/null
+++ b/752/CH4/EX4.17.1/4_17_1.sce
@@ -0,0 +1,9 @@
+clc;
+// page no 143
+// prob no 4_17_1
+//An attenuator is given with insertion loss of 6 dB
+//Noise fig is equivalent to insertion loss
+F=6;//Noise fig.=6 dB
+//Determination of noise factor
+Fn=10^(6/10);
+disp(Fn,'The value of noise factor is '); \ No newline at end of file
diff --git a/752/CH4/EX4.18.1/4_18_1.sce b/752/CH4/EX4.18.1/4_18_1.sce
new file mode 100755
index 000000000..d10221597
--- /dev/null
+++ b/752/CH4/EX4.18.1/4_18_1.sce
@@ -0,0 +1,17 @@
+clc;
+// page no 144
+// prob no 4_18_1
+//A receiver with noise fig. 12dB fed by low noise amplr with gain 50 dB with noise temp of 90 k
+f=12;
+Tm=290;//Room temp value
+T=90;
+g=50;
+//calculating power ratio
+F=10^(f/10);
+G=10^(g/10);
+//Determination of equivalent noise at room temp
+Tem=(F-1)*Tm;
+disp('K',Tem,'The value of equivalent noise at room temp is');
+//Determination of equivalent noise at 90 k temp
+Te=T+(Tem/G);
+disp('K',Te,'The value of equivalent noise at noise temp=90 is'); \ No newline at end of file
diff --git a/752/CH4/EX4.19.1/4_19_1.sce b/752/CH4/EX4.19.1/4_19_1.sce
new file mode 100755
index 000000000..156884346
--- /dev/null
+++ b/752/CH4/EX4.19.1/4_19_1.sce
@@ -0,0 +1,16 @@
+clc;
+// page no 146
+// prob no 4_19_1
+//An avalanche diode source is given with excess noise ratio is 14 dB
+enr=14;
+To=290;//Room temp in K
+y=9;//Y-factor is 9 dB
+//converting dB in power ratio
+ENR=10^(enr/10);
+Y=10^(y/10);
+//From def of ENR the hot temp is
+Th=To*(ENR+1);
+disp('K',Th,'The value of hot temp Th is ');
+//Determination of equivalent noise temp
+Te=(Th-(Y*To))/(Y-1);
+disp('K',Te,'The value of equivalent noise temp Te is '); \ No newline at end of file
diff --git a/752/CH4/EX4.2.1/4_2_1.sce b/752/CH4/EX4.2.1/4_2_1.sce
new file mode 100755
index 000000000..08bdb11a6
--- /dev/null
+++ b/752/CH4/EX4.2.1/4_2_1.sce
@@ -0,0 +1,14 @@
+clc;
+// page no 120
+// prob no 4_2_1
+//Resistor at room temp T=290 K with BW=1MHz and R=50 ohm
+T=290
+BW=1*10^6// Noise bandwidth in hertz
+k=1.38*10^-23 //Boltzman constant in J/K
+R=50
+//Determination of thermal noise power Pn
+Pn=k*T*BW;
+disp('W',Pn,+'The value of thernal noise power is');
+//Determination of RMS noise voltage
+En=(4*R*k*T*BW)^(1/2);
+disp('uV',En*(10^6),+'The value of RMS noise voltage is'); \ No newline at end of file
diff --git a/752/CH4/EX4.2.2/4_2_2.sce b/752/CH4/EX4.2.2/4_2_2.sce
new file mode 100755
index 000000000..d6e68af0f
--- /dev/null
+++ b/752/CH4/EX4.2.2/4_2_2.sce
@@ -0,0 +1,23 @@
+clc;
+// page no 122
+// prob no 4_2_2
+//Two resistor at room temp are given with BW=100KHz
+R1=20000
+R2=50000
+k=1.38*10^-23 //Boltzman constant in J/K
+T=290
+BW=100*10^3
+//Determination of thermal noise voltage for 20Kohm resistor
+En1=(4*R1*k*T*BW)^(1/2);
+disp('uV',En1*(10^6),+'a)i)The value of RMS noise voltage is');
+//Determination of thermal noise voltage for 50 kohm resistor
+En2=En1*(R2/R1)^(1/2);
+disp('uV',En2*(10^6),+'a)ii)The value of RMS noise voltage is');
+//Determination of thermal noise voltage for 20K & 50k resistor in series
+Rser=R1+R2// Series combination of R1 & R2
+En3=En1*(Rser/R1)^(1/2);
+disp('uV',En3*(10^6),+'b)The value of RMS noise voltage is');
+//Determination of thermal noise voltage for 20K & 50k resistor in parellel
+Rpar=(R1*R2)/(R1+R2)// parallel combination of R1 & R2
+En4=En1*(Rpar/R1)^(1/2);
+disp('uV',En4*(10^6),+'c)The value of RMS noise voltage is'); \ No newline at end of file
diff --git a/752/CH4/EX4.2.3/4_2_3.sce b/752/CH4/EX4.2.3/4_2_3.sce
new file mode 100755
index 000000000..9330e4184
--- /dev/null
+++ b/752/CH4/EX4.2.3/4_2_3.sce
@@ -0,0 +1,15 @@
+clc;
+// page no 128
+// prob no 4_2_3
+//Parallel tuned ckt tuned at resonant freq f=120 MHz
+f=120*10^6;
+c=25*10^-12;//capacitance of 12 pF
+Q=30;//Q-factor of the ckt is 30
+BW=10*10^3;//cahnnel BW of the receiver is 10 KHz
+k=1.38*10^-23 //Boltzman constant in J/K
+T=290;//Room temp
+//Determination of effective noise voltage Rd apearing at i/p at room temp
+ Rd=Q/(2*%pi*f*c);
+ disp('kohm',Rd/1000,'The value of Rd is ');
+ Vn=(4*Rd*k*T*BW)^(1/2);
+disp('uV',Vn*(10^6),'The value of effective noise voltage is'); \ No newline at end of file
diff --git a/752/CH4/EX4.3.1/4_3_1.sce b/752/CH4/EX4.3.1/4_3_1.sce
new file mode 100755
index 000000000..d68504c30
--- /dev/null
+++ b/752/CH4/EX4.3.1/4_3_1.sce
@@ -0,0 +1,10 @@
+clc;
+// page no 131
+// prob no 4_3_1
+//Direct current of 1 mA flowing across semiconductor junctn
+Idc=10^-3;
+Bn=10^6;//Effective noise BW=1 MHz
+q=1.6*10^-19;//Charge on electron in coulombs
+//Determination of noise component current In in DC current of Idc=1 mA
+In=(2*Idc*q*Bn)^(1/2);
+disp('nA',In*(10^9)','The value of noise current In is ') \ No newline at end of file
generated by cgit (git 2.34.1) at 2025-03-13 06:03:54 +0000