%此程式在將靜電消除器16種廠牌資料整合成可輸入
%ANFIS形式的資料結構
for k=1:16   % 輸入16種廠牌資料
eval(['load d:\853143\fuzzy\data\table',int2str(k),'.dat;'])
eval(['a=table',int2str(k),';'])
tab=k;
[m,n]=size(a);
b=[2,3,4,5,6,7,10]; %除電器與被消除物距離

c=a(:,1);

data=[];
for i=1:m

 t=0;
 for j=1:n-1
  if rem(j,2)~=0
     p=1;t=t+1;
  else
     p=-1;
  end   
   temp=[tab,-p*c(i),b(t),p*a(i,j+1)];
   data=[data;temp];
   
 end
end
%儲存成16種已整理資料結構
eval(['save da',int2str(k),'.dat data /ascii']);
end
%將已結構好16種資料整合成一筆大資料
sum=[];
for l=1:16
 eval(['load da',int2str(l),'.dat;']);
 eval(['h=da',int2str(l),';']);
 sum=[sum;h];
end

[m,n]=size(sum);
tran=[];
check=[];
for i=1:m
 if rem(i,4)~=0
   tran=[tran;sum(i,:)];
 else
   check=[check;sum(i,:)];
 end
end
save tran.dat tran /ascii; 
save check.dat check /ascii; 
