samer@4: function M=read(name)
samer@4: % M=read(name): read and return ascii matrix file
samer@4: % name may be with or without .txt extension
samer@4: 
samer@4: if name(end-3)~='.'
samer@4: 	name=[name '.txt'];
samer@4: end
samer@4: 
samer@4: load('-ascii',name);
samer@4: last=max(findstr(name,'\'));
samer@4: if ~isempty(last)
samer@4: 	name=name(last+1:length(name));
samer@4: end
samer@4: last=max(findstr(name,'/'));
samer@4: if ~isempty(last)
samer@4: 	name=name(last+1:length(name));
samer@4: end
samer@4: if name(1)=='.'
samer@4: 	name=name(2:length(name));
samer@4: end
samer@4: if name(1)>='0' & name(1)<='9'
samer@4: 	name=['X' name];
samer@4: end
samer@4: 
samer@4: dot=max(findstr(name,'.'));
samer@4: if ~isempty(dot)
samer@4: 	name=name(1:dot-1);
samer@4: end
samer@4: rr=findstr(name,'.'); name(rr)=repmat('_',1,length(rr));
samer@4: rr=findstr(name,'&'); name(rr)=repmat('_',1,length(rr));
samer@4: eval(['M=' name ';']);
samer@4: