25 lines
943 B
Mathematica
25 lines
943 B
Mathematica
|
% function [Grd,Fun] = testNN_Grd(w)
|
||
|
|
%
|
||
|
|
% Gradient wrapper file generated by ADiGator
|
||
|
|
% ©2010-2014 Matthew J. Weinstein and Anil V. Rao
|
||
|
|
% ADiGator may be obtained at https://sourceforge.net/projects/adigator/
|
||
|
|
% Contact: mweinstein@ufl.edu
|
||
|
|
% Bugs/suggestions may be reported to the sourceforge forums
|
||
|
|
% DISCLAIMER
|
||
|
|
% ADiGator is a general-purpose software distributed under the GNU General
|
||
|
|
% Public License version 3.0. While the software is distributed with the
|
||
|
|
% hope that it will be useful, both the software and generated code are
|
||
|
|
% provided 'AS IS' with NO WARRANTIES OF ANY KIND and no merchantability
|
||
|
|
% or fitness for any purpose or application.
|
||
|
|
|
||
|
|
function [Hes,Grd,Fun] = testNN_Hes(w)
|
||
|
|
gator_w.f = w;
|
||
|
|
gator_w.dw = ones(76,1);
|
||
|
|
v = testNN_ADiGatorHes(gator_w);
|
||
|
|
xind1 = v.dwdw_location(:,1);
|
||
|
|
xind2 = v.dwdw_location(:,2);
|
||
|
|
Hes = zeros(76,76);
|
||
|
|
Hes((xind2-1)*76 + xind1) = v.dwdw;
|
||
|
|
Grd = reshape(v.dw,[1 76]);
|
||
|
|
Fun = v.f;
|
||
|
|
end
|