diff options
Diffstat (limited to '3739/CH7')
| -rw-r--r-- | 3739/CH7/EX7.1/EX7_1.sce | 17 | ||||
| -rw-r--r-- | 3739/CH7/EX7.10/EX7_10.sce | 18 | ||||
| -rw-r--r-- | 3739/CH7/EX7.11/EX7_11.sce | 20 | ||||
| -rw-r--r-- | 3739/CH7/EX7.12/EX7_12.sce | 18 | ||||
| -rw-r--r-- | 3739/CH7/EX7.13/EX7_13.sce | 12 | ||||
| -rw-r--r-- | 3739/CH7/EX7.14/EX7_14.sce | 32 | ||||
| -rw-r--r-- | 3739/CH7/EX7.15/EX7_15.sce | 17 | ||||
| -rw-r--r-- | 3739/CH7/EX7.2/EX7_2.sce | 22 | ||||
| -rw-r--r-- | 3739/CH7/EX7.3/EX7_3.sce | 29 | ||||
| -rw-r--r-- | 3739/CH7/EX7.4/EX7_4.sce | 15 | ||||
| -rw-r--r-- | 3739/CH7/EX7.5/EX7_5.sce | 22 | ||||
| -rw-r--r-- | 3739/CH7/EX7.6/EX7_6.sce | 31 | ||||
| -rw-r--r-- | 3739/CH7/EX7.7/EX7_7.sce | 26 | ||||
| -rw-r--r-- | 3739/CH7/EX7.8/EX7_8.sce | 18 | ||||
| -rw-r--r-- | 3739/CH7/EX7.9/EX7_9.sce | 16 |
15 files changed, 313 insertions, 0 deletions
diff --git a/3739/CH7/EX7.1/EX7_1.sce b/3739/CH7/EX7.1/EX7_1.sce new file mode 100644 index 000000000..f2116e4e4 --- /dev/null +++ b/3739/CH7/EX7.1/EX7_1.sce @@ -0,0 +1,17 @@ +//Chapter 7, Example 7.1, page 293
+clc
+
+//Initialisation
+h=200 //height in m
+d=30*10**3 //distance in km
+R=40*10**-6 //height in km
+pi=3.14
+
+//Calculation
+phi=atan(h*d**-1) //in radian
+phi1=phi*180/pi //in degree
+n=cos(phi1)
+r=round(n)/R //radius
+
+//Results
+printf("Radius = %.1f km",r)
diff --git a/3739/CH7/EX7.10/EX7_10.sce b/3739/CH7/EX7.10/EX7_10.sce new file mode 100644 index 000000000..daeb25af3 --- /dev/null +++ b/3739/CH7/EX7.10/EX7_10.sce @@ -0,0 +1,18 @@ +//Chapter 7, Example 7.10, page 331
+clc
+//Initialisation
+Aa=15 //Transmitter antenna discrimination
+Ab=25 //Receiver antenna discrimination
+AD=110 //path in km
+s=35 //fading in dB
+
+//Calculation
+CD=30 //path in km
+Ad=20*log10(AD*CD**-1) //Distance discrimination
+
+si=Aa+Ab+Ad //in dB
+si2=si-s //in dB
+
+//Results
+printf("(1) S/I = %.1f dB",si)
+printf("\n(2) S/I = %.1f dB",si2)
diff --git a/3739/CH7/EX7.11/EX7_11.sce b/3739/CH7/EX7.11/EX7_11.sce new file mode 100644 index 000000000..03939357b --- /dev/null +++ b/3739/CH7/EX7.11/EX7_11.sce @@ -0,0 +1,20 @@ +//Chapter 7, Example 7.11, page 333
+clc
+
+//Initialisation
+kq=2.6*10**-6 //geoclimatic coefficient
+f=6 //frequency in GHz
+d=45 //distance in Km
+gc=0.098 //GC factor
+ab=0.25 //geoclimatic factor
+
+//Calculation
+po=kq*f*gc*d**3 //In country
+po1=0.3*ab*(f*4**-1)*(d*50**-1)**3 //In mountainous area
+
+
+
+//Results
+printf("Fading occurrence probability")
+printf("\n(1) In country = %.2f",po)
+printf("\n(2) In mountainous area = %.3f",po1)
diff --git a/3739/CH7/EX7.12/EX7_12.sce b/3739/CH7/EX7.12/EX7_12.sce new file mode 100644 index 000000000..388cfe8ea --- /dev/null +++ b/3739/CH7/EX7.12/EX7_12.sce @@ -0,0 +1,18 @@ +//Chapter 7, Example 7.12, page 340
+clc
+
+//Initialisation
+dn=70 //dN = 70
+d1=1000 //height from sea level in m
+d2=1400 //height from sea level in m
+d=45 //radio link distance in km
+
+//Calculation
+K=10**(-4.2-0.0029*-dn) //Climate factor
+ep=(d2-d1)/d //magnitude of the path inclination
+po=K*d**3*(1+ep)**(-1.2)*10**(0.033*6-1) //Fading occurrence probability
+
+
+//Results
+printf("(1) Climate factor K = %.4f = 10^-4",K)
+printf("\n(2) Fading occurrence probability Po = %.2f percent",po)
diff --git a/3739/CH7/EX7.13/EX7_13.sce b/3739/CH7/EX7.13/EX7_13.sce new file mode 100644 index 000000000..6fa7db334 --- /dev/null +++ b/3739/CH7/EX7.13/EX7_13.sce @@ -0,0 +1,12 @@ +//Chapter 7, Example 7.13, page 342
+clc
+//Initialisation
+fm=35 //fade margin
+po=0.092 //fading occurrence probability
+
+//Calculation
+pw=po*10**(-fm*10**-1) //deep fading occurrence
+
+
+//Results
+printf("Deep fading occurrence probability, Pw = %.1f x 10^-5",(pw*10**5))
diff --git a/3739/CH7/EX7.14/EX7_14.sce b/3739/CH7/EX7.14/EX7_14.sce new file mode 100644 index 000000000..953c4919f --- /dev/null +++ b/3739/CH7/EX7.14/EX7_14.sce @@ -0,0 +1,32 @@ +//Chapter 7, Example 7.14, page 343
+clc
+
+//Initialisation
+d=20 //distance in kM
+po=0.02 //fading occurrence probability at 20 Km
+d1=25 //distance in kM
+d2=40 //distance in kM
+fm1=30 //link in kM
+fm2=35 //link in kM
+fm3=40 //link in kM
+tr=30*24*60
+
+
+//Calculation
+po1=po*(d1*d**-1)**3 //fading occurrence probability at 25 Km
+po2=po*(d2/d)**3 //fading occurrence probability at 40 Km
+pw=po*10**(-fm1*10**-1) //fade margin at 30
+pw1=po1*10**(-fm2*10**-1) //fade margin at 35
+pw2=po2*10**(-fm3/10) //fade margin at 40
+u=pw+pw1+pw2 //total fade margin
+to=u*tr //network outage time
+
+//Results
+printf("(1) Fading occurrence probability at 20 = %.2f",po)
+printf("\n Fading occurrence probability at 25 = %.3f",po1)
+printf("\n Fading occurrence probability at 40 = %.2f",po2)
+printf("\n(2) Fade margin at 30 = %.1f x 10^-5",(pw*10**5))
+printf("\n Fade margin at 35 = %.2f x 10^-5",(pw1*10**5))
+printf("\n Fade margin at 40 = %.2f x 10^-5",(pw2*10**5))
+printf("\n Total fade margin = %.2f x 10**-5",(u*10**5))
+printf("\n(3) Network outage time , To = %.3f min per month",(to))
diff --git a/3739/CH7/EX7.15/EX7_15.sce b/3739/CH7/EX7.15/EX7_15.sce new file mode 100644 index 000000000..1ede37926 --- /dev/null +++ b/3739/CH7/EX7.15/EX7_15.sce @@ -0,0 +1,17 @@ +//Chapter 7, Example 7.14, page 344
+clc
+//Initialisation
+ur=0.001 //unavailability budget for hypothetical circuit
+d=50 //path-length in km
+A=0.25 //area conditions
+B=1 //area conditions
+f=8 //frequency in GHz
+
+
+//Calculation
+pw=ur*(d*(d*d)**-1) //deep fading occurrence probability
+po=6*10**-7*A*B*f*(d**3) //fading occurrence probability of desirable link
+FM=-log10(pw/po)*10 //fade margin
+
+//Results
+printf("Fade margin = %.1f dB",FM)
diff --git a/3739/CH7/EX7.2/EX7_2.sce b/3739/CH7/EX7.2/EX7_2.sce new file mode 100644 index 000000000..f05a3d5b8 --- /dev/null +++ b/3739/CH7/EX7.2/EX7_2.sce @@ -0,0 +1,22 @@ +//Chapter 7, Example 7.2, page 294
+clc
+
+//Initialisation
+h=500 //height in m
+a=0.000315
+b=0.0001361
+Re=6370000 //radius of earth in m
+
+
+//Calculation
+n=1+(a*exp(-b*h))
+n1=(n-1)*10**6 //Refraction index
+c=(a*b*exp(-b*h))
+R=1/c //Radius of path curvature in km
+d=1-(Re/R)
+K=1/d //K-factor
+
+//Results
+printf("(1) Refraction index = %d ",n1)
+printf("\n(2) Radius of path curvature = %d kM",(R/10**3))
+printf("\n(3) K-factor = %.3f",K)
diff --git a/3739/CH7/EX7.3/EX7_3.sce b/3739/CH7/EX7.3/EX7_3.sce new file mode 100644 index 000000000..d6f985fc6 --- /dev/null +++ b/3739/CH7/EX7.3/EX7_3.sce @@ -0,0 +1,29 @@ +//Chapter 7, Example 7.3, page 299
+clc
+//Initialisation
+k1=1.3 //K-factor
+k2=0.7 //K-factor
+H1=1200 //sea level in m
+H2=1400 //sea level in m
+re=6370*10**3 //radius of earth in m
+f=15*10**9 //frequency in Hz
+a1=0.6
+d1=15*10**3 //distance in m
+d2=20*10**3 //distance in m
+c=3*10**8 //speed of light
+d=30*10**3 //distance in m
+h2=25.24
+r2=11.55
+a2=0.3
+
+
+//Calculation
+h1=500*d1*d2/(k1*re)
+h=c*f**-1
+r1=sqrt((d1*d2*h)/d)
+H11=H1+h1+a1*r1 //in meter
+H22=H2+h2+a2*r2 //in meter
+
+//Results
+printf("(1) H1 = %d m",H11) //The answer provided in the textbook is wrong
+printf("\n(2) H2 = %d m",H22)
diff --git a/3739/CH7/EX7.4/EX7_4.sce b/3739/CH7/EX7.4/EX7_4.sce new file mode 100644 index 000000000..760bb21f3 --- /dev/null +++ b/3739/CH7/EX7.4/EX7_4.sce @@ -0,0 +1,15 @@ +//Chapter 7, Example 7.4, page 302
+clc
+
+//Initialisation
+hr=-1 //obstacle height and fresnel radius ratio
+
+//Calculation
+Ad=-20*hr+10 //Diffraction loss in dB
+Ad2=16 //from fig 7.8
+Ad3=43
+
+//Results
+printf("(1) Obstacle loss = %.1f dB",Ad)
+printf("\n(2) Knife edge obstacle = %.1f dB",Ad2)
+printf("\n(3) Rounded obstacle = %.1f dB",Ad3)
diff --git a/3739/CH7/EX7.5/EX7_5.sce b/3739/CH7/EX7.5/EX7_5.sce new file mode 100644 index 000000000..53911b5bb --- /dev/null +++ b/3739/CH7/EX7.5/EX7_5.sce @@ -0,0 +1,22 @@ +//Chapter 7, Example 7.5, page 306
+clc
+//Initialisation
+d1=10 //distance in km
+d2=25 //distance in km
+re=6370 //earth radius in km
+k=0.5 //climatic factor
+f=4*10**9 //frequency in Hz
+c=3*10**8 //speed of light
+d=35 //distance in km
+h3=400 //height in m
+
+//Calculation
+ho=(500*d1*d2)/(k*re) //Earth buldge in m
+h=c*f**-1 //wavelength in m
+r1=sqrt(d1*10**3*d2*10**3*h*(d*10**3)**-1) //fresnel radius
+amsl=h3+ho+13.9 //AMSL
+
+//Results
+printf("(1) Earth buldge = %.2f m",ho)
+printf("\n(2) Fresnel radius = %.1f m",r1)
+printf("\n(3) AMSL = %.1f m",amsl)
diff --git a/3739/CH7/EX7.6/EX7_6.sce b/3739/CH7/EX7.6/EX7_6.sce new file mode 100644 index 000000000..ad3f4960c --- /dev/null +++ b/3739/CH7/EX7.6/EX7_6.sce @@ -0,0 +1,31 @@ +//Chapter 7, Example 7.6, page 309
+clc
+//Initialisation
+pt=500 //Transmitter power in mW
+gt=42 //transmitter antenna gain in dB
+gr=44 //receiver antenna gain in dB
+lbt=2.6 //transmitter branching loss in dB
+lbr=3 //receiver branching loss in dB
+flt=45 //transmitter feeder length
+flr=35 //receiver feeder length
+fls=6.5 //feeder loss
+prx=-72 //Receiver sensitivity
+d=30 //path distance in km
+f=8.4 //frequency in ghz
+
+//Calculation
+ptx=10*log10(pt) //transmitter threshold level
+lft1=flt*fls/100
+lfr=flr*fls/100
+eirp=ptx+gt-lbt-lft1 //Transmitter effective power
+sg=ptx-prx
+fsl=92.4+20*log10(f)+20*log10(d)
+rsl=ptx+gt+gr-fsl-lft1-lfr-lbt-lbr
+fm=rsl-prx
+
+//Results
+printf("EIRP = %.2f dBm",eirp)
+printf("\nSG = %.2f dBm",sg)
+printf("\nFSL = %.2f dB",fsl)
+printf("\nRSL = %.2f dBm",rsl)
+printf("\nFM = %.2f dB",fm)
diff --git a/3739/CH7/EX7.7/EX7_7.sce b/3739/CH7/EX7.7/EX7_7.sce new file mode 100644 index 000000000..6ddae1ef0 --- /dev/null +++ b/3739/CH7/EX7.7/EX7_7.sce @@ -0,0 +1,26 @@ +//Chapter 7, Example 7.7, page 315
+clc
+
+//Initialisation
+f=15 //frequency in GHz
+f1=18 //frequency in GHz
+R=50 //rain intensity
+ah=1.154
+kh=0.0367
+d=20 //distance in kM
+
+//Calculation
+yr=kh*R**ah
+do=35*exp(-0.015*R) //distance in kM
+de=d/(1+(d/do)) //distance in kM
+Ao=yr*de //Rain Loss in dB
+phi=(f**2)/(1+10**-4*f**2)
+phi1=(f1**2)/(1+10**-4*f1**2)
+H=1.12*10**-3*((phi1/phi)**0.5)*(phi*Ao)**0.55
+Ah=Ao*(phi1/phi)**(1-H)
+Av=(300*Ah)/(335+Ah) //Rain Loss in dB
+
+
+//Results
+printf("(1) Rain Loss, A = %.2f dB",Ao)
+printf("\n(2) rain loss for vertical polarization, Av = %.2f dB",Av)
diff --git a/3739/CH7/EX7.8/EX7_8.sce b/3739/CH7/EX7.8/EX7_8.sce new file mode 100644 index 000000000..571dc5a00 --- /dev/null +++ b/3739/CH7/EX7.8/EX7_8.sce @@ -0,0 +1,18 @@ +//Chapter 7, Example 7.8, page 322
+clc
+
+//Initialisation
+A=99.8 //in percent
+l=1250 //radio link in km
+C=155*10**6 //in bps
+T=24*60*60 //Total measurement time
+
+//Calculation
+U=100-A
+u=U/100
+ue=u*l/2500
+uep=ue*0.3 //propagation unavailability value
+M=C*uep*T*10**-3 //number of errored bits due to propagation
+
+//Results
+printf("Maximum delay bit error per day = %d bits per day",M)
diff --git a/3739/CH7/EX7.9/EX7_9.sce b/3739/CH7/EX7.9/EX7_9.sce new file mode 100644 index 000000000..71b4393cb --- /dev/null +++ b/3739/CH7/EX7.9/EX7_9.sce @@ -0,0 +1,16 @@ +//Chapter 7, Example 7.9, page 324
+clc
+
+//Initialisation
+h=24 //hours
+m=60 //minutes
+s=60 //seconds
+
+
+//Calculation
+dm=0.004*h*m*(1250*2500**-1) //Maximum degraded minutes
+ses=0.00054*h*m*s*(1250*2500**-1) //Severely errored seconds
+
+//Results
+printf("(1) Maximum degraded minutes per day = %.2f min",dm)
+printf("\n(2) Severely errored seconds per day = %.2f s",ses)
|