findMaximumPowerSpeed {afpt}

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

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.

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

Note

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

Author(s)

Marco Klein Heerenbrink

See Also

uniroot

Examples

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