function d = mydtf(n,a)
%MYDTF Example custom transfer derivative function of MYTF.
%
%  Use this function as a template to write your own function.
%  
%  This function is obselete.
%  Use TEMPLATE_TRANSFER to design your function.

nntobsf('mytf','Use TEMPLATE_TRANSFER to design your function.')

%  Use this function as a template to write your own function.
%  
%  Syntax
%
%    dA_dN = mydtf(N,A)
%      N - SxQ matrix of Q net input (column) vectors.
%      A - SxQ matrix of Q output (column) vectors.
%      dA_dN - SxQ derivative dA/dN.
%
%  Example
%
%    n = -5:.1:5;
%    a = mytf(n);
%    da_dn = mydtf(n,a);
%    subplot(2,1,1), plot(n,a)
%    subplot(2,1,2), plot(n,da_dn)

% Copyright 1997-2005 The MathWorks, Inc.
% $Revision: 1.1.6.1 $

% **  Replace the following calculation with your
% **  derivative calculation.

d = -8*n.^7.*a.^2;

% **  Note that you have both the transfer functions input N and
% **  output A available, which can often allow a more efficient
% **  calculation of the derivative than with just N.