Die nächstgelegenen Rundfunkstationen finden 

Ermitteln Sie alle Rundfunktstationen im Radius von 100 Kilometern Ihres Standorts.

In[1]:=

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

Markieren Sie jede Station mit ihrem Senderadius. Der Radius ist proportional zur Quadratwurzel der Rundfunksübertragung.

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