https://github.com/cran/pracma
Tip revision: 7c9cb68ab5f2055c3ac5af364c5c2febceae395b authored by Hans W. Borchers on 03 April 2017, 19:40:41 UTC
version 2.0.4
version 2.0.4
Tip revision: 7c9cb68
linspace.R
##
## l i n s p a c e . R
##
linspace <- function(x1, x2, n=100) {
stopifnot(is.numeric(x1), is.numeric(x2), length(x1)==1, length(x2)==1)
n <- floor(n)
if (n <= 1) x2
else seq(x1, x2, length.out=n)
}
logspace <- function(x1, x2, n=50) {
if (x2 == pi) x2 <- log10(x2)
10^linspace(x1, x2, n)
}
logseq <- function(x1, x2, n=100) {
x <- linspace(log(abs(x1)), log(abs(x2)), n)
exp(x)
}