function im = cifar10(label)

d = load (['data\cifar10\data_batch_' num2str(label)])
data = d.data;
im = double(data(:,1:1024))/256 + double(data(:,1025:2048))/256 + double(data(:,2049:3072))/256;
im = im /3;

%im2 = reshape(im(2,:), 32,32)
%imshow(im2)

return

[numTrain, numPixel] = size(im)

%numTrain = 10
s = ['cifar10_' num2str(label) '.trainingStates.dat']
fid = fopen(s, 'w');
fprintf(fid, '%d\n', numTrain);

for m=1:numTrain,
	jwrite_retina(fid, im(m,:), 32, 32);
end

fclose(fid);