Cantor dağıtımından nasıl örnek alınır?

Cantor dağıtımından örneklemenin en iyi yolu nedir ? Sadece cdf var ve tersine çeviremiyoruz.

Kolay: Tekdüze dağılımdan numune alın ve her "1" i "2" olarak yorumlayan ikili dosyadan üçlü dosyaya yeniden kodlayın. (Bu ters olasılık dönüşüm yaklaşımıdır: gerçekten CDF'yi tersine çevirir!)$(0,1)$

İşte Rhemen hemen her bilgi işlem ortamına kolayca taşınacak şekilde yazılmış bir uygulama.

binary.to.ternary <- function(x) {
  y <- 0
  x <- round(2^52 * x)
  for (i in 1:52) {
    y <- y + 2*(x %% 2)
    y <- y/3
    x <- floor(x/2)
  }
  y
}

n <- 1000
x <- runif(n)
y <- binary.to.ternary(x)
plot(ecdf(y), pch=".")