asc2s: Anisotropic set cover on the 2D square lattice

Description Usage Arguments Details Value Author(s) See Also Examples

View source: R/asc2s.r

Description

asc2s() function calculates the boundary coordinates for the anisotropic set cover on the 2D square lattice with a fixed edge along the lattice boundary.

Usage

1
asc2s(k=12, x=rep(95, times=2), dir=2, r=(x[dir]-3)^(seq(k)/k))

Arguments

k

a maximal set cover size: k>2.

x

a vector of lattice sizes: all(x>5).

dir

a variable component index: x) dir=1; y) dir=2; z) dir=3.

r

a variable lenght of set cover elements: all((0<r)&(r<x)).

Details

The percolation is simulated on 2D square lattice with uniformly weighted sites and the constant parameter p.

The percolation cluster is formed from the accessible sites connected with initial sites subset.

If an initial cluster subset in the lattice center, to estimate the mass fractal dimension requires an anisotropic set cover with a fixed edge along the lattice boundary.

The anisotropic set cover on 2D square lattice is formed from scalable rectangles with a variable length r+1 and a fixed edge along the lattice boundary.

Value

A list of boundary coordinates and sizes for the anisotropic set cover on a 2D square lattice with a fixed edge along the lattice boundary.

Author(s)

Pavel V. Moskalev

See Also

fdc3s, fds2s, fds3s

Examples

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
# # # # # # # # # # # # # # # # #
# Example: Anisotropic set cover, dir=2
# # # # # # # # # # # # # # # # #
pc <- .592746
p2 <- pc + .03
lx <- 33; ss <- (lx+1)/2; ssy <- seq(lx+2, 2*lx-1)
set.seed(20120627); ac2 <- ssi20(x=lx, p=p2, set=ssy, all=FALSE)
bnd <- asc2s(k=9, x=dim(ac2), dir=2)
x <- y <- seq(lx)
image(x, y, ac2, cex.main=1,
      main=paste("Anisotropic set cover and a 2D cluster of\n",
                 "sites with (1,0)-neighborhood and p=",
                 round(p2, digits=3), sep=""))
rect(bnd["x1",], bnd["y1",], bnd["x2",], bnd["y2",])
abline(v=ss, lty=2)

SECP documentation built on May 19, 2017, 11:40 a.m.

Search within the SECP package
Search all R packages, documentation and source code

Questions? Problems? Suggestions? Tweet to @rdrrHQ or email at ian@mutexlabs.com.

Please suggest features or report bugs in the GitHub issue tracker.

All documentation is copyright its authors; we didn't write any of that.