function makespeck_sethares (speckfile,E,a,b,c)

% makes a .speck file with columns  a b c of E

M = size(E,1);

fid = fopen ([speckfile '.speck'],'wt');
labfid = fopen ([speckfile '.label'],'wt');

fprintf (fid, 'datavar 0 song\n');
fprintf (fid, 'datavar 1 feature\n');
fprintf (fid, 'datavar 2 selection\n');

songs = load ('labels_songs.dat');
features = load ('labels_features.dat');
selections = load ('labels_selections.dat');

E  = E*1000;

for i = 1 : M
  fprintf (fid,'%0.10f   %0.10f    %0.10f   %d %d %d \n', E(i,a), E(i,b), E(i,c),  songs(i), features(i), selections (i));

  label = ['song' num2str(songs(i)) '_feat' num2str(features(i)) '_sel' num2str(selections(i))];
  fprintf (labfid, '%0.10f   %0.10f    %0.10f  text   %s\n', E(i,a), E(i,b), E(i,c), label);
end

fclose (fid);
fclose (labfid);