%%%%%%%%%%%%%%%%%%%%%%%%%%%% 讀Sonar樣本數據 %%%%%%%%%%%%%%%%%%%%%%%%%%%%
function [TrainSet,TestSet]=ReadSonar(train,test)
% 1.讀訓練樣本
fp=fopen(train,'rt');
if(fp==-1) 
    display('File not exist!'); 
    return; 
end
%計算訓練集樣本記錄個數
TrainSet.n=0;%訓練集樣本的總數
c=fscanf(fp,'%c',1);
while ~feof(fp) %& c~=''
    if c=='M' | c=='R'
        TrainSet.n=TrainSet.n+1;  
    end
    c=fscanf(fp,'%c',1);
end
fseek(fp,0,'bof');
X=[1:60];
TrainSet.X=[];
TrainSet.CN=[];
TrainSet.n1=0;
TrainSet.n2=0;
for j=1:TrainSet.n
    for i=1:60
        X(i)=fscanf(fp,'%f');
        fscanf(fp,'%c',1);
    end
    c=fscanf(fp,'%c',1);
    if c=='M'
        cn=1;
        TrainSet.n1=TrainSet.n1+1;%計算M類的樣本記錄個數
    else
        cn=-1;
        TrainSet.n2=TrainSet.n2+1;%計算M類的樣本記錄個數
    end
    TrainSet.X=[TrainSet.X;X];%樣本記錄矩陣
    TrainSet.CN=[TrainSet.CN;cn];%每個樣本記錄對應的類別矩陣
end
fclose(fp);
TrainSet.tn=60;

% 2.讀測試樣本
fp=fopen(test,'rt');
if(fp==-1) 
    display('File not exist!'); 
    return; 
end
TestSet.n=0;
c=fscanf(fp,'%c',1);
while ~feof(fp) %& c~=''
    if c=='M' | c=='R'
        TestSet.n=TestSet.n+1;  
    end
    c=fscanf(fp,'%c',1);
end
fseek(fp,0,'bof');
X=[1:60];
TestSet.X=[];
TestSet.CN=[];
TestSet.n1=0;
TestSet.n2=0;
for j=1:TestSet.n
    for i=1:60
        X(i)=fscanf(fp,'%f');
        fscanf(fp,'%c',1);
    end
    c=fscanf(fp,'%c',1);
    if c=='M'
        TestSet.n1=TestSet.n1+1;
        cn=1;
    else
        cn=-1;
        TestSet.n2=TestSet.n2+1;
    end
    TestSet.X=[TestSet.X;X];
    TestSet.CN=[TestSet.CN;cn];
end
fclose(fp);
TestSet.tn=60;