mute_parring.m

%membuat mute par by leocd91@gmail.com
a=dlmread('dataoc');
b=dlmread('mutepicks.1.1');
c=dlmread('mutepicks.2.1');
x=0;
namafile={'mute.1.1' 'mute.2.1'};
for j=1:101
namafile{j,1}=namafile{1,1};
namafile{j,2}=namafile{1,2};
xx=j/10;
if xx < 1
namafile{j,1}(8:8)=num2str(j);
namafile{j,2}(8:8)=num2str(j);
else if xx < 10
    namafile{j,1}(8:9)=num2str(j);
    namafile{j,2}(8:9)=num2str(j);    
    else 
    namafile{j,1}(8:10)=num2str(j);
    namafile{j,2}(8:10)=num2str(j);
    end
end
d(1,1)=b(1,1);
d(1,2)=b(1,2)+x;
d(2,1)=b(2,1);
d(2,2)=b(2,2)+x;
dlmwrite(namafile{j,1},d,'delimiter','\t')
e(1,1)=c(1,1);
e(1,2)=c(1,2)+x;
e(2,1)=c(2,1);
e(2,2)=c(2,2)+x;
dlmwrite(namafile{j,2},e,'delimiter','\t')
x=x+101;
end