# 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

1 |

### Arguments

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

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