# NOT RUN {
# plot the beam profile, for a 0.5 degree elevation beam at 50 km distance from the radar:
plot(beam_profile(height = 0:4000, 50000, 0.5), 0:4000,
xlab = "normalized radiated energy",
ylab = "height [m]", main = "beam elevation: 0.5 deg, distance=50km"
)
# plot the beam profile, for a 2 degree elevation beam at 50 km distance from the radar:
plot(beam_profile(height = 0:4000, 50000, 2), 0:4000,
xlab = "normalized radiated energy",
ylab = "height [m]", main = "beam elevation: 2 deg, distance=50km"
)
# plot the combined beam profile for a 0.5 and 2.0 degree elevation beam
# at 50 km distance from the radar:
plot(beam_profile(height = 0:4000, 50000, c(0.5, 2)), 0:4000,
xlab = "normalized radiated energy",
ylab = "height [m]", main = "beam elevations: 0.5,2 deg, distance=50km"
)
# }
Run the code above in your browser using DataLab