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)

[numTrain, numPixel] = size(im)

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

for m=1:numTrain,
	for n=1:numPixel,
		fprintf(fid, '%f\n', im(m, n));
	end
end

fclose(fid);