diff --git a/lib/microwaveprop_web/live/contact_live/show.ex b/lib/microwaveprop_web/live/contact_live/show.ex index dbe20ccb..2202217d 100644 --- a/lib/microwaveprop_web/live/contact_live/show.ex +++ b/lib/microwaveprop_web/live/contact_live/show.ex @@ -1403,13 +1403,16 @@ defmodule MicrowavepropWeb.ContactLive.Show do {:ok, profile} <- safe_fetch_elevation(lat1, lon1, lat2, lon2) do freq_ghz = band_to_ghz(contact.band) dist_km = haversine_km(lat1, lon1, lat2, lon2) - analysis = TerrainAnalysis.analyse(profile, dist_km, freq_ghz) + # Assume both stations are at 10 ft (3.048 m) AGL so the path + # analysis doesn't pretend the antennas are sitting on the dirt. + ant_ht_m = 3.048 + analysis = TerrainAnalysis.analyse(profile, dist_km, freq_ghz, ant_ht_a: ant_ht_m, ant_ht_b: ant_ht_m) fwd_az = initial_bearing(lat1, lon1, lat2, lon2) rev_az = initial_bearing(lat2, lon2, lat1, lon1) - tx_elev = hd(profile).elev - rx_elev = List.last(profile).elev + tx_elev = hd(profile).elev + ant_ht_m + rx_elev = List.last(profile).elev + ant_ht_m fwd_el = elevation_angle(tx_elev, rx_elev, dist_km * 1000) rev_el = elevation_angle(rx_elev, tx_elev, dist_km * 1000)