1## Copyright (C) 2005 Michel D. Schmid <michaelschmid@users.sourceforge.net> 2## 3## 4## This program is free software; you can redistribute it and/or modify it 5## under the terms of the GNU General Public License as published by 6## the Free Software Foundation; either version 2, or (at your option) 7## any later version. 8## 9## This program is distributed in the hope that it will be useful, but 10## WITHOUT ANY WARRANTY; without even the implied warranty of 11## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 12## General Public License for more details. 13## 14## You should have received a copy of the GNU General Public License 15## along with this program; see the file COPYING. If not, see 16## <http://www.gnu.org/licenses/>. 17 18## -*- texinfo -*- 19## @deftypefn {Function File} {} @var{a} = __dpurelin (@var{n}) 20## @code{dpurelin}, first derivative of purelin 21## @example 22## 23## purelin is a linear transfer function used by neural networks 24## @end example 25## 26## @end deftypefn 27 28## Author: Michel D. Schmid 29 30function a = __dpurelin(n) 31 32 [nRows, nColumns] = size(n); 33 a = ones(nRows,nColumns); 34 35endfunction