|
|
|
|
|
|
|
|
|
|
|
|
|
In summary, if two transmitters are separated by a distance which equals
half the wavelength at which they transmit (assume that both transmitters transmit at
the identical wavelength), then antennas located in-line with the transmitters
will not detect any signal, while antennas located perpendicular to the
transmitter array will receive double the signal strength (see the picture
below). The reason for this is that when an antenna is in-line with the transmitters
the signals from the transmitters arrive 1/2 a wavelength out of phase and
hence, cancel each other out. Conversely, when the distance between the antenna
and the first transmitter equals the distance between the antenna and the
second transmitter, the signals from both transmitters arrive simultaneously
and hence, add up.
Similarly, when the distance between the transmitters becomes large compared
to the wavelength at which they are broadcasting, a very complex interference pattern with a multitude of weak and strong signal
zones results.

Signal strength at 1/2 wavelength separation of transmitters.

Signal strength at .5m wavelength.
For this assignment you must program a GUI that allows your user to locate two transmitters at arbitrary locations in a rectangular area, and which allows specification of the wavelength at which the transmitters are operating. After entering these data, the program computes the signal strength everywhere in the rectangular area.
S = 1 + sin ((π/2) + (abs(d1 - d2)/W * 2π))
where:
RectanglePen = New Drawing.Pen(Color.Black, 1)
PBwidth = PictureBox1.Width 'Tells the for loop when to stop
PBheight = PictureBox1.Height 'Tells the nested for loop when to stop
For Xpos = 0 To PBwidth Step 1 'Loops through all X coordinates
For Ypos = 0 To PBheight Step 1 'Loops through all Y coordinates at each X
MyPhone = New Antenna(Xpos, Ypos) 'Constructs a new antenna object at the coordinates
'Get the signal strength from the antenna object
SignalStrength = MyPhone.getSignalStrength(Trans1, Trans2)
'Convert the signal strength into an RGB color with 100% strength equal to RGB 255,255,255
ColorStrength = CInt(255.0 * (SignalStrength / 2.0))
'Set the pen color based on the signal strength
RectanglePen.Color = System.Drawing.Color.FromArgb(ColorStrength, ColorStrength, ColorStrength)
'Draws the rectangle at the given coordinates
PictureBox1.CreateGraphics.DrawRectangle(RectanglePen, Xpos, PBheight - Ypos, 1, 1)
Next Ypos
Next Xpos
RectanglePen.Dispose() 'Disposes the pen object before creating a new one with a new color and a new size