SECP (version 0.1.5)

asc2s: Anisotropic set cover on the 2D square lattice

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

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)).

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.

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.

See Also

fdc3s, fds2s, fds3s

Examples

# NOT RUN {
# # # # # # # # # # # # # # # # #
# 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)
# }