turbulence | R Documentation |
Turbulence spectrum phi, as a function of wavenumber k for a run starring at 0905h on October 3, 1959, with data in their Appendix 1 and graph in their Figure 9 and Appendix 1. The units are c.g.s., that is k is in cm^{-1} and phi is in cm^3/s^2.
data(turbulence, package="ocedata")
H. L. Grant and R. W. Stewart and A. Moilliet, 1962. Turbulence spectra from a tidal channel. Journal of Fluid Mechanics, 12(2): 241-268.
# Recreate Fig 9 of Grant et al. (1962), with intercept # chosen to mimic the published figure data(turbulence, package="ocedata") plot(log10(turbulence$k), log10(turbulence$phi), xlab=expression(log[10]*k), ylab=expression(log[10]*phi), pch=20) grid() power <- -5/3 intercept <- -0.3 abline(intercept, power)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.