setDesignG {PEIP}

Set a Design Matrix.

Description

Creata design matrix for simulating a tomographic inversion on a simple grid.

Usage

setDesignG()

Details

Set up a simple design matrix for tomographic in version. This is used in examples and illustrations of tomographics and matrix inversion methods.

Author(s)

Jonathan M. Lees<[e-mail]>

Examples

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)