rotor_grids <- generate_rotor_grids(yinc = 0.05, xinc = 0.05, chord_prof_5MW)
get_pcoll_grid(
rotor_grids = rotor_grids,
direction = 1,
rotor_radius = 120,
blade_width = 5,
rotor_speed = 15,
blade_pitch = 15,
flight_type = "flapping",
n_blades = 3,
flight_speed = 13.1,
wing_span = 1.01,
body_lt = 0.85)
Run the code above in your browser using DataLab