learnlm.m

matlab 模式识别工具包 希望能对你们有用

function j = learnlm(p,d)
%LEARNLM Levenberg-Marquardt learning rule.
%	
%	LEARNLM(P,D)
%	  P  - RxQ matrix of input (column) vectors.
%	  D  - SxQ matrix of delta (column) vectors.
%	Returns:
%	  Partial jacobian matrix.
%	
%	See also NNLEARN, BACKPROP, INITFF, SIMFF, TRAINLM.

% Mark Beale, 12-15-93
% Copyright (c) 1992-94 by the MathWorks, Inc.
% $Revision: 1.1 $  $Date: 1994/01/11 16:25:19 $

if nargin < 2, error('Wrong number of arguments.'),end

[R,Q]=size(p);
[S,Q]=size(d);
j = nncpy(d',R) .* nncpyi(p',S);