#!/bin/csh ./sangers -m -a0.03 -i10 -t0 pca.rus foreach a (1 2 4 6 8 12 16) cat cabres.txt >pca$a.res ./recons pca.ws pca.red 64 16 $a >> pca$a.res ./ressplit2pgm -opca$a.pgm pca$a.res end xv pca*.pgm