DrawR6: Draw R6 daigram

In ShinsukeSakai0321/FFS:

Usage

DrawR6(Kr = 0.3, Lr = 0.5, Su = 5.9e+08, Sy = 313600000, pch = 16)

Arguments

Kr
Lr
Su
Sy
pch

Examples

##---- 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))
  }

ShinsukeSakai0321/FFS documentation built on May 20, 2019, 5:09 p.m.