diff options
Diffstat (limited to '3739/CH2')
| -rw-r--r-- | 3739/CH2/EX2.1/EX2_1.sce | 19 | ||||
| -rw-r--r-- | 3739/CH2/EX2.10/EX2_10.sce | 19 | ||||
| -rw-r--r-- | 3739/CH2/EX2.11/EX2_11.sce | 19 | ||||
| -rw-r--r-- | 3739/CH2/EX2.2/EX2_2.sce | 25 | ||||
| -rw-r--r-- | 3739/CH2/EX2.3/EX2_3.sce | 25 | ||||
| -rw-r--r-- | 3739/CH2/EX2.6/EX2_6.sce | 19 | ||||
| -rw-r--r-- | 3739/CH2/EX2.7/EX2_7.sce | 17 | ||||
| -rw-r--r-- | 3739/CH2/EX2.8/EX2_8.sce | 21 | ||||
| -rw-r--r-- | 3739/CH2/EX2.9/EX2_9.sce | 19 |
9 files changed, 183 insertions, 0 deletions
diff --git a/3739/CH2/EX2.1/EX2_1.sce b/3739/CH2/EX2.1/EX2_1.sce new file mode 100644 index 000000000..a42fb2950 --- /dev/null +++ b/3739/CH2/EX2.1/EX2_1.sce @@ -0,0 +1,19 @@ +//Chapter 2, Example 2.1, page 25
+clc
+//Initialisation
+sig=0.005 //sigma
+ur=1 //relative permeability
+er=12 //relative permittivity
+eo=8.85*10**-12 //permittivity of a free space
+f1=10*10**3 //frequency of radio wave 1
+f2=10*10**9 //frequency of radio wave 2
+pi=3.14
+
+//Calculation
+c1=sig/(2*pi*f1*eo*er) //conductivity at f1
+c2=sig/(2*pi*f2*eo*er) //conductivity at f2
+
+
+//Result
+printf("conductivity at f1 = %.1f >> 1\n",c1)
+printf("conductivity at f2 = %.1f x10^-4 >> 1",(c2*10**4))
diff --git a/3739/CH2/EX2.10/EX2_10.sce b/3739/CH2/EX2.10/EX2_10.sce new file mode 100644 index 000000000..7a5116df2 --- /dev/null +++ b/3739/CH2/EX2.10/EX2_10.sce @@ -0,0 +1,19 @@ +//Chapter 2, Example 2.10, page 50
+clc
+//Initialisation
+ri1=1.00025 //refractive index
+ri2=1.00023 //refractive index
+h1=1 //height in Km
+h2=1.5 //height in Km
+n=1.00026 //variation
+
+
+//Calculation
+deln=ri1-ri2
+delh=h2-h1
+d=deln/delh
+R=n/d //radius of curvature
+
+
+//Result
+printf("Radiowave curvature radius, R = %.d Km",R)
diff --git a/3739/CH2/EX2.11/EX2_11.sce b/3739/CH2/EX2.11/EX2_11.sce new file mode 100644 index 000000000..a729641db --- /dev/null +++ b/3739/CH2/EX2.11/EX2_11.sce @@ -0,0 +1,19 @@ +//Chapter 2, Example 2.11, page 51
+clc
+//Initialisation
+R=25000 //path curvature radius in Km
+Re=6370 //Earth radius in Km
+
+
+//Calculation
+K=R*(R-Re)**-1 //K factor
+Re1=K*Re //equivalent radii of the Earth
+R1=(1*Re1**-1)-(1*Re**-1)+(1*R**-1)
+d=1*R1**-1 //equivalent radii of the path
+
+
+//Result
+printf("K = %.3f",K)
+printf("\nRe1 = %d Km",Re1)
+printf("\nR1 = %.1f Km\n",d)
+printf("Therefore, R1 ~ infinity")
diff --git a/3739/CH2/EX2.2/EX2_2.sce b/3739/CH2/EX2.2/EX2_2.sce new file mode 100644 index 000000000..f79e8ca44 --- /dev/null +++ b/3739/CH2/EX2.2/EX2_2.sce @@ -0,0 +1,25 @@ +//Chapter 2, Example 2.2, page 26
+clc
+//Initialisation
+c1=3*10**8 //speed of light in m/s
+f1=100*10**6 //frequency in hertz
+f2=1*10**9 //requency in hertz
+
+//Calculation
+v1=c1/(9) //velocity in m/s
+v2=c1 //velocity in m/s
+h1=v1*f1**-1 //wavelength at f1, v1
+h2=v2*f1**-1 //wavelength at f1, v2
+h3=v1*f2**-1 //wavelength at f2, v1
+h4=v2*f2**-1 //wavelength at f2, v2
+
+//Result
+printf("Velocity,")
+printf("\nV1 = %.2f x10^7 m/s",(v1*10**-7))
+printf("\nV2 = %.2f x10^8 m/s",(v2*10**-8))
+printf("\n\nfor f1 = 100 MHz,")
+printf("\nlambda1 = %f m",h1)
+printf("\nlambda2 = %d m",h2)
+printf("\n\nfor f2 = 1 GHz,")
+printf("\nlambda1 = %.2f cm",(h3*10))
+printf("\nlambda2 = %d cm",(h4*10**2))
diff --git a/3739/CH2/EX2.3/EX2_3.sce b/3739/CH2/EX2.3/EX2_3.sce new file mode 100644 index 000000000..db77bc868 --- /dev/null +++ b/3739/CH2/EX2.3/EX2_3.sce @@ -0,0 +1,25 @@ +//Chapter 2, Example 2_3, page 37 +clc + +//Initialisation +s=0.08 //medium conductivit +w=10**7 //angular velocity +e=8.85*10**-7 //permitivity if free space +u=14 //medium permeability +uo=4*3.14*10**-7 //permeability of free space +pi=3.14 + +//Calculation +f=w*(2*pi)**-1 //frequency +a1=sqrt(f*pi*s*uo) //attenuation +b=a1 //phase +d=complex(a1,b) +y=d //propagation constants +z=log10(0.5)/(-log10(exp(1))*2*a1) //Depth of the land + +//Result +printf("(1) Attenuation = %.1f Np/m",a1) +printf("\n Phase = %.1f Rad/m",b) +printf("\n Propagation constant = %.1f",real(y)) +printf("\n + %.1f j rad/m",imag(y)) +printf("\n(2) Depth of land = %.2f m",z) diff --git a/3739/CH2/EX2.6/EX2_6.sce b/3739/CH2/EX2.6/EX2_6.sce new file mode 100644 index 000000000..cde94a5a2 --- /dev/null +++ b/3739/CH2/EX2.6/EX2_6.sce @@ -0,0 +1,19 @@ +//Chapter 2, Example 2.6, page 38
+clc
+
+//Initialisation
+W=100*10**-12 //power in watt
+pi=3.14 //pi
+no=120*pi
+
+//Calculation
+Em=sqrt(2*no*W) //effective value of E
+Ee=Em/sqrt(2) //effective value of E
+Hm=sqrt((2*10**-10)/(no)) //effective value of H
+He=Hm/sqrt(2) //effective value of H
+
+//Result
+printf("Em = %.1f uV/m",(Em*10**6))
+printf("\nEe = %.1f uV/m",(Ee*10**6))
+printf("\nHm = %.3f uA/m",(Hm*10**6))
+printf("\nHe = %.2f uA/m",(He*10**6))
diff --git a/3739/CH2/EX2.7/EX2_7.sce b/3739/CH2/EX2.7/EX2_7.sce new file mode 100644 index 000000000..d4a6d5597 --- /dev/null +++ b/3739/CH2/EX2.7/EX2_7.sce @@ -0,0 +1,17 @@ +//Chapter 2, Example 2.7, page 39
+clc
+//Initialisation
+f=7.5 //frequency in GHz
+d=40 //link distance in Km
+Pt=30 //transmitter power in dBm
+La=15 //additional loss
+Pth=-78 //RX threshold
+
+//Calculation
+FSL=92.4+(20*log10(f*d)) //FSL
+RSL=Pt-(0.4*FSL)-La //RSL
+FM=RSL-Pth //fade margin
+
+//Result
+printf("(1) Received signal level (RSL) = %.1f dBm",RSL)
+printf("\n(2) Fade margin = %.1f dB",FM)
diff --git a/3739/CH2/EX2.8/EX2_8.sce b/3739/CH2/EX2.8/EX2_8.sce new file mode 100644 index 000000000..fa34aec73 --- /dev/null +++ b/3739/CH2/EX2.8/EX2_8.sce @@ -0,0 +1,21 @@ +//Chapter 2, Example 2.8, page 45
+clc
+//Initialisation
+Pt=10 //transmitter power in watt
+Gt=5 //antenna power in dBm
+Lt=2 //feeder loss in dB
+d=8000 //distance in meter
+pi=3.14 //pi
+no=120*pi
+
+//Calculation
+EIRP=Pt+Gt-Lt
+x=EIRP*10**-1
+EIRP2=10**x //Equivalent isotropic radiated power
+Ed=sqrt(30*EIRP2)/d //Electric Field Intensity
+W=(Ed**2)/(2*no) //power in watt
+
+//Result
+printf("EIRP = %.1f W",EIRP2)
+printf("\n|Ed| = %.2f mV/m",(Ed*10**3))
+printf("\n W = %.1f nW/m^2",(W*10**9))
diff --git a/3739/CH2/EX2.9/EX2_9.sce b/3739/CH2/EX2.9/EX2_9.sce new file mode 100644 index 000000000..e7ff25591 --- /dev/null +++ b/3739/CH2/EX2.9/EX2_9.sce @@ -0,0 +1,19 @@ +//Chapter 2, Example 2.9, page 47
+clc
+//Initialisation
+FSL=128 //FSL in dB
+Lb=135 //Sum of FSL and medium loss Lm
+Lc=5
+Gt=30 //transmitter gain in dB
+Gr=30 //reciever gain in dB
+Pr=-60 //received signal level
+
+//Calculation
+Lm=Lb-FSL //medium loss in dB
+Lm1=10**(Lm*10**-1) //medium loss
+Pt=Lc+Lb-Gt-Gr+Pr //power in dBm
+Pt1=10**(Pt*10**-1) //power in watt
+
+//Result
+printf("Medium Loss = %d",Lm1)
+printf("\nPt = %.1f mW",(Pt1))
|