diff options
Diffstat (limited to '3739/CH5')
| -rw-r--r-- | 3739/CH5/EX5.10/EX5_10.sce | 23 | ||||
| -rw-r--r-- | 3739/CH5/EX5.11/EX5_11.sce | 22 | ||||
| -rw-r--r-- | 3739/CH5/EX5.2/EX5_2.sce | 26 | ||||
| -rw-r--r-- | 3739/CH5/EX5.3/EX5_3.sce | 32 | ||||
| -rw-r--r-- | 3739/CH5/EX5.4/EX5_4.sce | 27 | ||||
| -rw-r--r-- | 3739/CH5/EX5.5/EX5_5.sce | 14 | ||||
| -rw-r--r-- | 3739/CH5/EX5.7/EX5_7.sce | 25 | ||||
| -rw-r--r-- | 3739/CH5/EX5.8/EX5_8.sce | 15 | ||||
| -rw-r--r-- | 3739/CH5/EX5.9/EX5_9.sce | 15 |
9 files changed, 199 insertions, 0 deletions
diff --git a/3739/CH5/EX5.10/EX5_10.sce b/3739/CH5/EX5.10/EX5_10.sce new file mode 100644 index 000000000..3da1ac774 --- /dev/null +++ b/3739/CH5/EX5.10/EX5_10.sce @@ -0,0 +1,23 @@ +//Chapter 5, Example 5.10, page 205
+clc
+//Initialisation
+d=3000 //distance in Km
+re=6370 //radius of earth in Km
+phi=72 //angle in degree
+N=5*10**11 //electron density
+pi=3.14
+
+//Calculation
+teta=3000*(2*6370)**-1 //in radian
+teta1=teta*180/pi //degree
+dt=90-teta1-phi //Elevation angle
+a=re/(sin(phi*pi/180))
+b=sin((teta1+phi)*pi/180)
+h=(a*b)-re //Height in Km
+fc=9*sqrt(N) //frequency in MHz
+MUF=fc*(cos(phi*pi/180))**-1 //Maximum working frequency
+
+//Results
+printf("(1) Elevation angle = %.1f degree",dt)
+printf("\n(2) Height h = %.1f km",h)
+printf("\n(3) MUF = %.1f MHz",(MUF*10**-6))
diff --git a/3739/CH5/EX5.11/EX5_11.sce b/3739/CH5/EX5.11/EX5_11.sce new file mode 100644 index 000000000..09a758155 --- /dev/null +++ b/3739/CH5/EX5.11/EX5_11.sce @@ -0,0 +1,22 @@ +//Chapter 5, Example 5.11, page 208
+clc
+
+//Initialisation
+d=2500 //distance in Km
+re=6370 //radius of earth in Km
+dt=6 //elevation angle in degree
+f1=15 //frequency in MHz
+los1=42 //loss
+pi=3.14
+
+//Calculation
+teta=d*(2*re)**-1 //in radian
+teta1=teta*180*pi**-1 //in degree
+phi=90-dt-teta1
+l=(2*re*sin(teta))/sin(phi*pi/180)
+fsl=32.4+(20*log10(f1))+(20*log10(l)) //Free space loss
+pr=57+6-fsl-los1 //receving power in dB
+pr1=10**(pr/10) //receving power in Watt
+
+//Results
+printf("Power = %.2f pW",(pr1*10**12))
diff --git a/3739/CH5/EX5.2/EX5_2.sce b/3739/CH5/EX5.2/EX5_2.sce new file mode 100644 index 000000000..17d97df36 --- /dev/null +++ b/3739/CH5/EX5.2/EX5_2.sce @@ -0,0 +1,26 @@ +//Chapter 5, Example 5.2, page 186
+clc
+
+//Initialisation
+f=5 //frequency in Hz
+er=15 //ground characteristics
+s=0.01 //for vertically polarized waves
+c=3*10**8 //speed of light
+e0=8.85*10**-12 //permitivity of free space
+d=80000 //distance in m
+pi=3.14
+
+//Calculation
+a=5**0.333
+df=50/a //distance in metre
+h=c*(f*10**6)**-1 //wavelength
+b=s/(2*pi*f*e0*10**6)
+b1=sqrt(er**2+b**2)
+p=(pi*d)/(h*b1)
+
+//from fig 5.8
+As = 0.05 //attenuation factor
+
+//Results
+printf("p = %d",p)
+printf("\n|As| = %.2f",As)
diff --git a/3739/CH5/EX5.3/EX5_3.sce b/3739/CH5/EX5.3/EX5_3.sce new file mode 100644 index 000000000..66da61631 --- /dev/null +++ b/3739/CH5/EX5.3/EX5_3.sce @@ -0,0 +1,32 @@ +
+//Chapter 5, Example 5.3, page 191
+clc
+//Initialisation
+c=3*10**8 //speed of light
+f=10*10**6 //frequency in Hz
+e0=8.85*10**-12 //permitivity of free space
+er=10 //ground characteristics
+s=0.005
+d=30000
+pt=200 //transmitter power in watt
+gt=1 //gain of transmitter antenna
+gr=1 //gain of receiver antenna
+pi=3.14 //pi
+
+//Calculation
+h=c*f**-1 //wavelength
+e=er*e0 //epsilon
+b=s/(2*pi*f*e)
+b1=sqrt(er**2+b**2)
+p=(pi*d)/(h*b1) //The answer provided in the textbook is wrong
+i=((er*e0*2*3.14*f)/s)
+b2=atan(i)
+b3=b2*180/pi
+a1=((2+0.3*p)/(2+p+0.6*p**2))
+a2=sqrt(p/2)*(5*10**-82)*sin(-b3)
+As=a1-a2 //attenuation function
+pr=pt*gt*gr*h**2/(4*pi*d)**2
+pr1=pr*(2*As)**2 //The answer provided in the textbook is wrong
+
+//Results
+printf("Received signal power Pr = %.2f pW",(pr1*10**12)) //The answer provided in the textbook is wrong
diff --git a/3739/CH5/EX5.4/EX5_4.sce b/3739/CH5/EX5.4/EX5_4.sce new file mode 100644 index 000000000..81b32519b --- /dev/null +++ b/3739/CH5/EX5.4/EX5_4.sce @@ -0,0 +1,27 @@ +//Chapter 5, Example 5.4, page 192
+clc
+//Initialisation
+f=0.5 //frequency in MHz
+Pa=100 //transmitter power
+Po=1000
+e120=68 //from figure 5.10
+e220=85 //from figure 5.9
+e230=80
+e330=60 //from figure 5.10
+e380=48
+e350=50 //from figure 5.10
+e250=75 //from figure 5.9
+e260=73
+e160=60 //from figure 5.10
+e180=48
+
+//Calculation
+ETR=e120-e220+e230-e330+e380
+ERT=e350-e250+e260-e160+e180 //The answer provided in the textbook is wrong
+ER=(ETR+ERT)/2 //The answer provided in the textbook is wrong
+Ea=ER+(10*log10(Pa*Po**-1))
+lb=137.2+(20*log10(f))-ER
+
+//Results
+printf("(1) Electric field = %.1f dB",Ea) //The answer provided in the textbook is wrong
+printf("\n(2) Basic loss path = %.1f dB",lb) //The answer provided in the textbook is wrong
diff --git a/3739/CH5/EX5.5/EX5_5.sce b/3739/CH5/EX5.5/EX5_5.sce new file mode 100644 index 000000000..30baa4c53 --- /dev/null +++ b/3739/CH5/EX5.5/EX5_5.sce @@ -0,0 +1,14 @@ +//Chapter 5, Example 5.5, page 196
+clc
+//Initialisation
+f1=2.5 //frequency in MHz
+f2=6.3 //frequency in MHz
+K=1.1 // K factor
+
+//Calculation
+fse=1.05*f1*2 //frequency in MHz
+fsf=K*f2*2 //frequency in MHz
+
+//Results
+printf("Frequency for E layer = %.2f MHz",fse)
+printf("\nFrequency for F layer = %.2f MHz",fsf)
diff --git a/3739/CH5/EX5.7/EX5_7.sce b/3739/CH5/EX5.7/EX5_7.sce new file mode 100644 index 000000000..41da71ef3 --- /dev/null +++ b/3739/CH5/EX5.7/EX5_7.sce @@ -0,0 +1,25 @@ +//Chapter 5, Example 5.7, page 201
+clc
+
+//Initialisation
+f=10 //frequency in MHz
+delta=14.5 //in degree
+d=1750 //distance in Km
+re=6370 //radius of earth in Km
+pt=100 //transmitter power in watt
+lm=30 //in dB
+P11=3775 //in Km
+
+//Calculation
+a=(delta+(d/(2*re)))*(180*3.14**-1)
+j=cos(a)
+a1=(d*(2*re)**-1)*(180*3.14**-1)
+j1=sin(a1)
+P=4*re*(j1*j**-1) //path length
+pt1=10*log10(pt*10**-3)
+FSL=32.4+20*log10(f)+20*log10(3775) //free space loss
+Et=136.6+pt1+20*log10(f)-FSL-lm //median value
+
+//Results
+printf("(1) Path length = %d km",P11)
+printf("\n(2) Median value = %.2f dB",Et)
diff --git a/3739/CH5/EX5.8/EX5_8.sce b/3739/CH5/EX5.8/EX5_8.sce new file mode 100644 index 000000000..17a322e0d --- /dev/null +++ b/3739/CH5/EX5.8/EX5_8.sce @@ -0,0 +1,15 @@ +//Chapter 5, Example 5.8, page 202
+clc
+
+//Initialisation
+et=20 //in dB
+gr=2 //antenna gain in dB
+f=15 //frequency in MHz
+
+
+//Calculation
+pr=et+gr-(20*log10(f))-107.2 //received signal power in dB
+pr1=10**(pr/10) //received signal power in W
+
+//Results
+printf("Power Recieved signal = %.2f pW",(pr1*10**12))
diff --git a/3739/CH5/EX5.9/EX5_9.sce b/3739/CH5/EX5.9/EX5_9.sce new file mode 100644 index 000000000..1268d6c0f --- /dev/null +++ b/3739/CH5/EX5.9/EX5_9.sce @@ -0,0 +1,15 @@ +//Chapter 5, Example 5.9, page 202
+clc
+//Initialisation
+pr=-108.7 //received signal power in dB
+fa=50 //noise tempreture
+b=2700 //frequency in Hz
+N=5 //noise figure in dB
+
+//Calculation
+snr=pr-fa-(10*log10(b))+204 //signal to noise ratio
+snr1=snr-N
+
+//Results
+printf("Received signal to noise ratio = %.1f dB",snr)
+printf("\nOutput signal to noise ratio = %.1f dB",snr1)
|