ripserr (version 1.0.0)

blackholes: Images of black holes: Sagettarius A* and Pōwehi

Description

These data sets contain grayscale bitmaps of black holes Sagettarius A* and Pōwehi (the unoffical name of Messier 87's black hole). sagAstar contains a 240x240 matrix with a spatial scale of approximately 1.3 millon km per cell (calculated by dividing the length of the shadow by the number of cells it covers in the image: 50 million km / 38). powehi contains a 250x250 matrix of Pōwehi with a spatial scale of approximately 800 million km per cell (calculated the same way as above: 40 billion km / 50).

Format

A 240x240 and 250x250 matrix containing cells evaluated between 0 and 1.

Examples

image(powehi, 
  col = hcl.colors(256, palette = "inferno", alpha = NULL, rev = FALSE, 
  fixup = TRUE), axes = FALSE, asp = 1)
title(main = "Messier 87's Black Hole: Powehi")

# based on the image, we expect one especially prominent 
# persistent feature in 1D
ph <- cubical(powehi)

plot.new()
plot.window(
  xlim = c(0, max(ph$death)),
  ylim = c(0, max(ph$death)),
  asp = 1
)
axis(1L)
axis(2L)
abline(a = 0, b = 1)
points(ph[ph$dim == 1L, c("birth", "death")], pch = 17L, col = "orange")