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, ...)

Value

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 amplitude)
...: see computeFlappingPower for other variables

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

Author

Marco Klein Heerenbrink

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

## 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

Run the code above in your browser using DataLab