#' # Beam width in meters at 10 km range:
beam_width(10000)
# Define ranges from 0 to 1000000 m (100 km), in steps of 100 m:
range <- seq(0, 100000, 100)
# Plot the beam width as a function of range:
plot(range, beam_width(range), ylab = "beam width [m]", xlab = "range [m]")
Run the code above in your browser using DataLab