Encontre as emissoras mais próximas 

Obtenha todas as emissoras a até 100 km de sua localização.

In[1]:=

X sources = GeoNearest[ "BroadcastStation", $GeoLocation, {All, Quantity[100, "Kilometers"]}];

Marque cada estação com o seu raio de difusão. O raio é proporcional à raiz quadrada da energia de transmissão.

In[2]:=

X GeoRegionValuePlot[sources -> "AllPower", GeoLabels -> ({Opacity[.3], EdgeForm[None], Disk[#3, .02 Sqrt@QuantityMagnitude[#4]]} &), ColorFunction -> ColorData[{"BlueGreenYellow", "Reverse"}], PlotLegends -> Histogram, PlotMarkers -> ({PointSize[Medium], Point[#1]} &)]

Out[2]=