Encuentre las estaciones de transmisión más cercanas 

Obtenga todas las estaciones de transmisión dentro de 100 kilómetros de su ubicación.

In[1]:=

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

Marque cada estación con su radio de transmisión. El radio es proporcional a la raíz cuadrada del poder de transmisión.

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