View source: R/findMaximumPowerSpeed.R
findMaximumPowerSpeed | 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
uniroot
## 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
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.