fademo.m

新的神经网络算法源程序

%Fademo:
%
% =================================================
%  Demonstration of the WaveNet: 1-D Interpolation
% =================================================
%
%Use the mouse to select a set of points in the graphics window which will
%be interpolated by a WaveNet.
%
%    Left   button: select a point
%    Middle button: delete a point
%    Right  button: terminate input
%
%Press RETURN while keeping the mouse pointer in the graphics window
%to terminate inputs. 
%
%If there are two column vectors x, y of the same length in the MATLAB 
%work space, they are used as already selected samples. Clear them if you 
%wouldn't start with them.

% By Qinghua Zhang. March, 1994.

help fademo

%fprintf(' Strike any key to start inputs.\n\n'); pause

%check if there are already defined data
%=======================================
if (exist('x') == 1) & (exist('y') == 1)
  [xl,xc] = size(x); [yl,yc] = size(y);
  if (xc ~= 1) | (yc ~= 1) | (xl ~= yl)
    x = [];
    y = []; 
  end
else
  x = [];
  y = [];
end

disp(' Running graphics input utility...');

%Get Input-output tagets
%========================
[x, y] = ptinput(10,x',y'); x=x'; y=y';

%Input parameters
%=================

nbwavelon=input('Number of wavelets [Default=auto] = ');
if isempty(nbwavelon)
  nbwavelon = [];
end

max_epoch=input('Maximum number of epochs of training [Default=40] = ');
if isempty(max_epoch)
  max_epoch = 40;
end

initmode=input('Initialization mode [Default=2] = ');
if isempty(initmode)
  initmode = 2;
end

min_nbw=input( 'min_nbw = [Default=auto] ');

levels=input( 'levels = [Default=auto] ');


disp(' ');

% Call the training procedure
%=============================

th = wnetreg(y, x, nbwavelon, max_epoch, initmode, min_nbw, levels);