findMaximumPowerSpeed: Finds speed for which power required equals maximum available power

Description

Numerically find the airspeed for which required power equals maximumPower.

Usage

findMaximumPowerSpeed(bird, maximumPower, lower, upper, ...)

Arguments

bird

bird description object (see Bird)

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 computeFlappingPower

Value

Data frame of class power.mechanical

speed

airspeed for which power matches maximum power

power

aerodynamic (mechanical) power matching maximum power

strokeplane

optimized or prescribed strokeplane angle in degrees (from vertical)

amplitude

optimized peak amplitude in degrees (see amplitude)

…

see computeFlappingPower for other variables

Details

Prepares arguments for a call to uniroot. The function searches for an airspeed between lower and upper that matches the specified maximum power available.

Examples

Run this code

# NOT RUN {
## 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
# }