clear
%提取訓練樣本
fid?=?fopen（‘E:\畢業設計\data\TrainSample.txt‘‘r‘）;
[Pcount]=fscanf（fid‘%d?%d‘[5002000]）;
Tc?=?ones（12000）;
Tc（11001:2000）=1+Tc（11001:2000）;
%?for?i=1001:2000
%?????Tc（1i）=Tc（1i）+1;
%?end
fclose（fid）;

%訓練概率神經網絡
T?=?ind2vec（Tc）;
spread?=?4.75;
net?=?newpnn（P?T?spread）;

%測試
%正常郵件
nn_test（net）;
nn_test_train（net）;
%?fid_test?=?fopen（‘E:\畢業設計\data\TrainSample_ham.txt‘‘r‘）;
%?[p_testcount]=fscanf（fid_test‘%d?%d‘[5001000]）;
%?count_ham?=?0;
%?for?i=1:1000
%?????a?=?si