initbp.m

patten regnization source从1-14章能运行

% 切嚼 菩畔 积己
digitPats;
nPats = size(patterns,2);
nTrainingPats = 20;
nTestPats = 20; % 唱赣瘤 20 俺狼 菩畔篮 抛胶飘甫 困秦 历厘
nInputs = size(patterns,1);
nHidden = 10;
nOutputs = 4;

% 官捞绢胶 啊吝摹甫 器窃窍咯, 累篮 檬扁 啊吝摹甫 罚待窍霸 汲沥
hiddenWeights = 0.5 * (rand(nHidden,nInputs+1) - ones(nHidden,nInputs+1) * .5);
outputWeights = 0.5 * (rand(nOutputs,nHidden+1) - ones(nOutputs,nHidden+1) * .5);

% 格钎 菩畔 汲沥(0: 1 0 0 0 , 1: 0 1 0 0, 2: 0 0 1 0, 3: 0 0 0 1)
input = patterns;
target = zeros(nOutputs,nPats);
class = 1;
for pat = 1:nPats,
  target(class,pat) = 1;
  class = class + 1;
  if class > nOutputs
    class = 1;
  end
end

eta = 0.1;  % 切嚼伏 

NEpochs = 100; % 切嚼 epoch 荐(葛电 切嚼 单捞磐俊 措窍咯 切嚼窍绰 荐) = runbp啊 龋免登绰 荐
totalNEpochs = 0; % 瘤陛鳖瘤狼 切嚼 epoch 荐. runbp啊 龋免瞪 锭付促 NEpochs俊 狼窍咯 刘啊茄促. 

% 切嚼 目宏甫 敲吩
minEpochsPerErrorPlot = 200;
errorsPerEpoch = zeros(1,minEpochsPerErrorPlot);
TestErrorsPerEpoch = zeros(1,minEpochsPerErrorPlot);
epochs = [1:minEpochsPerErrorPlot];