Weighted Sierpinski carpet surface helpers — sierpinski_carpet_surface

Convenience wrappers around recursive.mask.grid.surface.*() using the classic \(3 \times 3\) carpet mask with the center cell removed.

Usage

sierpinski.carpet.surface.graph(
  level = 2,
  surface = c("saddle", "paraboloid", "ripple"),
  amplitude = 0.75,
  freq.u = 1,
  freq.v = 1,
  x.scale = 1,
  y.scale = 1,
  normalize = c("median", "mean", "none")
)

Arguments

level: Recursion depth. Must be at least 1.
surface: Surface family used for the lift. One of "saddle", "paraboloid", or "ripple".
amplitude: Finite numeric amplitude controlling the non-flat displacement.
freq.u: Positive ripple frequency in the horizontal parameter direction. Used only when surface = "ripple".
freq.v: Positive ripple frequency in the vertical parameter direction. Used only when surface = "ripple".
x.scale: Positive horizontal scaling of the parameter domain.
y.scale: Positive vertical scaling of the parameter domain.
normalize: Normalization applied to the induced edge lengths. One of "median", "mean", or "none".

Value

The coords_surface component is an n x 3 numeric matrix with columns x, y, and z, where n = 8^level.

sierpinski.carpet.surface.graph() returns the same components as recursive.mask.grid.surface.graph(), with family set to "sierpinski.carpet" and a family-specific class and label.

Details

The coords.surface component contains the 3D coordinates of the occupied cells in the same vertex order as edges.sierpinski.carpet(). sierpinski.carpet.surface.graph() returns a reusable weighted-graph bundle for the named Sierpinski carpet family.

Examples

carpet <- sierpinski.carpet.surface.graph(level = 1)