6 files changed, 85 insertions, 0 deletions
diff --git a/803/CH5/EX5.1/ex5_1.sce b/803/CH5/EX5.1/ex5_1.sce
new file mode 100644
index 000000000..bd98e888a
--- /dev/null
+++ b/803/CH5/EX5.1/ex5_1.sce
@@ -0,0 +1,10 @@
+clc
+Pr=10^-14;..//receiver sensitivity
+R=2.5*10^5;
+sigma=15;
+lambda=0.12;
+Gr=2000;..//receiver gain
+Gt=2000;..//transmitter gain
+pi=3.14;
+Ppeak=2.985*(Pr*(4*%pi)^3*R^4/Gt*Gr*sigma*lambda^2);
+disp("W",Ppeak,"Minimum peak transmitter power");
+\ No newline at end of file
diff --git a/803/CH5/EX5.2/ex5_2.sce b/803/CH5/EX5.2/ex5_2.sce
new file mode 100644
index 000000000..1bb77279c
--- /dev/null
+++ b/803/CH5/EX5.2/ex5_2.sce
@@ -0,0 +1,13 @@
+clc
+thetaH=17.3;..//beamwidth in E plane
+thetaE=17.3;..//beamwidth in H plane
+eta=0.5;..//antenna's efficiency
+c=3*10^8;
+f=4.5*10^9;
+lambda=c/f;
+A=(78*lambda/thetaH);..//aperture dimension in H plane
+B=(54*lambda/thetaE);..//aperture dimension in E plane
+G=10*log10(eta*4*%pi*A*B/lambda^2);
+disp("m",A,"Aperture dimension in H plane");
+disp("m",B,"Aperture dimension in E plane");
+disp("dB",G,"Gain");
+\ No newline at end of file
diff --git a/803/CH5/EX5.3/ex5_3.sce b/803/CH5/EX5.3/ex5_3.sce
new file mode 100644
index 000000000..89f3b90f9
--- /dev/null
+++ b/803/CH5/EX5.3/ex5_3.sce
@@ -0,0 +1,22 @@
+clc
+Ltot=123.03;
+Fn=3.16;..//noise factor
+Gt=10;..//transmitter gain
+Pt=1500;..//transmitter peak power
+To=296.7;
+R=10^5;
+k=1.38*10^-23;..//boltzmann constant
+sigma=1.5;
+Ae=8;
+Bn=10^3;..//bandwidth
+pi=3.14;
+F=1;
+w=1.67;
+angle=(4*%pi/Gt)*180/%pi;
+Beamwidth=sqrt(angle);..//elevation beamwidth
+SNR=log10(Pt*Gt*Ae*sigma*F^4/(4*%pi)^2*k*To*Bn*Fn*R^4*Ltot);..//signal to noise ratio
+T=2*%pi/w;..//time frame
+disp("dB",SNR,"Signal received");
+disp("s",T,"Time frame");
+disp("degree",Beamwidth,"Elevation Beamwidth");
+
diff --git a/803/CH5/EX5.4/ex5_4.sce b/803/CH5/EX5.4/ex5_4.sce
new file mode 100644
index 000000000..f9ec4d371
--- /dev/null
+++ b/803/CH5/EX5.4/ex5_4.sce
@@ -0,0 +1,22 @@
+clc
+Ts=1;
+n=3;
+Pd=0.9;..//detection probability
+Gt=10^5;..//transmitter gain
+k=1.38*10^-23;..//boltzmann constant
+tau=10^-6;
+To=305.8;
+Ae=8;
+Pfa=10^-6;..//probability of false alarm
+Pt=10^5;..//transmitter power
+F=1;..//noise factor
+sigma=3.2;
+Bn=1/tau;..//bandwidth
+pi=3.14;
+Fn=3.162;
+e=2.72;
+Ltot=67.608;
+alpha=0.75*(1+0.667*e^(-n/3));
+SNR=(alpha*log10(log(2)/Pfa)/n^(0.667)*(log10(1/Pd))^0.667);
+R=(tau*Pt*Gt*Ae*sigma*F^4/(4*%pi)^2*k*To*Bn*Fn*SNR*Ltot)^0.25;
+disp("m",R,"Maximum Range");
diff --git a/803/CH5/EX5.5/ex5_5.sce b/803/CH5/EX5.5/ex5_5.sce
new file mode 100644
index 000000000..d9134c6b0
--- /dev/null
+++ b/803/CH5/EX5.5/ex5_5.sce
@@ -0,0 +1,10 @@
+clc
+Bn=10^9;..//bandwidth
+T=300;..//room temperature
+k=1.38*10^-23;..//boltzmann constant
+h=6.6256*10^-34;
+f=10^9;..//frequency
+Nthermal=(10*log10(k*T*Bn));..//thermal noise power
+Ni=(10*log10(h*f*Bn));..//quantum noise power
+disp("dB",Nthermal,"Thermal noise power");
+disp("dB",Ni,"Quantum noise power");
+\ No newline at end of file
diff --git a/803/CH5/EX5.6/ex5_6.sce b/803/CH5/EX5.6/ex5_6.sce
new file mode 100644
index 000000000..8e0f4399f
--- /dev/null
+++ b/803/CH5/EX5.6/ex5_6.sce
@@ -0,0 +1,8 @@
+clc
+Pt=100;..//transmitter power
+Gt=1000;..//transmitter gain
+f=3*10^9;..//frequency
+R=10^5;..//resistance
+pi=3.14;
+Smin=(Pt*(0.3*Gt/(4*%pi*f*R))^2);..//Received power
+disp("W",Smin,"Received power");
+\ No newline at end of file