function showimages(data)
[numdata, numdims] = size(data);
width = floor(sqrt(numdims));
cols   = 15;
rows   = ceil(numdata/cols);
minval=-.1;
maxval=1.1;

    figure(5);
    clf;
    for h = 1:numdata;
      col = 1+ rem(h-1,cols);
      row = ceil( (numdata+1-h)/cols);
      rect = [(col-.95)/cols, (row-.95)/rows, 1/(cols*1.1), 1/(rows*1.1)];
      axes('position', rect); 
      show(reshape(data(h,:)', width, width)', minval, maxval);
    end;

    drawnow;