functions.hydrotidalpower: Tidal Power Functions

Description Usage Arguments Details Value Note Author(s) References Examples

Description

Calculations in tidal power generation

Usage

1
2
3
4
5
6
read.tide(file)
harmonics.tide(x, days, ylabel, plot)
power.barrage.cycle(xba)
find.peaks(tz, band)
tide.current.abs(tz, ylabel, plot)
tidal.power(tz, Aflow)

Arguments

file

filename for tide files in extdata

x

a tidal dataset read from file

days

number of days

ylabel

label for y axis of plot default for harmonics.tide is "Tide wrt MSL (m)" default for tide.current.abs is "Current abs (m/s)"

plot

logical to decide to plot default is TRUE

xba

list(a,Abasin,z,nu): a center of mass at half the tidal range, Abasin tidal basin area, z tidal cycle range, nu efficiency

tz

time and tide height in tidal signal produced by harmonics.tide or rectified by tide.current.abs

band

threshold band to find peaks

Aflow

cross section area for tidal power generation

Details

Basic calculations for tidal power

Value

X

list(t,z,x) tide time series

X

list(xp,tp,range)

X

list(pow.tide.MW,pow.gen.MW,gen.MWh)

Note

Functions used in Chapter 12 of Acevedo (2018)

Author(s)

Miguel F. Acevedo acevedo@unt.edu

References

Acevedo, M.F. 2018. Introduction to Renewable Electric Power Systems and the Environment with R. Boca Raton, FL: CRC Press. (ISBN 9781138197343)

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
# using extdata
x <- read.tide(system.file("extdata","AnchorageTide.csv",package = "renpow"))
harmonics.tide(x,days=29)

x <- read.tide(system.file("extdata","VelocityTide.csv",package="renpow"))
y <- harmonics.tide(x, days=15,ylabel="Velocity m/s)")
tide.current.abs(y, ylabel="Velocity (abs val) (m/s)", plot=TRUE)
y <- harmonics.tide(x, days=365,ylabel="Velocity m/s)",plot=FALSE)
z <- tide.current.abs(y, ylabel="Current abs (m/s)", plot=TRUE)
tidal.power(z,Aflow=1)

x <- read.tide(system.file("extdata","ElevationTide.csv",package="renpow"))
y <- harmonics.tide(x,days=29)
y <- harmonics.tide(x,days=365)
z <- find.peaks(y, band=c(0,1))

renpow documentation built on May 1, 2019, 6:49 p.m.