findMaximumPowerSpeed {afpt} | R Documentation |
Numerically find the airspeed for which required power equals maximumPower
.
findMaximumPowerSpeed(bird, maximumPower, lower, upper, ...)
bird |
bird description object (see |
maximumPower |
numeric value for maximum available mechanical power |
lower |
lower bound for search range airspeed (m/s) |
upper |
upper bound for search range airspeed (m/s) |
... |
optional arguments to |
Prepares arguments for a call to uniroot
. The function searches for an airspeed between lower
and upper
that matches the specified maximum power available.
Data frame
speed |
airspeed for which power matches maximum power |
power |
aerodynamic (mechanical) power matching maximum power |
power.chem |
aerodynamic (mechanical) power matching maximum power |
strokeplane |
optimized or prescribed strokeplane angle in degrees (from vertical) |
amplitude |
optimized peak amplitude in degrees (see |
... |
see |
Typically this function would be used to find the maximum speed, but may in some cases also be used for the minimum flight speed. However, note that the low speed limit is likely limited by other constraints as well (e.g. stall speed).
Marco Klein Heerenbrink
## Define a bird: myBird <- Bird( massTotal = 0.215, # (kg) total body mass wingSpan = 0.67, # (m) maximum wing span wingArea = 0.0652, # (m2) maximum wing area type = "passerine" ) Paero.available <- computeAvailablePower(myBird) ## find maximum speed: Vmin <- 5 Vmax <- 30 Paero.maxSpeed <- findMaximumPowerSpeed(myBird,Paero.available,Vmin,Vmax) print(Paero.maxSpeed[c('speed','power','amplitude','strokeplane','frequency')]) # speed power amplitude strokeplane frequency # 1 16.58797 5.233459 50.22762 6.812345 5.948083