天气: 晴朗

心情: 高兴

function mif_Gen(filename,var,width,depth)

%       function miffile(filename,var,width,depth)

%       It creates a 'mif' file called filename,which be written with var.

%       The 'mif' file is a kind of file formats which is uesed in Altera's

%       EDA tool,like maxplus II ,quartus II,to initialize the memory

%       models,just like cam,rom,ram.

%       Using this function,you can easily produce the 'mif' file written

%       with  all kinds of your data.

%       If the size of 'var' is shorter than 'depth',0 will be written for the

%       lefts.If the size of 'var' is greater than 'depth',than only 'depth' former

%       data of 'var' will be written;

%       the radix of address and data is hex

%       filename --the name of the file to be created,eg,"a.mif",string;

%       var ----the data to be writed to the file, can be 3D or less ,int or other fittable;

%       width --the word size of the data,width>=1,int;

%       depth --the number of the data to be writed,int;

%

%       because matlab read the matrix is colum first,if you want to write

%       the 'var' data in row first mode, just set var to var';

%

%       example:

%             a=uint8(rand(16,16)*256);

%             miffile('randnum.mif',a,8,256);

if(nargin~=4) %% be tired to do more inupts check!

error('Need 4 parameters! Use help miffile for help!');

end,

fh=fopen(filename,'w+');

fprintf(fh,'--Created by VICTOR\r\n');

fprintf(fh,'--violet701@126.com\r\n');

fprintf(fh,'--%s\r\n',datestr(now));

fprintf(fh,'WIDTH=%d;\r\n',width);

fprintf(fh,'DEPTH=%d;\r\n',depth);

fprintf(fh,'ADDRESS_RADIX=HEX;\r\n');

fprintf(fh,'DATA_RADIX=HEX;\r\n');

fprintf(fh,'CONTENT BEGIN\r\n');

%%%%%%

%%%%%%

var=rem(var,2^width);%% clip to fit the width;

[sx,sy,sz]=size(var);%% can only fit 3D or less;

value=var(1,1,1);

sametotal=1;

idepth=0;

addrlen=1;

temp=16;

while(temp

temp=temp*16;

addrlen=addrlen+1;

end,

datalen=1;

while(temp

temp=temp*16;

datalen=datalen+1;

end,

for k=1:sz,

for j=1:sy,

for i=1:sx,

if(~((i==1 ) &&( j==1) &&( k==1)))

if(idepth

idepth=idepth+1;

if(value==var(i,j,k))

sametotal=sametotal+1;

continue;

else

if(sametotal==1)

fprintf(fh,['\t%' num2str(addrlen) 'X:%' num2str(datalen) 'X;\r\n'],idepth-1,value);

else

fprintf(fh,['\t[%' num2str(addrlen) 'X..%' num2str(addrlen) 'X]:%' num2str(datalen) 'X;\r\n'],idepth-sametotal,idepth-1,value);

end,

sametotal=1;

value=var(i,j,k);

end,

else

break;

end,

end,

end,

end,

end,

if(idepth

if(sametotal==1)

fprintf(fh,['\t%' num2str(addrlen) 'X:%' num2str(datalen) 'X;\r\n'],idepth,value);

else

fprintf(fh,['\t[%' num2str(addrlen) 'X..%' num2str(addrlen) 'X]:%' num2str(datalen) 'X;\r\n'],idepth-sametotal+1,idepth,value);

end,

end,

if(idepth

if(idepth==(depth-2))

fprintf(fh,['\t%' num2str(addrlen) 'X:%' num2str(datalen) 'X;\r\n'],idepth+1,0);

else

fprintf(fh,['\t[%' num2str(addrlen) 'X..%' num2str(addrlen) 'X]:%' num2str(datalen) 'X;\r\n'],idepth+1,depth-1,0);

end,

end,

%%%%%%%%%%

%%%%%%%%%%

fprintf(fh,'END;\r\n');

fclose(fh);