Set a Design Matrix.
Creata design matrix for simulating a tomographic inversion on a simple grid.
setDesignG()
Set up a simple design matrix for tomographic in version. This is used in examples and illustrations of tomographics and matrix inversion methods.
Jonathan M. Lees<jonathan.lees@unc.edu>
G = setDesignG()
### show the 56-th row
g = matrix( G[56,] , ncol=16, nrow=16)
imagesc(g)
## Not run:
### show total coverage
zim = matrix(0 , ncol=16, nrow=16)
for(i in 1:dim(G)[1])
{
g = matrix( G[i,] , ncol=16, nrow=16)
zim =zim + g
}
image(zim)
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.