clear

clc

num=13;

fildId=fopen('temp2.txt','w');

for j=1:num

for i=1:num

if(i<11&&j<11)

fprintf(fildId,'%s%s%s\t','a',num2str(j-1),num2str(i-1));

else

fprintf(fildId,'%s%s%s%s\t','a',num2str(j-1),'t',num2str(i-1));

end

end

fprintf(fildId,'\n');

end

fclose(fildId);

fid=fopen('temp2.txt');

data0=textscan(fid,'%s');  %data0是1*1的元组->4000*1元组，调用的话只需要data0{1,1}{i,1}即可

data1=cell(0);

for i=1:num

for j=1:num

data1{i,j}=data0{1,1}{num*(j-1)+i,1};

end

end

temp='';

%对角线是零

for i=1:num

for j=1:num

if i==j

data1{j,i}='0';

end

end

%data1{i,i}=temp;

%temp='';

end

%对角线生成非零元素

%{

for i=1:num

for j=1:num

if i~=j

temp2=strcat('-',data1{j,i});

temp=strcat(temp,temp2);

end

end

data1{i,i}=temp;

temp='';

end

%}

%下面是写入部分

fclose(fid);

fid0=fopen('temp0.txt','w');

for i=1:num

for j=1:num

%         a=data1{i,j};

%         a=cell2mat(a);

fprintf(fid0,'%s\t',data1{i,j});

end

fprintf(fid0,'\n');

end

fclose(fid0);

% for i=1:20

%     for j=1:20

%         if i==j

%             fprintf(fildId,'%s%s%s%s\t','a',num2str(j-1),'t',num2str(i-1));

%fclose(fildId);

%data=dlmread('temp.txt',',');