computeFlightPerformance {afpt} R Documentation

Compute characteristics of a power curve

Description

This function calculates the basic characteristic flight speeds for `bird`.

Usage

```computeFlightPerformance(bird, ..., length.out=10)
```

Arguments

 `bird` description of the bird or bat, constructed using the `Bird` function `...` various optional arguments that are passed on to other functions; see details `length.out` length of calculated power curve; set `length.out=0` to not compute a power curve

Details

Optional arguments can be provided through `...`. These can be arguments of `computeFlappingPower`, e.g. `strokeplane`, `frequency`, etc., or arguments for `findMaximumRangeSpeed`, e.g. `windSpeed` and `windDir`. The latter will only affect the outcome of the maximum range speed, and should perhaps not be analysed through the current function...

Value

 `birdWSName ` variable name in work-space of the bird object `bird ` bird object `table ` table with characteristic speeds `maxClimb ` table with climb performance `powercurve ` power curve from minimum to maximum speed of length `lenght.out`

Author(s)

Marco Klein Heerenbrink

References

Klein Heerenbrink, M., Johansson, L. C. and HedenstrĂ¶m, A. (2015) Power of the wingbeat: modelling the effects of flapping wings in vertebrate flight. Proc. R. Soc. A 471, 2177 doi: 10.1098/rspa.2014.0952

`Bird`, `computeFlappingPower`

Examples

```## Define a bird:
myBird = Bird(
name = "Jackdaw",
name.scientific = "Corvus monedula",
massTotal = 0.215, #  (kg) total body mass
wingSpan = 0.67, #  (m) maximum wing span
wingArea = 0.0652, #  (m2) maximum wing area
type = "passerine"
)

## simplest performance calculation
performance.myBird <- computeFlightPerformance(myBird)
performance.myBird
# Name: Jackdaw
# Sc. name: Corvus monedula
# Bird definitions: NA
#               speed power.aero power.chem strokeplane amplitude
# minimumSpeed  2.706      5.234      27.29        49.9      51.3
# minimumPower  8.031      2.093      12.27        28.1      34.5
# maximumRange 11.025      2.523      14.33        18.2      36.7
# maximumSpeed 16.590      5.235      27.29         6.8      50.2
# Maximum climb performance:
#                  speed power.aero power.chem strokeplane amplitude climbRate
# maximumClimbRate  8.89      5.234      27.29        24.5      53.9      1.18
# Minimized migration time:
#                  speed speed.migration power.aero power.chem power.dep strokeplane amplitude
# minimumTimeSpeed 11.75           1.962      2.741      15.37     3.081       16.49     38.04

## Not run:  # computationally intensive
## optimize strokeplane angle and use speed dependent frequency
funFrequency = function(U){19.8 - 4.7*U + 0.45*U^2 - 0.0138*U^3}
performance.myBird <- computeFlightPerformance(myBird,strokeplane='opt',frequency=funFrequency)
performance.myBird
# Name: Jackdaw
# Sc. name: Corvus monedula
# Bird definitions: NA
#               speed power.aero power.chem strokeplane amplitude
# minimumSpeed  2.293      5.229      27.27        49.9      43.8
# minimumPower  8.192      2.319      13.35        21.6      42.8
# maximumRange 11.463      2.775      15.53        14.9      44.3
# maximumSpeed 16.088      5.233      27.29         8.3      64.5
# Maximum climb performance:
#                  speed power.aero power.chem strokeplane amplitude climbRate
# maximumClimbRate  8.89      5.234      27.29        24.5      53.9      1.18
# Minimized migration time:
#                  speed speed.migration power.aero power.chem power.dep strokeplane amplitude
# minimumTimeSpeed 12.07           1.905      2.964      16.43     3.081       14.13     45.13

## plot variation of speed, power and flapping kinematics
plot(performance.myBird\$powercurve[c('speed','power.aero','strokeplane','frequency','amplitude')])

## End(Not run) # end dontrun

## plot power factors
plot(performance.myBird\$powercurve[c('speed','power.aero')])
plot(performance.myBird\$powercurve[c('speed','kP.ind')])
plot(performance.myBird\$powercurve[c('speed','kP.pro0')])
plot(performance.myBird\$powercurve[c('speed','kP.pro2')])

```

[Package afpt version 1.1.0.1 Index]