Find the Nearest Broadcast Stations 

Get all the broadcast stations within 100 kilometers of your location.

In[1]:=

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

Mark each station with its broadcast radius. The radius is proportional to the square root of the broadcast power.

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]=