`asc2s()`

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

1 |

`k` |
a maximal set cover size: |

`x` |
a vector of lattice sizes: |

`dir` |
a variable component index: x) |

`r` |
a variable lenght of set cover elements: |

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.

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.

Pavel V. Moskalev

fdc3s, fds2s, fds3s

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

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

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

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