rectent02: Low entropy plot

In TaoTeProgramming: Illustrations from Tao Te Programming

Description

A campaign that failed: trying to minimize entropy of an image.

Usage

rectent02(x = array(sample(c(TRUE, FALSE), 4e+06, replace = TRUE), c(2000, 2000)), 
   iterations = 100, inner = 20, fraction = c(0.01, 0.1), 
   seed = NULL, verbose = TRUE)
entropy(xmat)

Arguments

x	a matrix of logicals.
xmat	a matrix of logicals.
iterations	the number of major iterations.
inner	the number of iterations in the inner loop.
fraction	controls the size of the inner region that is optimized.
seed	an integer giving the argument for set.seed.
verbose	logical value. If TRUE, then information on the progress of the optimization is printed.

Value

rectent02 and rectent01 return a matrix like the input x.

entropy returns a number.

Side effects

modify the random seed.

References

http://www.burns-stat.com/documents/books/tao-te-programming/

See Also

set.seed.

Examples

## Not run: 
entmat1 <- rectent02()
entmat2 <- rectent02(entmat1, iterations=500)
image(entmat2)
image(xor(entmat2, entmat1))

## End(Not run)

TaoTeProgramming documentation built on May 1, 2019, 6:47 p.m.