function graphic(prefix, suffix)
warning off

check = find(prefix == '.');
pre = prefix(1:check(1)-1);
if length(check) > 1
   mid = [prefix(check(1)+1:check(2) - 1)];
   picname = [pre mid suffix '.jpg'];
else
   picname = [pre suffix '.jpg'];
end

fidnewpic = fopen(picname, 'w');

fidoldpic = fopen('a.jpg');
package = fread(fidoldpic);

movepackage = fwrite(fidnewpic, package);
delete a.jpg;