15 files changed, 233 insertions, 0 deletions
diff --git a/2282/CH7/EX7.1/ex7_1.sce b/2282/CH7/EX7.1/ex7_1.sce
new file mode 100755
index 000000000..413a5e169
--- /dev/null
+++ b/2282/CH7/EX7.1/ex7_1.sce
@@ -0,0 +1,10 @@
+// Example 7.1, page no-249
+clear
+clc
+
+d=36000 *10^3 //distance of geostationary satellite from earth's surface
+Gt=100  // Antenna gain of 20dB
+Pt=10   // Power radiated by earth station
+
+Prd=Pt*Gt/(4*%pi*d^2)
+printf("Prd = %.4f * 10 ^-12 W/m^2\n Power received by the receiving antenna is given by  Pr = %.3f pW",Prd*10^12,Prd*10^13)
diff --git a/2282/CH7/EX7.10/ex7_10.sce b/2282/CH7/EX7.10/ex7_10.sce
new file mode 100755
index 000000000..e2241872e
--- /dev/null
+++ b/2282/CH7/EX7.10/ex7_10.sce
@@ -0,0 +1,13 @@
+// Example 7.10, page no-279
+clear
+clc
+
+ea=80     //EIRP value of earth station A in dBW
+eb=75     //EIRP value of earth station B in dBW
+g=50     //transmit antenna gain in dB
+gra=20     //receiver antenna gain for earth station A in dB
+grb=15     //receiver antenna gain for earth station B in dB
+theeta=4 //viewing angle of the sattelite from two earth station
+eirp_d=eb-g+32-25*log10(theeta)
+c_by_i=ea-eirp_d+(gra-grb)
+printf("carrier-to-interference ratio at the satellite due to\n inteference caused by Eart station B is, (C/I) = %.0f dB ",c_by_i)
diff --git a/2282/CH7/EX7.11/ex7_11.sce b/2282/CH7/EX7.11/ex7_11.sce
new file mode 100755
index 000000000..023643502
--- /dev/null
+++ b/2282/CH7/EX7.11/ex7_11.sce
@@ -0,0 +1,12 @@
+// Example 7.11, page no-279
+clear
+clc
+
+//carrier sinal strength at sattelite by uplink
+u=10000    // equivalent to 40dB
+
+//carrier sinal strength at eart station by downlink 
+d=3162.28 //equivalent to 35dB
+
+x=1/((1/u)+(1/d)) 
+printf("Total carrier-to-interference ratio is %.2f = %.1f dB",x,10*log10(x))
diff --git a/2282/CH7/EX7.12/ex7_12.sce b/2282/CH7/EX7.12/ex7_12.sce
new file mode 100755
index 000000000..de3a8db00
--- /dev/null
+++ b/2282/CH7/EX7.12/ex7_12.sce
@@ -0,0 +1,12 @@
+//Example 7.12, Page no.280
+clear 
+clc
+
+theeta=5  //Angle form by slant ranges of two satellites
+dA=42100*10^3  //Slant range of satellite A
+dB=42000*10^3  //Slant range of satellite B
+r=42164*10^3   //radius of geostationary orbit
+beeta=((dA^2+dB^2-cosd(theeta)*2*dA*dB)/(2*r^2))
+beeta=ceil(beeta*10^3)/10^3
+beeta=(180/%pi)*acos(1-beeta)
+printf("Longitudinal separation between two satellites is %.3f°",beeta)
diff --git a/2282/CH7/EX7.13/ex7_13.sce b/2282/CH7/EX7.13/ex7_13.sce
new file mode 100755
index 000000000..04ebf6f38
--- /dev/null
+++ b/2282/CH7/EX7.13/ex7_13.sce
@@ -0,0 +1,15 @@
+//Example 7.13, Page no.281
+clear 
+clc
+Ga=60     //Antenna Gain in dB
+Ta= 60    //Noise teperature of Antenna
+L1=1.12   //Feeder Loss equivalent to dB
+T1=290    //Noise teperature of stage 1
+G2=10^6     //Gain of stage 2 in dB
+T2=140    //Noise teperature of stage 2
+T3=10000  //Noise teperature of stage 3
+G=Ga-0.5  // input of low noise amplifier
+Ts=(Ta/L1)+(T1*(L1-1)/L1)+T2+(T3/G2)
+Ts=floor(Ts*100)/100
+x=G-10*log10(Ts)
+printf("Tsi = %.2fK\n\n G/T(in dB/K)= %.0f dB/K",Ts,x)
diff --git a/2282/CH7/EX7.14/ex7_14.sce b/2282/CH7/EX7.14/ex7_14.sce
new file mode 100755
index 000000000..2d2754902
--- /dev/null
+++ b/2282/CH7/EX7.14/ex7_14.sce
@@ -0,0 +1,17 @@
+//Example 7.14, Page no.282
+clear 
+clc
+
+Ga=60     //Amplifier Gain in dB
+Ta= 60    //Noise teperature of Antenna
+L1=1.12   //Feeder Loss equivalent to dB
+T1=290    //Noise teperature of stage 1
+G2=10^6     //Gain of stage 2 in dB
+T2=140    //Noise teperature of stage 2
+T3=10000  //Noise teperature of stage 3
+G=Ga-0.5  // input of low noise amplifier
+
+T=Ta+T1*(L1-1)+L1*(T2+(T3/G2))
+x=G-10*log10(T)
+printf("T = %.1fK\n\n G/T = %.0f dB/k",T,ceil(x))
+printf("\n\n It is evident from the solutions of the problems 13 and 14\n that G/T ratio is invarient regardless of the reference point in agreement \n with a statement made earlier in the text.")
diff --git a/2282/CH7/EX7.15/ex7_15.sce b/2282/CH7/EX7.15/ex7_15.sce
new file mode 100755
index 000000000..520b9f4ff
--- /dev/null
+++ b/2282/CH7/EX7.15/ex7_15.sce
@@ -0,0 +1,27 @@
+//Example 7.15, Page no.286
+clear 
+clc
+
+f=6*10^9     //uplink frequency
+eirp= 80     //Earth station EIRP in dBW
+r=35780      //Earth station satellite distance
+l=2          //attenuation due to atomospheric factors in dB
+e=0.8        // satellite antenna's aperture efficiency
+a=0.5        // satellite antenna's aperture area
+T=190       // Satellite receiver's effective noise temperature 
+bw=20 *10^6 //Satellite receiver's bandwidth
+cn=25       // received carrier-to-noise ratioin dB
+c=3*10^8    //speed of light
+
+k=1.38*10^-23
+lamda=c/f
+G=e*4*%pi*a/lamda^2
+G=ceil(G*100)/100
+Gd=10*log10(G)
+p=10*log10(k*T*bw)
+pl=20*log10(4*%pi*r*10^3/lamda)
+rp=eirp-l-pl+Gd
+rp=floor(rp*100)/100
+rc=floor((rp-p)*100)/100
+lm=rc-cn
+printf("Satellite Antenna gain, G = %.2f = %.2f dB \n Receivers Noise Power = %.1f dB\n free-space path loss = %.2f dB \n received power at satellite = %.2f dB \n receiver carrier = %f is stronger than noise.\n It is %.2f dB more than the required threshold value.\n Hence,  link margin = %.2f dB",G,Gd,p,pl,rp,rc,lm,lm)
diff --git a/2282/CH7/EX7.2/ex7_2.sce b/2282/CH7/EX7.2/ex7_2.sce
new file mode 100755
index 000000000..497ebbb49
--- /dev/null
+++ b/2282/CH7/EX7.2/ex7_2.sce
@@ -0,0 +1,18 @@
+// Example 7.2, page no-262
+clear
+clc
+
+c=3*10^8         //speed of light 
+R=10000          //path length
+f=4              // operating frequencyin GHz
+EIRP=50          //in dB
+gr=20            //antenna gain in dB
+rp=-120          // received power in dB
+//(a)
+lamda=c/(f*10^9)
+pl=20*log10(4*%pi*R/lamda)
+
+//(b)
+Lp=EIRP+gr-rp
+printf("(a)\n Operating wavelength = %.3f m\n Path loss(in dB) = %.2f dB",lamda,pl)
+printf("\n\n (b)\n Path loss = %.0fdB",Lp)
diff --git a/2282/CH7/EX7.3/ex7_3.sce b/2282/CH7/EX7.3/ex7_3.sce
new file mode 100755
index 000000000..a860230cf
--- /dev/null
+++ b/2282/CH7/EX7.3/ex7_3.sce
@@ -0,0 +1,14 @@
+// Example 7.3, page no-262
+clear
+clc
+
+p=75        // rotation of plane of polarization
+
+//Polarization rotation is inversaly propotional to square of the operating frequency
+f= 5        //frequency increased by factor 
+x=f^2       //rotation angle will decrease by aa factor of 25
+p_ex=p/x
+Apr=-20*log10(cosd(p))
+Apr2=-20*log10(cosd(p_ex))
+printf("For polarization  mismatch angle = 75°\n Attenuation = %.2f dB",Apr)
+printf("\n\n For polarization  mismatch angle = 3° \n Attenuation = %.3f dB",Apr2)
diff --git a/2282/CH7/EX7.4/ex7_4.sce b/2282/CH7/EX7.4/ex7_4.sce
new file mode 100755
index 000000000..7130020d6
--- /dev/null
+++ b/2282/CH7/EX7.4/ex7_4.sce
@@ -0,0 +1,17 @@
+// Example 7.4, page no-270
+clear
+clc
+
+g1=30         //gain of RF stage in dB
+t1=20         //Noise temperature in K
+g2=10         //down converter gain in dB
+t2=360        //noise temperature in K
+g3=15         //gain of IF stage in dB
+t3=1000       //noise temperature in K
+t=290         //reference temperature in K
+
+G1=1000       //30 dB equivalent gain
+Te=t1+(t2/G1)+t3/(G1*g2)
+F=1+Te/t
+printf("Effective noise temperature, Te = %.2fK",Te)
+printf("\n\n System Noise Figure, F = %.2f",F)
diff --git a/2282/CH7/EX7.5/ex7_5.sce b/2282/CH7/EX7.5/ex7_5.sce
new file mode 100755
index 000000000..513c6bd11
--- /dev/null
+++ b/2282/CH7/EX7.5/ex7_5.sce
@@ -0,0 +1,21 @@
+// Example 7.5, page no-271
+clear
+clc
+
+g1=30         //gain of RF stage in dB
+t1=20         //Noise temperature in K
+g2=10         //down converter gain in dB
+t2=360        //noise temperature in K
+g3=15         //gain of IF stage in dB
+t3=1000       //noise temperature in K
+t=290         //reference temperature in K
+
+G1=1000       //30 dB equivalent gain
+//Te=t1+(t2/G1)+t3/(G1*g2)
+F1=1+t1/t
+F2=1+t2/t
+F3=1+t3/t
+
+F=F1+((F2-1)/G1)+(F3-1)/(G1*g2)
+printf("Noise Figure specificatios of the three stages are as follow,\n\n F1 = %.3f\n F2 = %.2f\n F3 = %.2f",F1,F2,F3)
+printf("\n\n The overall noise figure is, F = %.2f",F)
diff --git a/2282/CH7/EX7.6/ex7_6.sce b/2282/CH7/EX7.6/ex7_6.sce
new file mode 100755
index 000000000..e1a6c8ce2
--- /dev/null
+++ b/2282/CH7/EX7.6/ex7_6.sce
@@ -0,0 +1,17 @@
+// Example 7.6, page no-272
+clear
+clc
+
+L=1.778           //Loss factor of the feeder 2.5dB equivalent
+ts=30             //Noise temperature of sattelite receiver in K
+t=50              //Noise temperature in K
+ti=290            // reference temperature in K
+x=t/L
+y=ti*(L-1)/L
+Te=x+y+ts
+F1=1+(ts/ti)
+F2=1+(Te/ti)
+printf("contribution of antenna noise temperature when\n referred to the input of the receiver is %.1f K",x)
+printf("\n\n Contribution of feeder noise when referred to the\n input of the receiver is %.1f",y)
+printf("\n\n1. Noise figure in first case = %.3f = %.3f dB",F1,10*log10(F1))//answer in book is different 0.426dB
+printf("\n\n2. Noise figure in second case = %.3f = %.2f dB",F2,10*log10(F2))
diff --git a/2282/CH7/EX7.7/ex7_7.sce b/2282/CH7/EX7.7/ex7_7.sce
new file mode 100755
index 000000000..1d264bddb
--- /dev/null
+++ b/2282/CH7/EX7.7/ex7_7.sce
@@ -0,0 +1,11 @@
+// Example 7.7, page no-272
+clear
+clc
+
+Ta=  40        //Antenna Noise temperature
+Ti=290         //Reference temperature in K
+T=50          // Effecitve input noise temperatuire
+Tf=Ti
+L=(Ta-Tf)/(T-Tf)
+L=ceil(L*10^4)/10^4
+printf("Loss factor = %.4f = %.3f dB",L,10*log10(L))
diff --git a/2282/CH7/EX7.8/ex7_8.sce b/2282/CH7/EX7.8/ex7_8.sce
new file mode 100755
index 000000000..ab153a920
--- /dev/null
+++ b/2282/CH7/EX7.8/ex7_8.sce
@@ -0,0 +1,17 @@
+// Example 7.8, page no-273
+clear
+clc
+
+Ta=50          //Antenna Noise temperature
+Tf=300         //Thermodynamic temperature of the feeder
+Te=50          // Effecitve input noise temperatuire
+
+//(a)
+Lf=1
+T=(Ta/Lf)+(Tf*(Lf-1)/Lf)+Te
+printf("(a)\n System noise temperature = %.0fK",T)
+
+//(b)
+Lf=1.413
+T=(Ta/Lf)+(Tf*(Lf-1)/Lf)+Te
+printf("\n\n (b)\n System noise temperature = %.3fK",ceil(T*10^3)/10^3)
diff --git a/2282/CH7/EX7.9/ex7_9.sce b/2282/CH7/EX7.9/ex7_9.sce
new file mode 100755
index 000000000..ab53e34ba
--- /dev/null
+++ b/2282/CH7/EX7.9/ex7_9.sce
@@ -0,0 +1,12 @@
+// Example 7.9, page no-278
+clear
+clc
+e=35     //EIRP radiated by satellite in dBW
+g=50     //receiver antenna gain in dB
+e1=30    //EIRP of interfacing satellite in dBW
+theeta=4 //line-of-sight between earth station and interfacing sattelite
+
+x=(e-e1)+(g-32+25*log10(theeta))
+printf("carrier-to-interface (C/I) = %.2f dB",x)
+
+