#
#Fill to look like Gaussian.
#
wght <- c(1., 0.05, 1e-07, 1e-09, 1e-11, 1e-14)
D<- Wtransform.D(32,32, wght, cut.min=4)$D
set.panel( 2,2)
for ( k in 1:4){
look<- Wtransform.sim( D, cut.min=4)
image( look)
}
set.panel( 1,1)
Run the code above in your browser using DataLab