14 files changed, 134 insertions, 0 deletions
diff --git a/3788/CH4/EX4.2.1/Ex4_2_1.PNG b/3788/CH4/EX4.2.1/Ex4_2_1.PNG
new file mode 100644
index 000000000..8b4b221e1
--- /dev/null
+++ b/3788/CH4/EX4.2.1/Ex4_2_1.PNG
diff --git a/3788/CH4/EX4.2.1/Ex4_2_1.sce b/3788/CH4/EX4.2.1/Ex4_2_1.sce
new file mode 100644
index 000000000..745fd4be2
--- /dev/null
+++ b/3788/CH4/EX4.2.1/Ex4_2_1.sce
@@ -0,0 +1,21 @@
+
+//example 4.2.1
+//Calculate the Flux Density and Power received 
+
+//Variables
+clc
+clear
+D = 40000
+gain = 17              //gain  is in dB
+Gt = 50
+A = 10                            //effective area of antenna
+Pt = 10                           //transmitted power
+R = 4*(10)^7
+
+//Calculation
+F=(Pt*Gt)/(4*%pi*R^2)             //flux density equation 
+Pr = Pt/A                            //Received Power
+
+//Result
+printf("The flux density is %f Watts per sqm \n",F)
+printf("The power received by antenna is %f Watts",Pr)
diff --git a/3788/CH4/EX4.2.2/Ex4_2_2.PNG b/3788/CH4/EX4.2.2/Ex4_2_2.PNG
new file mode 100644
index 000000000..1cc54dd4f
--- /dev/null
+++ b/3788/CH4/EX4.2.2/Ex4_2_2.PNG
diff --git a/3788/CH4/EX4.2.2/Ex4_2_2.sce b/3788/CH4/EX4.2.2/Ex4_2_2.sce
new file mode 100644
index 000000000..0a8d1be7e
--- /dev/null
+++ b/3788/CH4/EX4.2.2/Ex4_2_2.sce
@@ -0,0 +1,18 @@
+// Example 4.2.2
+// Calculate the power received by the antenna  while the gain of 
+// receiving antenna is 52.3 dB
+
+//variables
+clc
+clear
+EIRP=27.0
+Gr=52.3
+R=4*10^7
+lam=2.727*10^(-2)
+
+//calculation
+pathloss=20*log10((4*%pi*R)/lam)   //Finding path loss
+Pr=EIRP+Gr-pathloss                //Finding  Power received
+
+//Result
+printf("Power received at the antenna is %f dBW",Pr)
diff --git a/3788/CH4/EX4.3.1/Ex4_3_2.PNG b/3788/CH4/EX4.3.1/Ex4_3_2.PNG
new file mode 100644
index 000000000..29698fd8f
--- /dev/null
+++ b/3788/CH4/EX4.3.1/Ex4_3_2.PNG
diff --git a/3788/CH4/EX4.3.1/Ex4_3_2.sce b/3788/CH4/EX4.3.1/Ex4_3_2.sce
new file mode 100644
index 000000000..cc5b4dc99
--- /dev/null
+++ b/3788/CH4/EX4.3.1/Ex4_3_2.sce
@@ -0,0 +1,22 @@
+//Example 4.3.2
+// Calculate the New System noise temperature
+
+//Variables
+clc
+clear
+Gain = 50
+G1 = 0.631
+attenuation = 2
+Tm = 500
+TIF = 1000
+Tp = 300
+
+//Calculation
+Twg = Tp*(1-G1)
+Tin = G1*25
+T = (Tin + Twg +Gain + (Tm/(10^5)) + (TIF/(10^4)))
+Ts = (T/G1)
+
+//Result
+printf("Waveguide Noise temperature is %fK \n",Twg)
+printf("The new System noise temperature is %fK",Ts)
diff --git a/3788/CH4/EX4.3.3/Ex4_3_3.PNG b/3788/CH4/EX4.3.3/Ex4_3_3.PNG
new file mode 100644
index 000000000..01a6a72f1
--- /dev/null
+++ b/3788/CH4/EX4.3.3/Ex4_3_3.PNG
diff --git a/3788/CH4/EX4.3.3/Ex4_3_3.sce b/3788/CH4/EX4.3.3/Ex4_3_3.sce
new file mode 100644
index 000000000..4925a9693
--- /dev/null
+++ b/3788/CH4/EX4.3.3/Ex4_3_3.sce
@@ -0,0 +1,11 @@
+//Example 4.3.3
+// Calculate Noise Temperature
+
+clc
+clear
+T0 = 290                     //reference temp usually 290K
+NF = 1.78                      //Noise Figure
+Td = T0*(NF - 1)
+
+//Result
+printf("Value of noise temperature is %dK",Td)
diff --git a/3788/CH4/EX4.3.4/Ex4_3_4.PNG b/3788/CH4/EX4.3.4/Ex4_3_4.PNG
new file mode 100644
index 000000000..110fda409
--- /dev/null
+++ b/3788/CH4/EX4.3.4/Ex4_3_4.PNG
diff --git a/3788/CH4/EX4.3.4/Ex4_3_4.sce b/3788/CH4/EX4.3.4/Ex4_3_4.sce
new file mode 100644
index 000000000..f40655044
--- /dev/null
+++ b/3788/CH4/EX4.3.4/Ex4_3_4.sce
@@ -0,0 +1,25 @@
+//Example 4.3.4
+// Calculate the GT ratio and also if the Noise temperature is risen
+
+//Variables
+clc
+clear
+D = 30
+na = 0.68
+lam = 0.0723
+temp0 = 79
+temp1 = 88
+
+//Calculation
+Gr = na*((%pi*D)/lam)^2
+GrdB = 10*log10(Gr)
+Ts0 = 10*log10(temp0)
+Ts1 = 10*log10(temp1)
+GT = GrdB - Ts0
+GTnew = GrdB - Ts1
+
+//Result
+printf("The Gain of antenna is %f dB \n",GrdB)
+printf("System noise temperature is %f dBK \n",Ts1)
+printf("Earth station GT ratio is %f dB/K \n",GT)
+printf("If the temperature rises to 88K ,then new GT ratio is %f dB/K",GTnew)
diff --git a/3788/CH4/EX4.6.1/Ex4_6_1.PNG b/3788/CH4/EX4.6.1/Ex4_6_1.PNG
new file mode 100644
index 000000000..04d535a1e
--- /dev/null
+++ b/3788/CH4/EX4.6.1/Ex4_6_1.PNG
diff --git a/3788/CH4/EX4.6.1/Ex4_6_1.sce b/3788/CH4/EX4.6.1/Ex4_6_1.sce
new file mode 100644
index 000000000..d5ea32ff0
--- /dev/null
+++ b/3788/CH4/EX4.6.1/Ex4_6_1.sce
@@ -0,0 +1,20 @@
+//Example 4.6.1
+//Calculate the power op of an uplink transmitter
+//Variables
+clc
+clear
+Pr = -127
+Gt = 50
+Gr = 26
+Lp = 207.2
+Lta = 1.5
+Lat = 0.5
+Lpt = -2
+Pin = 0-127
+
+//Result
+Pt = Pr - Gt - Gr + Lp + Lat + Lta - Lpt
+printf("The transmitter output power is %f dBW \n",Pt)
+Rainattenuation = 7
+Ptrain = Pt + Rainattenuation
+printf("The transmitter output power due to fading of rain is %f dBW",Ptrain)
diff --git a/3788/CH4/EX4.7.1/Ex4_7_1.PNG b/3788/CH4/EX4.7.1/Ex4_7_1.PNG
new file mode 100644
index 000000000..8ec9c5468
--- /dev/null
+++ b/3788/CH4/EX4.7.1/Ex4_7_1.PNG
diff --git a/3788/CH4/EX4.7.1/Ex4_7_1.sce b/3788/CH4/EX4.7.1/Ex4_7_1.sce
new file mode 100644
index 000000000..6f291cbff
--- /dev/null
+++ b/3788/CH4/EX4.7.1/Ex4_7_1.sce
@@ -0,0 +1,17 @@
+//Example 4.7.1
+//Calculate the overall CN ratio
+
+//Variables
+clc
+clear
+CNdnratio = 100
+CNupratio = 100
+
+CIratio = 24
+CIratioindB = 0.004
+CN0 = (1/((1/CNupratio) + (1/CNdnratio)))
+CN1 = (1/((1/CNupratio) + (1/CNdnratio) + CIratioindB))
+
+//result
+printf("CN0 ratio is %f\n",CN0)
+printf("The overall CN0 ratio at earth receiveing station is %f ",CN1)