xnewlind.m

matlab在化学工程中的应用实例程序,对大家研究学习有指导作用。

function xNewlind     
% This program uses the functions newlind() and sim() to design 
% a single linear layer to respond to specific inputs with target outputs.
%
%   Author: HUANG Huajiang
%   Copyright 2002 UNILAB Research Center, 
%   East China University of Science and Technology, Shanghai, PRC
%   $Revision: 1.0 $  $Date: 2003/03/5 $
%
%   [Ref] MATLAB demo, Mathworks Co.

clear all
clc

% (1)定义输入向量和目标向量
p = [1.0 -1.2]; % P defines two 1-element input patterns (column vectors):
t = [0.5 1.0];  % T defines the associated 1-element targets (column vectors);

% (2)用errsurf()在可能的权值(weight value)和阀值(bias values)
% 范围内计算网络误差，并用plotes()绘制误差曲面
w_range = -1:0.1:1;
b_range = -1:0.1:1;
es = errsurf(p,t,w_range,b_range,@purelin);
plotes(w_range,b_range,es); % 以等值线绘制误差曲面(error surface),
                            % 最佳的权值和阀值使曲面中出现最低点
% (3)用newlind()设计一网络使误差最小
net = newlind(p,t); 
a = sim(net,p);             % 对数p模拟计算网络 
sse = sumsqr(t-a);          % 神经元的残差平方和

plotep(net.IW{1,1},net.b{1},sse);   % plotep()用newlind()返回的权值
                                    % 和阀值绘制网络的“位置”
% (4)检验（测试）输入为-1.2时，是否得到正确的目标值：1
p = -1.2;
a = sim(net,p)