Last chance! 50% off unlimited learning
Sale ends in
turbulence(mast, turb.set, dir.set, num.sectors=12,
bins=c(5, 10, 15, 20), digits=3, print=TRUE)
turb(mast, turb.set, dir.set, num.sectors=12,
bins=c(5, 10, 15, 20), digits=3, print=TRUE)
createMast
.dir.set
is given).turb.set
is given).12
.NULL
if no classification is desired.3
.TRUE
, results are printed directly.Burton, T., Sharpe, D., Jenkins, N., Bossanyi, E. (2001) Wind Energy Handbook. New York: Wiley
Langreder, W. (2010) Wind Resource and Site Assessment. In: Wei Tong (Ed.), Wind Power Generation and Wind Turbine Design, Chapter 2, p. 49--87, Southampton: WIT Press
createMast
, plotTurbulence
, printObject
# load and prepare data
data(winddata)
set40 <- createSet(height=40, v.avg=winddata[,2], v.std=winddata[,5],
dir.avg=winddata[,14])
set30 <- createSet(height=30, v.avg=winddata[,6], v.std=winddata[,9],
dir.avg=winddata[,16])
set20 <- createSet(height=20, v.avg=winddata[,10], v.std=winddata[,13])
ts <- formatTS(time.stamp=winddata[,1])
neubuerg <- createMast(time.stamp=ts, set40, set30, set20)
neubuerg <- clean(mast=neubuerg)
# calculate turbulence intensity
turbulence(mast=neubuerg, turb.set=1)
# use different datasets for turb.set and dir.set
turbulence(mast=neubuerg, turb.set=1, dir.set=2)
turbulence(mast=neubuerg, turb.set="set1", dir.set="set2") # same as above
# change number of direction sectors
turbulence(mast=neubuerg, turb.set=1, num.sectors=4)
# calculate turbulence intensity for 1 m/s speed bins and without binning
turbulence(mast=neubuerg, turb.set=1, bins=1:25)
turbulence(mast=neubuerg, turb.set=1, bins=NULL)
# change number of digits and hide results
turbulence(mast=neubuerg, turb.set=1, digits=2)
turbulence(mast=neubuerg, turb.set=1, print=FALSE)
Run the code above in your browser using DataLab