1 |
Kr |
|
Lr |
|
Su |
|
Sy |
|
pch |
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | ##---- Should be DIRECTLY executable !! ----
##-- ==> Define data, use random,
##-- or do help(data=index) for the standard data sets.
## The function is currently defined as
function (Kr = 0.3, Lr = 0.5, Su = 5.9e+08, Sy = 313600000, pch = 16)
{
Lrmax = (Su + Sy)/2/Sy
div <- 1000
Lmax <- Lrmax
dL <- Lmax/div
LL <- seq(0, Lmax, length = div)
KK <- R6Option1(LL)
plot(LL, KK, type = "l", xlim = c(0, 1.6), ylim = c(0, 1.2),
xlab = "Lr", ylab = "Kr")
par(new = T)
plot(Lr, Kr, pch = pch, xlim = c(0, 1.6), ylim = c(0, 1.2))
abline(h = 0, v = 0)
segments(Lrmax, 0, Lrmax, R6Option1(Lrmax))
}
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.