508 lines
39 KiB
Matlab
508 lines
39 KiB
Matlab
% This code was generated using ADiGator version 1.4
|
|
% ©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 v = testNN_ADiGatorHes(w)
|
|
global ADiGator_testNN_ADiGatorHes
|
|
if isempty(ADiGator_testNN_ADiGatorHes); ADiGator_LoadData(); end
|
|
Gator1Data = ADiGator_testNN_ADiGatorHes.testNN_ADiGatorHes.Gator1Data;
|
|
Gator2Data = ADiGator_testNN_ADiGatorHes.testNN_ADiGatorHes.Gator2Data;
|
|
% ADiGator Start Derivative Computations
|
|
%User Line: %
|
|
%User Line: % v = testNN( w )
|
|
%User Line: %
|
|
%User Line: % returns the falue of the empirical error of the NN (or, in fact,
|
|
%User Line: % whatever function is encoded in 'roughNN()') with the weights contained
|
|
%User Line: % in w.
|
|
%User Line: %
|
|
%User Line: % The empirical error is estimated over a 288-strong input/output pair
|
|
%User Line: % ( X , y ), with X containing only one feature, that is hard-coded into
|
|
%User Line: % the function so that its gradient can be easily computed by ADiGator.
|
|
%User Line: %
|
|
%User Line: % Input:
|
|
%User Line: %
|
|
%User Line: % - w is the real vector containing the weights of the NN, see roughNN
|
|
%User Line: % for details
|
|
%User Line: %
|
|
%User Line: % Output:
|
|
%User Line: %
|
|
%User Line: % - the MSE of the error done by roughNN() on the given test set
|
|
%User Line: %
|
|
%User Line: %{
|
|
%User Line: % =======================================
|
|
%User Line: % Author: Antonio Frangioni
|
|
%User Line: % Date: 28-08-22
|
|
%User Line: % Version 1.00
|
|
%User Line: % Copyright Antonio Frangioni
|
|
%User Line: % =======================================
|
|
%User Line: %}
|
|
N.f = 288;
|
|
% Deriv 1 Line: N.f = 288;
|
|
%User Line: N = 288;
|
|
%User Line: % inputs
|
|
X.f = Gator2Data.Data1;
|
|
% Deriv 1 Line: X.f = [;0.0000000000000000;0.0034843205574913;0.0069686411149826;0.0104529616724739;0.0139372822299652;0.0174216027874564;0.0209059233449477;0.0243902439024390;0.0278745644599303;0.0313588850174216;0.0348432055749129;0.0383275261324042;0.0418118466898955;0.0452961672473868;0.0487804878048781;0.0522648083623693;0.0557491289198606;0.0592334494773519;0.0627177700348432;0.0662020905923345;0.0696864111498258;0.0731707317073171;0.0766550522648084;0.0801393728222996;0.0836236933797909;0.0871080139372822;0.0905923344947735;0.0940766550522648;0.0975609756097561;0.1010452961672474;0.1045296167247387;0.1080139372822300;0.1114982578397213;0.1149825783972125;0.1184668989547038;0.1219512195121951;0.1254355400696864;0.1289198606271777;0.1324041811846690;0.1358885017421603;0.1393728222996516;0.1428571428571428;0.1463414634146341;0.1498257839721254;0.1533101045296167;0.1567944250871080;0.1602787456445993;0.1637630662020906;0.1672473867595819;0.1707317073170732;0.1742160278745645;0.1777003484320558;0.1811846689895470;0.1846689895470383;0.1881533101045296;0.1916376306620209;0.1951219512195122;0.1986062717770035;0.2020905923344948;0.2055749128919861;0.2090592334494774;0.2125435540069686;0.2160278745644599;0.2195121951219512;0.2229965156794425;0.2264808362369338;0.2299651567944251;0.2334494773519164;0.2369337979094077;0.2404181184668990;0.2439024390243902;0.2473867595818815;0.2508710801393728;0.2543554006968641;0.2578397212543554;0.2613240418118467;0.2648083623693380;0.2682926829268293;0.2717770034843205;0.2752613240418119;0.2787456445993031;0.2822299651567944;0.2857142857142857;0.2891986062717770;0.2926829268292683;0.2961672473867596;0.2996515679442509;0.3031358885017422;0.3066202090592334;0.3101045296167247;0.3135888501742160;0.3170731707317073;0.3205574912891986;0.3240418118466899;0.3275261324041812;0.3310104529616725;0.3344947735191638;0.3379790940766551;0.3414634146341464;0.3449477351916376;0.3484320557491289;0.3519163763066202;0.3554006968641115;0.3588850174216028;0.3623693379790941;0.3658536585365854;0.3693379790940767;0.3728222996515679;0.3763066202090593;0.3797909407665505;0.3832752613240418;0.3867595818815331;0.3902439024390244;0.3937282229965157;0.3972125435540070;0.4006968641114982;0.4041811846689896;0.4076655052264808;0.4111498257839721;0.4146341463414634;0.4181184668989547;0.4216027874564460;0.4250871080139373;0.4285714285714285;0.4320557491289199;0.4355400696864111;0.4390243902439024;0.4425087108013937;0.4459930313588850;0.4494773519163763;0.4529616724738676;0.4564459930313589;0.4599303135888502;0.4634146341463415;0.4668989547038327;0.4703832752613241;0.4738675958188153;0.4773519163763066;0.4808362369337979;0.4843205574912892;0.4878048780487805;0.4912891986062718;0.4947735191637631;0.4982578397212544;0.5017421602787456;0.5052264808362370;0.5087108013937283;0.5121951219512195;0.5156794425087108;0.5191637630662020;0.5226480836236933;0.5261324041811847;0.5296167247386759;0.5331010452961673;0.5365853658536586;0.5400696864111498;0.5435540069686411;0.5470383275261324;0.5505226480836236;0.5540069686411150;0.5574912891986064;0.5609756097560976;0.5644599303135889;0.5679442508710801;0.5714285714285714;0.5749128919860627;0.5783972125435540;0.5818815331010453;0.5853658536585367;0.5888501742160279;0.5923344947735192;0.5958188153310104;0.5993031358885017;0.6027874564459930;0.6062717770034843;0.6097560975609756;0.6132404181184670;0.6167247386759582;0.6202090592334495;0.6236933797909407;0.6271777003484320;0.6306620209059233;0.6341463414634146;0.6376306620209059;0.6411149825783973;0.6445993031358885;0.6480836236933798;0.6515679442508711;0.6550522648083623;0.6585365853658536;0.6620209059233449;0.6655052264808362;0.6689895470383276;0.6724738675958188;0.6759581881533101;0.6794425087108014;0.6829268292682926;0.6864111498257840;0.6898954703832753;0.6933797909407666;0.6968641114982579;0.7003484320557491;0.7038327526132404;0.7073170731707317;0.7108013937282229;0.7142857142857143;0.7177700348432056;0.7212543554006969;0.7247386759581882;0.7282229965156795;0.7317073170731707;0.7351916376306620;0.7386759581881532;0.7421602787456446;0.7456445993031359;0.7491289198606272;0.7526132404181185;0.7560975609756098;0.7595818815331010;0.7630662020905923;0.7665505226480837;0.7700348432055749;0.7735191637630662;0.7770034843205575;0.7804878048780488;0.7839721254355401;0.7874564459930313;0.7909407665505226;0.7944250871080140;0.7979094076655052;0.8013937282229965;0.8048780487804879;0.8083623693379791;0.8118466898954704;0.8153310104529616;0.8188153310104529;0.8222996515679443;0.8257839721254355;0.8292682926829268;0.8327526132404182;0.8362369337979094;0.8397212543554007;0.8432055749128919;0.8466898954703833;0.8501742160278746;0.8536585365853658;0.8571428571428572;0.8606271777003485;0.8641114982578397;0.8675958188153310;0.8710801393728222;0.8745644599303136;0.8780487804878049;0.8815331010452961;0.8850174216027875;0.8885017421602788;0.8919860627177700;0.8954703832752613;0.8989547038327526;0.9024390243902439;0.9059233449477352;0.9094076655052264;0.9128919860627178;0.9163763066202091;0.9198606271777003;0.9233449477351916;0.9268292682926830;0.9303135888501742;0.9337979094076655;0.9372822299651568;0.9407665505226481;0.9442508710801394;0.9477351916376306;0.9512195121951219;0.9547038327526133;0.9581881533101045;0.9616724738675958;0.9651567944250871;0.9686411149825784;0.9721254355400697;0.9756097560975610;0.9790940766550522;0.9825783972125436;0.9860627177700348;0.9895470383275261;0.9930313588850174;0.9965156794425087;1.0000000000000000 ];
|
|
%User Line: X = [;0.0000000000000000;0.0034843205574913;0.0069686411149826;0.0104529616724739;0.0139372822299652;0.0174216027874564;0.0209059233449477;0.0243902439024390;0.0278745644599303;0.0313588850174216;0.0348432055749129;0.0383275261324042;0.0418118466898955;0.0452961672473868;0.0487804878048781;0.0522648083623693;0.0557491289198606;0.0592334494773519;0.0627177700348432;0.0662020905923345;0.0696864111498258;0.0731707317073171;0.0766550522648084;0.0801393728222996;0.0836236933797909;0.0871080139372822;0.0905923344947735;0.0940766550522648;0.0975609756097561;0.1010452961672474;0.1045296167247387;0.1080139372822300;0.1114982578397213;0.1149825783972125;0.1184668989547038;0.1219512195121951;0.1254355400696864;0.1289198606271777;0.1324041811846690;0.1358885017421603;0.1393728222996516;0.1428571428571428;0.1463414634146341;0.1498257839721254;0.1533101045296167;0.1567944250871080;0.1602787456445993;0.1637630662020906;0.1672473867595819;0.1707317073170732;0.1742160278745645;0.1777003484320558;0.1811846689895470;0.1846689895470383;0.1881533101045296;0.1916376306620209;0.1951219512195122;0.1986062717770035;0.2020905923344948;0.2055749128919861;0.2090592334494774;0.2125435540069686;0.2160278745644599;0.2195121951219512;0.2229965156794425;0.2264808362369338;0.2299651567944251;0.2334494773519164;0.2369337979094077;0.2404181184668990;0.2439024390243902;0.2473867595818815;0.2508710801393728;0.2543554006968641;0.2578397212543554;0.2613240418118467;0.2648083623693380;0.2682926829268293;0.2717770034843205;0.2752613240418119;0.2787456445993031;0.2822299651567944;0.2857142857142857;0.2891986062717770;0.2926829268292683;0.2961672473867596;0.2996515679442509;0.3031358885017422;0.3066202090592334;0.3101045296167247;0.3135888501742160;0.3170731707317073;0.3205574912891986;0.3240418118466899;0.3275261324041812;0.3310104529616725;0.3344947735191638;0.3379790940766551;0.3414634146341464;0.3449477351916376;0.3484320557491289;0.3519163763066202;0.3554006968641115;0.3588850174216028;0.3623693379790941;0.3658536585365854;0.3693379790940767;0.3728222996515679;0.3763066202090593;0.3797909407665505;0.3832752613240418;0.3867595818815331;0.3902439024390244;0.3937282229965157;0.3972125435540070;0.4006968641114982;0.4041811846689896;0.4076655052264808;0.4111498257839721;0.4146341463414634;0.4181184668989547;0.4216027874564460;0.4250871080139373;0.4285714285714285;0.4320557491289199;0.4355400696864111;0.4390243902439024;0.4425087108013937;0.4459930313588850;0.4494773519163763;0.4529616724738676;0.4564459930313589;0.4599303135888502;0.4634146341463415;0.4668989547038327;0.4703832752613241;0.4738675958188153;0.4773519163763066;0.4808362369337979;0.4843205574912892;0.4878048780487805;0.4912891986062718;0.4947735191637631;0.4982578397212544;0.5017421602787456;0.5052264808362370;0.5087108013937283;0.5121951219512195;0.5156794425087108;0.5191637630662020;0.5226480836236933;0.5261324041811847;0.5296167247386759;0.5331010452961673;0.5365853658536586;0.5400696864111498;0.5435540069686411;0.5470383275261324;0.5505226480836236;0.5540069686411150;0.5574912891986064;0.5609756097560976;0.5644599303135889;0.5679442508710801;0.5714285714285714;0.5749128919860627;0.5783972125435540;0.5818815331010453;0.5853658536585367;0.5888501742160279;0.5923344947735192;0.5958188153310104;0.5993031358885017;0.6027874564459930;0.6062717770034843;0.6097560975609756;0.6132404181184670;0.6167247386759582;0.6202090592334495;0.6236933797909407;0.6271777003484320;0.6306620209059233;0.6341463414634146;0.6376306620209059;0.6411149825783973;0.6445993031358885;0.6480836236933798;0.6515679442508711;0.6550522648083623;0.6585365853658536;0.6620209059233449;0.6655052264808362;0.6689895470383276;0.6724738675958188;0.6759581881533101;0.6794425087108014;0.6829268292682926;0.6864111498257840;0.6898954703832753;0.6933797909407666;0.6968641114982579;0.7003484320557491;0.7038327526132404;0.7073170731707317;0.7108013937282229;0.7142857142857143;0.7177700348432056;0.7212543554006969;0.7247386759581882;0.7282229965156795;0.7317073170731707;0.7351916376306620;0.7386759581881532;0.7421602787456446;0.7456445993031359;0.7491289198606272;0.7526132404181185;0.7560975609756098;0.7595818815331010;0.7630662020905923;0.7665505226480837;0.7700348432055749;0.7735191637630662;0.7770034843205575;0.7804878048780488;0.7839721254355401;0.7874564459930313;0.7909407665505226;0.7944250871080140;0.7979094076655052;0.8013937282229965;0.8048780487804879;0.8083623693379791;0.8118466898954704;0.8153310104529616;0.8188153310104529;0.8222996515679443;0.8257839721254355;0.8292682926829268;0.8327526132404182;0.8362369337979094;0.8397212543554007;0.8432055749128919;0.8466898954703833;0.8501742160278746;0.8536585365853658;0.8571428571428572;0.8606271777003485;0.8641114982578397;0.8675958188153310;0.8710801393728222;0.8745644599303136;0.8780487804878049;0.8815331010452961;0.8850174216027875;0.8885017421602788;0.8919860627177700;0.8954703832752613;0.8989547038327526;0.9024390243902439;0.9059233449477352;0.9094076655052264;0.9128919860627178;0.9163763066202091;0.9198606271777003;0.9233449477351916;0.9268292682926830;0.9303135888501742;0.9337979094076655;0.9372822299651568;0.9407665505226481;0.9442508710801394;0.9477351916376306;0.9512195121951219;0.9547038327526133;0.9581881533101045;0.9616724738675958;0.9651567944250871;0.9686411149825784;0.9721254355400697;0.9756097560975610;0.9790940766550522;0.9825783972125436;0.9860627177700348;0.9895470383275261;0.9930313588850174;0.9965156794425087;1.0000000000000000 ];
|
|
%User Line: % outputs
|
|
y.f = Gator2Data.Data2;
|
|
% Deriv 1 Line: y.f = [;0.096798166000;0.143459740000;0.208317990000;-0.038018393000;0.148793230000;0.512799550000;-0.120798510000;0.177158750000;0.083816932000;0.000756494710;0.006887211700;0.213572840000;0.493783350000;0.035274935000;0.243769090000;0.087417919000;0.476797600000;0.271438160000;0.178877000000;0.302770820000;0.219586200000;0.397548740000;0.215089090000;0.086588415000;0.304056660000;0.513946170000;0.113409000000;0.270068060000;0.471061630000;0.046628439000;0.443157150000;0.477349380000;0.411852220000;0.280063680000;0.410626170000;0.442082230000;0.585090200000;0.561297160000;0.426446760000;0.739395540000;0.506414480000;0.409925250000;0.483992110000;0.696575460000;0.615166110000;0.737349800000;0.632542540000;1.013287300000;0.408451860000;0.613835270000;0.681370910000;0.724988310000;0.947395900000;0.779004190000;0.745667780000;0.789666080000;0.908202240000;0.707755840000;0.894037990000;0.606428220000;0.843615470000;0.727874550000;0.784348430000;0.937189250000;0.737952220000;0.769620390000;0.701166820000;0.604155740000;0.924881630000;1.130475900000;0.936493470000;0.935667120000;0.819976810000;1.219958800000;0.949769640000;1.185254200000;1.048672000000;0.957402250000;1.160938800000;1.147023700000;0.983283410000;1.194051400000;1.265849000000;0.987167510000;0.956395550000;1.052589900000;1.041239900000;1.105649800000;0.941725790000;1.082398200000;1.127045200000;0.990602660000;0.980803460000;0.763155870000;0.768571290000;0.718186990000;0.743430540000;0.899271220000;0.672586160000;1.243876900000;1.009891400000;0.580803050000;0.709665650000;0.858643730000;0.609667610000;0.789520360000;1.014111700000;0.817911210000;0.824534040000;0.676622590000;0.735885580000;0.609022520000;0.859070820000;0.729465540000;0.907844320000;0.969161960000;0.938595000000;0.765435590000;0.688922170000;0.574990840000;0.770659830000;0.891310740000;0.690971710000;0.711048000000;0.824634750000;0.857126400000;0.510549630000;0.748820900000;0.744129450000;0.688191070000;0.841053850000;0.648943870000;0.576231820000;0.738291460000;0.762720980000;0.658108930000;0.807248650000;0.457323660000;0.521077750000;0.218860160000;0.755337450000;0.525976310000;0.634217410000;0.821176590000;0.675074910000;0.599022390000;0.535501720000;0.624415250000;0.748616920000;0.428448630000;0.643341520000;0.768654000000;0.435878620000;0.747073780000;0.746823840000;0.509674810000;0.413964070000;0.702246380000;0.756141550000;0.719368010000;0.744580020000;0.450466060000;0.713008860000;0.536099090000;0.536595750000;0.385158420000;0.781369420000;0.640457830000;0.762680940000;0.836824400000;0.437730550000;0.703038130000;0.603083350000;0.740709380000;0.768477480000;0.724346000000;0.477804350000;0.580883120000;0.639146320000;1.073252500000;0.783713950000;0.948384040000;0.663369380000;0.634232460000;0.696070360000;0.526957260000;0.794798220000;0.587766610000;0.408654360000;0.749043110000;0.387306230000;0.350567280000;0.675537030000;0.495158740000;0.507149810000;0.625867220000;0.583647850000;0.630796900000;0.712643020000;0.504536230000;0.504499780000;0.381836730000;0.647114640000;0.814415180000;0.618741310000;0.808727320000;0.824111580000;0.901249190000;0.910594790000;0.668334220000;0.652467030000;0.797380800000;0.699257390000;1.025428600000;1.022629700000;0.837597600000;0.766407010000;0.913657810000;0.744506570000;0.829397600000;0.773018020000;0.872046570000;1.028215500000;0.972177970000;1.033239200000;0.724398150000;0.887466840000;0.710846670000;0.912868530000;0.899725750000;1.039970600000;1.003988400000;0.929601600000;0.747319110000;0.742110530000;0.495198080000;0.724133980000;0.546209190000;0.904975290000;0.886555800000;0.756973180000;0.663691170000;0.725449860000;0.927661000000;0.871628610000;0.583857660000;0.657822350000;0.445564610000;0.654537190000;0.685853290000;0.690412010000;0.306045040000;0.591718740000;0.366728870000;0.420310670000;0.575582700000;0.482907520000;0.394669790000;0.491601190000;0.627475460000;0.270874460000;0.144405290000;0.155561360000;0.171715630000;0.196642150000;0.368318080000;-0.046015957000;0.287831380000;0.121822920000;0.390236930000;0.084253654000;0.201575720000;0.048222309000;0.075602342000;0.128340910000;0.123106810000;0.069294711000;0.308367180000;0.213239800000;0.401070710000;0.073746174000;0.268322470000;-0.213145400000;0.191332180000;0.145485930000;0.028213679000;0.183566020000;0.206160990000 ];
|
|
%User Line: y = [;0.096798166000;0.143459740000;0.208317990000;-0.038018393000;0.148793230000;0.512799550000;-0.120798510000;0.177158750000;0.083816932000;0.000756494710;0.006887211700;0.213572840000;0.493783350000;0.035274935000;0.243769090000;0.087417919000;0.476797600000;0.271438160000;0.178877000000;0.302770820000;0.219586200000;0.397548740000;0.215089090000;0.086588415000;0.304056660000;0.513946170000;0.113409000000;0.270068060000;0.471061630000;0.046628439000;0.443157150000;0.477349380000;0.411852220000;0.280063680000;0.410626170000;0.442082230000;0.585090200000;0.561297160000;0.426446760000;0.739395540000;0.506414480000;0.409925250000;0.483992110000;0.696575460000;0.615166110000;0.737349800000;0.632542540000;1.013287300000;0.408451860000;0.613835270000;0.681370910000;0.724988310000;0.947395900000;0.779004190000;0.745667780000;0.789666080000;0.908202240000;0.707755840000;0.894037990000;0.606428220000;0.843615470000;0.727874550000;0.784348430000;0.937189250000;0.737952220000;0.769620390000;0.701166820000;0.604155740000;0.924881630000;1.130475900000;0.936493470000;0.935667120000;0.819976810000;1.219958800000;0.949769640000;1.185254200000;1.048672000000;0.957402250000;1.160938800000;1.147023700000;0.983283410000;1.194051400000;1.265849000000;0.987167510000;0.956395550000;1.052589900000;1.041239900000;1.105649800000;0.941725790000;1.082398200000;1.127045200000;0.990602660000;0.980803460000;0.763155870000;0.768571290000;0.718186990000;0.743430540000;0.899271220000;0.672586160000;1.243876900000;1.009891400000;0.580803050000;0.709665650000;0.858643730000;0.609667610000;0.789520360000;1.014111700000;0.817911210000;0.824534040000;0.676622590000;0.735885580000;0.609022520000;0.859070820000;0.729465540000;0.907844320000;0.969161960000;0.938595000000;0.765435590000;0.688922170000;0.574990840000;0.770659830000;0.891310740000;0.690971710000;0.711048000000;0.824634750000;0.857126400000;0.510549630000;0.748820900000;0.744129450000;0.688191070000;0.841053850000;0.648943870000;0.576231820000;0.738291460000;0.762720980000;0.658108930000;0.807248650000;0.457323660000;0.521077750000;0.218860160000;0.755337450000;0.525976310000;0.634217410000;0.821176590000;0.675074910000;0.599022390000;0.535501720000;0.624415250000;0.748616920000;0.428448630000;0.643341520000;0.768654000000;0.435878620000;0.747073780000;0.746823840000;0.509674810000;0.413964070000;0.702246380000;0.756141550000;0.719368010000;0.744580020000;0.450466060000;0.713008860000;0.536099090000;0.536595750000;0.385158420000;0.781369420000;0.640457830000;0.762680940000;0.836824400000;0.437730550000;0.703038130000;0.603083350000;0.740709380000;0.768477480000;0.724346000000;0.477804350000;0.580883120000;0.639146320000;1.073252500000;0.783713950000;0.948384040000;0.663369380000;0.634232460000;0.696070360000;0.526957260000;0.794798220000;0.587766610000;0.408654360000;0.749043110000;0.387306230000;0.350567280000;0.675537030000;0.495158740000;0.507149810000;0.625867220000;0.583647850000;0.630796900000;0.712643020000;0.504536230000;0.504499780000;0.381836730000;0.647114640000;0.814415180000;0.618741310000;0.808727320000;0.824111580000;0.901249190000;0.910594790000;0.668334220000;0.652467030000;0.797380800000;0.699257390000;1.025428600000;1.022629700000;0.837597600000;0.766407010000;0.913657810000;0.744506570000;0.829397600000;0.773018020000;0.872046570000;1.028215500000;0.972177970000;1.033239200000;0.724398150000;0.887466840000;0.710846670000;0.912868530000;0.899725750000;1.039970600000;1.003988400000;0.929601600000;0.747319110000;0.742110530000;0.495198080000;0.724133980000;0.546209190000;0.904975290000;0.886555800000;0.756973180000;0.663691170000;0.725449860000;0.927661000000;0.871628610000;0.583857660000;0.657822350000;0.445564610000;0.654537190000;0.685853290000;0.690412010000;0.306045040000;0.591718740000;0.366728870000;0.420310670000;0.575582700000;0.482907520000;0.394669790000;0.491601190000;0.627475460000;0.270874460000;0.144405290000;0.155561360000;0.171715630000;0.196642150000;0.368318080000;-0.046015957000;0.287831380000;0.121822920000;0.390236930000;0.084253654000;0.201575720000;0.048222309000;0.075602342000;0.128340910000;0.123106810000;0.069294711000;0.308367180000;0.213239800000;0.401070710000;0.073746174000;0.268322470000;-0.213145400000;0.191332180000;0.145485930000;0.028213679000;0.183566020000;0.206160990000 ];
|
|
%User Line: % compute MSE of prediction on all ( X( i ) , y( i ) )
|
|
v.f = 0;
|
|
% Deriv 1 Line: v.f = 0;
|
|
%User Line: v = 0;
|
|
cadaforvar1.f = 1:N.f;
|
|
% Deriv 1 Line: cadaforvar1.f = 1:N.f;
|
|
%User Line: cadaforvar1 = 1 : N;
|
|
v.dw = Gator2Data.Data3;
|
|
% Deriv 1 Line: v.dw = zeros(76,1);
|
|
v.dwdw = zeros(5776,1);
|
|
for cadaforcount1 = 1:288
|
|
i.f = cadaforvar1.f(:,cadaforcount1);
|
|
% Deriv 1 Line: i.f = cadaforvar1.f(:,cadaforcount1);
|
|
%User Line: i = cadaforvar1(:,cadaforcount1);
|
|
cadainput2_1.dw = w.dw;
|
|
% Deriv 1 Line: cadainput2_1.dw = w.dw;
|
|
cadainput2_1.f = w.f;
|
|
% Deriv 1 Line: cadainput2_1.f = w.f;
|
|
%User Line: cadainput2_1 = w;
|
|
cadainput2_2.f = X.f(i.f);
|
|
% Deriv 1 Line: cadainput2_2.f = X.f(i.f);
|
|
%User Line: cadainput2_2 = X( i );
|
|
cadaoutput2_1 = ADiGator_roughNN(cadainput2_1,cadainput2_2);
|
|
% Call to function: ADiGator_roughNN
|
|
% Call to function: roughNN
|
|
cada1f1 = y.f(i.f);
|
|
% Deriv 1 Line: cada1f1 = y.f(i.f);
|
|
cada1f2dwdw = -cadaoutput2_1.dwdw;
|
|
cada1f2dw = uminus(cadaoutput2_1.dw);
|
|
% Deriv 1 Line: cada1f2dw = -cadaoutput2_1.dw;
|
|
cada1f2 = cada1f1 - cadaoutput2_1.f;
|
|
% Deriv 1 Line: cada1f2 = cada1f1 - cadaoutput2_1.f;
|
|
cada2f1dw = 1.*cada1f2.^(1-1).*cada1f2dw;
|
|
cada2f1 = cada1f2^1;
|
|
cada2f2dw = 2.*cada2f1dw;
|
|
cada2f2 = 2*cada2f1;
|
|
cada2tempdw = cada2f2dw(Gator2Data.Index1);
|
|
cada2tf1 = cada1f2dw(Gator2Data.Index2);
|
|
cada2td1 = cada2tf1(:).*cada2tempdw;
|
|
cada2td1(Gator2Data.Index3) = cada2td1(Gator2Data.Index3) + cada2f2.*cada1f2dwdw;
|
|
cada1f3dwdw = cada2td1;
|
|
cada1f3dw = cada2f2*cada1f2dw;
|
|
% Deriv 1 Line: cada1f3dw = 2.*cada1f2.^(2-1).*cada1f2dw;
|
|
cada1f3 = cada1f2^2;
|
|
% Deriv 1 Line: cada1f3 = cada1f2^2;
|
|
cada1td1dw = v.dwdw; cada1td1 = v.dw;
|
|
% Deriv 1 Line: cada1td1 = v.dw;
|
|
cada2td1 = cada1td1dw;
|
|
cada2td1 = cada2td1 + cada1f3dwdw;
|
|
cada1td1dw = cada2td1;
|
|
cada1td1 = cada1td1 + cada1f3dw;
|
|
% Deriv 1 Line: cada1td1 = cada1td1 + cada1f3dw;
|
|
v.dwdw = cada1td1dw; v.dw = cada1td1;
|
|
% Deriv 1 Line: v.dw = cada1td1;
|
|
v.f = v.f + cada1f3;
|
|
% Deriv 1 Line: v.f = v.f + cada1f3;
|
|
%User Line: v = v + ( y( i ) - cadaoutput2_1 )^2;
|
|
end
|
|
v.dwdw = v.dwdw./2;
|
|
v.dw = v.dw/2;
|
|
% Deriv 1 Line: v.dw = v.dw./2;
|
|
v.f = v.f/2;
|
|
% Deriv 1 Line: v.f = v.f/2;
|
|
%User Line: v = v / 2;
|
|
v.dw_size = 76;
|
|
% Deriv 1 Line: v.dw_size = 76;
|
|
v.dw_location = Gator1Data.Index1;
|
|
% Deriv 1 Line: v.dw_location = Gator1Data.Index1;
|
|
v.dwdw_size = [v.dw_size,76];
|
|
v.dwdw_location = [v.dw_location(Gator2Data.Index4,:), Gator2Data.Index5];
|
|
end
|
|
function v = ADiGator_roughNN(w,x)
|
|
global ADiGator_testNN_ADiGatorHes
|
|
Gator1Data = ADiGator_testNN_ADiGatorHes.ADiGator_roughNN.Gator1Data;
|
|
Gator2Data = ADiGator_testNN_ADiGatorHes.ADiGator_roughNN.Gator2Data;
|
|
% ADiGator Start Derivative Computations
|
|
%User Line: %
|
|
%User Line: % v = roughNN( w , x )
|
|
%User Line: %
|
|
%User Line: % returns the falue of the function v = f( x ) as currently estimated by
|
|
%User Line: % a small NN with 1 input, 1 output, 3 hidden layers of 5 nodes each, and
|
|
%User Line: % tanh activation function.
|
|
%User Line: %
|
|
%User Line: % Input:
|
|
%User Line: %
|
|
%User Line: % - w is the [ 76 x 1 ] real vector containing the weights of the NN,
|
|
%User Line: % i.e., w is made as follows:
|
|
%User Line: % [ 1 .. 5 ] are the [ 5 x 1 ] weigths of the first layer
|
|
%User Line: % [ 6 .. 10 ] are the [ 5 x 1 ] biases of the first layer
|
|
%User Line: % [ 11 .. 35 ] are the [ 5 x 5 ] weigths of the second layer
|
|
%User Line: % [ 36 .. 40 ] are the [ 5 x 1 ] biases of the second layer
|
|
%User Line: % [ 41 .. 65 ] are the [ 5 x 5 ] weigths of the third layer
|
|
%User Line: % [ 66 .. 70 ] are the [ 5 x 1 ] biases of the third layer
|
|
%User Line: % [ 71 .. 75 ] are the [ 5 x 1 ] weigths of the fourth (output) layer
|
|
%User Line: % [ 76 ] is the [ 1 x 1 ] bias of the fourth (output) layer
|
|
%User Line: %
|
|
%User Line: % - x is the real scalar containing the input of f()
|
|
%User Line: %
|
|
%User Line: % Output:
|
|
%User Line: %
|
|
%User Line: % - v (real, scalar): v = f( x ) as estimated by the NN with weights w
|
|
%User Line: %
|
|
%User Line: %{
|
|
%User Line: % =======================================
|
|
%User Line: % Author: Antonio Frangioni
|
|
%User Line: % Date: 28-08-22
|
|
%User Line: % Version 1.00
|
|
%User Line: % Copyright Antonio Frangioni
|
|
%User Line: % =======================================
|
|
%User Line: %}
|
|
cada1f2 = Gator1Data.Data1*x.f;
|
|
% Deriv 1 Line: cada1f2 = Gator1Data.Data1*x.f;
|
|
cada1f3dw = w.dw(Gator1Data.Index1);
|
|
% Deriv 1 Line: cada1f3dw = w.dw(Gator1Data.Index1);
|
|
cada1f3 = w.f(Gator1Data.Index9);
|
|
% Deriv 1 Line: cada1f3 = w.f(Gator1Data.Index9);
|
|
cada2f1 = cada1f2(:);
|
|
cada1f4dw = cada2f1.*cada1f3dw;
|
|
% Deriv 1 Line: cada1f4dw = cada1f2(:).*cada1f3dw;
|
|
cada1f4 = cada1f2.*cada1f3;
|
|
% Deriv 1 Line: cada1f4 = cada1f2.*cada1f3;
|
|
cada1f5dw = w.dw(Gator1Data.Index2);
|
|
% Deriv 1 Line: cada1f5dw = w.dw(Gator1Data.Index2);
|
|
cada1f5 = w.f(Gator1Data.Index10);
|
|
% Deriv 1 Line: cada1f5 = w.f(Gator1Data.Index10);
|
|
cada1td1 = zeros(10,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(10,1);
|
|
cada1td1(Gator1Data.Index11) = cada1f4dw;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index11) = cada1f4dw;
|
|
cada2f1 = cada1td1(Gator1Data.Index12);
|
|
cada2f2 = cada2f1 + cada1f5dw;
|
|
cada1td1(Gator1Data.Index12) = cada2f2;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index12) = cada1td1(Gator1Data.Index12) + cada1f5dw;
|
|
cada1f6dw = cada1td1;
|
|
% Deriv 1 Line: cada1f6dw = cada1td1;
|
|
cada1f6 = cada1f4 + cada1f5;
|
|
% Deriv 1 Line: cada1f6 = cada1f4 + cada1f5;
|
|
cada1tf1dw = cada1f6dw(Gator2Data.Index1);
|
|
cada1tf1 = cada1f6(Gator1Data.Index13);
|
|
% Deriv 1 Line: cada1tf1 = cada1f6(Gator1Data.Index13);
|
|
cada2f1dw = cada1tf1dw(Gator2Data.Index2);
|
|
cada2f1 = cada1tf1(:);
|
|
cada2tf1 = cada2f1(Gator2Data.Index28);
|
|
cada2f2dw = -sech(cada2tf1(:)).*tanh(cada2tf1(:)).*cada2f1dw;
|
|
cada2f2 = sech(cada2f1);
|
|
cada2tf2 = cada2f2(Gator2Data.Index29);
|
|
cada2f3dw = 2.*cada2tf2(:).^(2-1).*cada2f2dw;
|
|
cada2f3 = cada2f2.^2;
|
|
cada2tf1 = cada1f6dw(Gator2Data.Index30);
|
|
g.dwdw = cada2tf1(:).*cada2f3dw;
|
|
g.dw = cada2f3.*cada1f6dw;
|
|
% Deriv 1 Line: g.dw = sech(cada1tf1(:)).^2.*cada1f6dw;
|
|
g.f = tanh(cada1f6);
|
|
% Deriv 1 Line: g.f = tanh(cada1f6);
|
|
%User Line: g = tanh( ( ones( 5 , 1 ) * x ) .* w( 1 : 5 ) + w( 6 : 10 ) );
|
|
cada1f1dw = w.dw(Gator1Data.Index3);
|
|
% Deriv 1 Line: cada1f1dw = w.dw(Gator1Data.Index3);
|
|
cada1f1 = w.f(Gator1Data.Index14);
|
|
% Deriv 1 Line: cada1f1 = w.f(Gator1Data.Index14);
|
|
cada1f2dw = cada1f1dw;
|
|
% Deriv 1 Line: cada1f2dw = cada1f1dw;
|
|
cada1f2 = reshape(cada1f1,5,5);
|
|
% Deriv 1 Line: cada1f2 = reshape(cada1f1,5,5);
|
|
cada1f3 = 5;
|
|
% Deriv 1 Line: cada1f3 = 5;
|
|
cada1td2 = zeros(5,25);
|
|
% Deriv 1 Line: cada1td2 = zeros(5,25);
|
|
cada1td2(Gator1Data.Index15) = cada1f2dw;
|
|
% Deriv 1 Line: cada1td2(Gator1Data.Index15) = cada1f2dw;
|
|
cada2f1dw = g.dw;
|
|
cada2f1 = g.f.';
|
|
cada2td1 = zeros(5,10);
|
|
cada2td1(Gator2Data.Index31) = cada2f1dw;
|
|
cada2td1 = cada1td2.'*cada2td1;
|
|
cada2td1 = cada2td1(:);
|
|
cada1td2dw = cada2td1(Gator2Data.Index32);
|
|
cada1td2 = cada2f1*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = g.f.'*cada1td2;
|
|
cada1td1 = zeros(75,1);
|
|
cada1td1dw = zeros(200,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(75,1);
|
|
cada2f1dw = cada1td2dw(Gator2Data.Index3);
|
|
cada2f1 = cada1td2(Gator1Data.Index16);
|
|
cada1td1dw(logical(Gator2Data.Index16)) = cada2f1dw(nonzeros(Gator2Data.Index16));
|
|
cada1td1(Gator1Data.Index17) = cada2f1;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index17) = cada1td2(Gator1Data.Index16);
|
|
cada1td2 = zeros(5,10);
|
|
cada1td2dw = zeros(20,1);
|
|
% Deriv 1 Line: cada1td2 = zeros(5,10);
|
|
cada1td2dw = g.dwdw(Gator2Data.Index17);
|
|
cada1td2(Gator1Data.Index18) = g.dw;
|
|
% Deriv 1 Line: cada1td2(Gator1Data.Index18) = g.dw;
|
|
cada2td2 = zeros(5,25);
|
|
cada2td2(Gator2Data.Index33) = cada1f2dw;
|
|
cada2td2 = cada1td2.'*cada2td2;
|
|
cada2td1 = zeros(150,1);
|
|
cada2td1(Gator2Data.Index35) = cada2td2(Gator2Data.Index34);
|
|
cada2td2 = zeros(5,20);
|
|
cada2td2(Gator2Data.Index36) = cada1td2dw;
|
|
cada2td2 = cada1f2*cada2td2;
|
|
cada2td2 = cada2td2(:);
|
|
cada2td1(Gator2Data.Index38) = cada2td1(Gator2Data.Index38) + cada2td2(Gator2Data.Index37);
|
|
cada1td2dw = cada2td1;
|
|
cada1td2 = cada1f2*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = cada1f2*cada1td2;
|
|
cada1td2dw = cada1td2dw(Gator2Data.Index4);
|
|
cada1td2 = cada1td2(:);
|
|
% Deriv 1 Line: cada1td2 = cada1td2(:);
|
|
cada2f1 = cada1td1(Gator1Data.Index20);
|
|
cada2f2dw = cada1td2dw(Gator2Data.Index5);
|
|
cada2f2 = cada1td2(Gator1Data.Index19);
|
|
cada2f3dw = cada2f2dw;
|
|
cada2f3 = cada2f1 + cada2f2;
|
|
cada1td1dw(logical(Gator2Data.Index18)) = cada2f3dw(nonzeros(Gator2Data.Index18));
|
|
cada1td1(Gator1Data.Index20) = cada2f3;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index20) = cada1td1(Gator1Data.Index20) + cada1td2(Gator1Data.Index19);
|
|
cada1f4dwdw = cada1td1dw; cada1f4dw = cada1td1;
|
|
% Deriv 1 Line: cada1f4dw = cada1td1;
|
|
cada1f4 = cada1f2*g.f;
|
|
% Deriv 1 Line: cada1f4 = cada1f2*g.f;
|
|
cada1f5dw = w.dw(Gator1Data.Index4);
|
|
% Deriv 1 Line: cada1f5dw = w.dw(Gator1Data.Index4);
|
|
cada1f5 = w.f(Gator1Data.Index21);
|
|
% Deriv 1 Line: cada1f5 = w.f(Gator1Data.Index21);
|
|
cada1td1 = zeros(80,1);
|
|
cada1td1dw = zeros(200,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(80,1);
|
|
cada1td1dw = cada1f4dwdw(Gator2Data.Index19);
|
|
cada1td1(Gator1Data.Index22) = cada1f4dw;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index22) = cada1f4dw;
|
|
cada2f1 = cada1td1(Gator1Data.Index23);
|
|
cada2f2 = cada2f1 + cada1f5dw;
|
|
cada1td1(Gator1Data.Index23) = cada2f2;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index23) = cada1td1(Gator1Data.Index23) + cada1f5dw;
|
|
cada1f6dwdw = cada1td1dw; cada1f6dw = cada1td1;
|
|
% Deriv 1 Line: cada1f6dw = cada1td1;
|
|
cada1f6 = cada1f4 + cada1f5;
|
|
% Deriv 1 Line: cada1f6 = cada1f4 + cada1f5;
|
|
cada1tf1dw = cada1f6dw(Gator2Data.Index6);
|
|
cada1tf1 = cada1f6(Gator1Data.Index24);
|
|
% Deriv 1 Line: cada1tf1 = cada1f6(Gator1Data.Index24);
|
|
cada2f1dw = cada1tf1dw(Gator2Data.Index7);
|
|
cada2f1 = cada1tf1(:);
|
|
cada2tf1 = cada2f1(Gator2Data.Index39);
|
|
cada2f2dw = -sech(cada2tf1(:)).*tanh(cada2tf1(:)).*cada2f1dw;
|
|
cada2f2 = sech(cada2f1);
|
|
cada2tf2 = cada2f2(Gator2Data.Index40);
|
|
cada2f3dw = 2.*cada2tf2(:).^(2-1).*cada2f2dw;
|
|
cada2f3 = cada2f2.^2;
|
|
cada2tf1 = cada1f6dw(Gator2Data.Index41);
|
|
cada2td1 = cada2tf1(:).*cada2f3dw;
|
|
cada2tf1 = cada2f3(Gator2Data.Index42);
|
|
cada2td1(Gator2Data.Index43) = cada2td1(Gator2Data.Index43) + cada2tf1(:).*cada1f6dwdw;
|
|
g.dwdw = cada2td1;
|
|
g.dw = cada2f3.*cada1f6dw;
|
|
% Deriv 1 Line: g.dw = sech(cada1tf1(:)).^2.*cada1f6dw;
|
|
g.f = tanh(cada1f6);
|
|
% Deriv 1 Line: g.f = tanh(cada1f6);
|
|
%User Line: g = tanh( reshape( w( 11 : 35 ) , [ 5 5 ] ) * g + w( 36 : 40 ) );
|
|
cada1f1dw = w.dw(Gator1Data.Index5);
|
|
% Deriv 1 Line: cada1f1dw = w.dw(Gator1Data.Index5);
|
|
cada1f1 = w.f(Gator1Data.Index25);
|
|
% Deriv 1 Line: cada1f1 = w.f(Gator1Data.Index25);
|
|
cada1f2dw = cada1f1dw;
|
|
% Deriv 1 Line: cada1f2dw = cada1f1dw;
|
|
cada1f2 = reshape(cada1f1,5,5);
|
|
% Deriv 1 Line: cada1f2 = reshape(cada1f1,5,5);
|
|
cada1f3 = 5;
|
|
% Deriv 1 Line: cada1f3 = 5;
|
|
cada1td2 = zeros(5,25);
|
|
% Deriv 1 Line: cada1td2 = zeros(5,25);
|
|
cada1td2(Gator1Data.Index26) = cada1f2dw;
|
|
% Deriv 1 Line: cada1td2(Gator1Data.Index26) = cada1f2dw;
|
|
cada2f1dw = g.dw;
|
|
cada2f1 = g.f.';
|
|
cada2td1 = zeros(5,40);
|
|
cada2td1(Gator2Data.Index44) = cada2f1dw;
|
|
cada2td1 = cada1td2.'*cada2td1;
|
|
cada2td1 = cada2td1(:);
|
|
cada1td2dw = cada2td1(Gator2Data.Index45);
|
|
cada1td2 = cada2f1*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = g.f.'*cada1td2;
|
|
cada1td1 = zeros(225,1);
|
|
cada1td1dw = zeros(5200,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(225,1);
|
|
cada2f1dw = cada1td2dw(Gator2Data.Index8);
|
|
cada2f1 = cada1td2(Gator1Data.Index27);
|
|
cada1td1dw(logical(Gator2Data.Index20)) = cada2f1dw(nonzeros(Gator2Data.Index20));
|
|
cada1td1(Gator1Data.Index28) = cada2f1;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index28) = cada1td2(Gator1Data.Index27);
|
|
cada1td2 = zeros(5,40);
|
|
cada1td2dw = zeros(1280,1);
|
|
% Deriv 1 Line: cada1td2 = zeros(5,40);
|
|
cada1td2dw = g.dwdw(Gator2Data.Index21);
|
|
cada1td2(Gator1Data.Index29) = g.dw;
|
|
% Deriv 1 Line: cada1td2(Gator1Data.Index29) = g.dw;
|
|
cada2td2 = zeros(5,25);
|
|
cada2td2(Gator2Data.Index46) = cada1f2dw;
|
|
cada2td2 = cada1td2.'*cada2td2;
|
|
cada2td1 = zeros(4800,1);
|
|
cada2td1(Gator2Data.Index48) = cada2td2(Gator2Data.Index47);
|
|
cada2td2 = sparse(Gator2Data.Index49,Gator2Data.Index50,cada1td2dw,5,880);
|
|
cada2td2 = cada1f2*cada2td2;
|
|
cada2td2 = cada2td2(:);
|
|
cada2td1(Gator2Data.Index52) = cada2td1(Gator2Data.Index52) + cada2td2(Gator2Data.Index51);
|
|
cada1td2dw = cada2td1;
|
|
cada1td2 = cada1f2*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = cada1f2*cada1td2;
|
|
cada1td2dw = cada1td2dw(Gator2Data.Index9);
|
|
cada1td2 = cada1td2(:);
|
|
% Deriv 1 Line: cada1td2 = cada1td2(:);
|
|
cada2f1 = cada1td1(Gator1Data.Index31);
|
|
cada2f2dw = cada1td2dw(Gator2Data.Index10);
|
|
cada2f2 = cada1td2(Gator1Data.Index30);
|
|
cada2f3dw = cada2f2dw;
|
|
cada2f3 = cada2f1 + cada2f2;
|
|
cada1td1dw(logical(Gator2Data.Index22)) = cada2f3dw(nonzeros(Gator2Data.Index22));
|
|
cada1td1(Gator1Data.Index31) = cada2f3;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index31) = cada1td1(Gator1Data.Index31) + cada1td2(Gator1Data.Index30);
|
|
cada1f4dwdw = cada1td1dw; cada1f4dw = cada1td1;
|
|
% Deriv 1 Line: cada1f4dw = cada1td1;
|
|
cada1f4 = cada1f2*g.f;
|
|
% Deriv 1 Line: cada1f4 = cada1f2*g.f;
|
|
cada1f5dw = w.dw(Gator1Data.Index6);
|
|
% Deriv 1 Line: cada1f5dw = w.dw(Gator1Data.Index6);
|
|
cada1f5 = w.f(Gator1Data.Index32);
|
|
% Deriv 1 Line: cada1f5 = w.f(Gator1Data.Index32);
|
|
cada1td1 = zeros(230,1);
|
|
cada1td1dw = zeros(5200,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(230,1);
|
|
cada1td1dw = cada1f4dwdw(Gator2Data.Index23);
|
|
cada1td1(Gator1Data.Index33) = cada1f4dw;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index33) = cada1f4dw;
|
|
cada2f1 = cada1td1(Gator1Data.Index34);
|
|
cada2f2 = cada2f1 + cada1f5dw;
|
|
cada1td1(Gator1Data.Index34) = cada2f2;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index34) = cada1td1(Gator1Data.Index34) + cada1f5dw;
|
|
cada1f6dwdw = cada1td1dw; cada1f6dw = cada1td1;
|
|
% Deriv 1 Line: cada1f6dw = cada1td1;
|
|
cada1f6 = cada1f4 + cada1f5;
|
|
% Deriv 1 Line: cada1f6 = cada1f4 + cada1f5;
|
|
cada1tf1dw = cada1f6dw(Gator2Data.Index11);
|
|
cada1tf1 = cada1f6(Gator1Data.Index35);
|
|
% Deriv 1 Line: cada1tf1 = cada1f6(Gator1Data.Index35);
|
|
cada2f1dw = cada1tf1dw(Gator2Data.Index12);
|
|
cada2f1 = cada1tf1(:);
|
|
cada2tf1 = cada2f1(Gator2Data.Index53);
|
|
cada2f2dw = -sech(cada2tf1(:)).*tanh(cada2tf1(:)).*cada2f1dw;
|
|
cada2f2 = sech(cada2f1);
|
|
cada2tf2 = cada2f2(Gator2Data.Index54);
|
|
cada2f3dw = 2.*cada2tf2(:).^(2-1).*cada2f2dw;
|
|
cada2f3 = cada2f2.^2;
|
|
cada2tf1 = cada1f6dw(Gator2Data.Index55);
|
|
cada2td1 = cada2tf1(:).*cada2f3dw;
|
|
cada2tf1 = cada2f3(Gator2Data.Index56);
|
|
cada2td1(Gator2Data.Index57) = cada2td1(Gator2Data.Index57) + cada2tf1(:).*cada1f6dwdw;
|
|
g.dwdw = cada2td1;
|
|
g.dw = cada2f3.*cada1f6dw;
|
|
% Deriv 1 Line: g.dw = sech(cada1tf1(:)).^2.*cada1f6dw;
|
|
g.f = tanh(cada1f6);
|
|
% Deriv 1 Line: g.f = tanh(cada1f6);
|
|
%User Line: g = tanh( reshape( w( 41 : 65 ) , [ 5 5 ] ) * g + w( 66 : 70 ) );
|
|
cada1f1dw = w.dw(Gator1Data.Index7);
|
|
% Deriv 1 Line: cada1f1dw = w.dw(Gator1Data.Index7);
|
|
cada1f1 = w.f(Gator1Data.Index36);
|
|
% Deriv 1 Line: cada1f1 = w.f(Gator1Data.Index36);
|
|
cada1f2dwdw = g.dwdw; cada1f2dw = g.dw;
|
|
% Deriv 1 Line: cada1f2dw = g.dw;
|
|
cada1f2 = g.f.';
|
|
% Deriv 1 Line: cada1f2 = g.f.';
|
|
cada1f3 = 5;
|
|
% Deriv 1 Line: cada1f3 = 5;
|
|
cada2td1 = zeros(10580,1);
|
|
cada2td1 = cada1f2dwdw(Gator2Data.Index27);
|
|
cada1td2dw = cada2td1;
|
|
cada1td2 = sparse(Gator1Data.Index37,Gator1Data.Index38,cada1f2dw,5,70);
|
|
% Deriv 1 Line: cada1td2 = sparse(Gator1Data.Index37,Gator1Data.Index38,cada1f2dw,5,70);
|
|
cada2f1dw = cada1f1dw;
|
|
cada2f1 = cada1f1.';
|
|
cada2td2 = zeros(5,5);
|
|
cada2td2(Gator2Data.Index58) = cada2f1dw;
|
|
cada2td2 = cada1td2.'*cada2td2;
|
|
cada2td1 = zeros(4410,1);
|
|
cada2td1(Gator2Data.Index60) = cada2td2(Gator2Data.Index59);
|
|
cada2td2 = sparse(Gator2Data.Index61,Gator2Data.Index62,cada1td2dw,5,4180);
|
|
cada2td2 = cada2f1*cada2td2;
|
|
cada2td2 = cada2td2(:);
|
|
cada2td1(Gator2Data.Index64) = cada2td1(Gator2Data.Index64) + cada2td2(Gator2Data.Index63);
|
|
cada1td2dw = cada2td1;
|
|
cada1td2 = cada2f1*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = cada1f1.'*cada1td2;
|
|
cada1td1 = zeros(75,1);
|
|
cada1td1dw = zeros(4640,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(75,1);
|
|
cada2f1dw = cada1td2dw(Gator2Data.Index13);
|
|
cada2f1 = cada1td2(Gator1Data.Index39);
|
|
cada1td1dw(logical(Gator2Data.Index24)) = cada2f1dw(nonzeros(Gator2Data.Index24));
|
|
cada1td1(Gator1Data.Index40) = cada2f1;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index40) = cada1td2(Gator1Data.Index39);
|
|
cada1td2 = zeros(5,5);
|
|
% Deriv 1 Line: cada1td2 = zeros(5,5);
|
|
cada1td2(Gator1Data.Index41) = cada1f1dw;
|
|
% Deriv 1 Line: cada1td2(Gator1Data.Index41) = cada1f1dw;
|
|
cada2td1 = sparse(Gator2Data.Index65,Gator2Data.Index66,cada1f2dw,5,70);
|
|
cada2td1 = cada1td2.'*cada2td1;
|
|
cada2td1 = cada2td1(:);
|
|
cada1td2dw = full(cada2td1(Gator2Data.Index67));
|
|
cada1td2 = cada1f2*cada1td2;
|
|
% Deriv 1 Line: cada1td2 = cada1f2*cada1td2;
|
|
cada1td2dw = cada1td2dw(Gator2Data.Index14);
|
|
cada1td2 = cada1td2(:);
|
|
% Deriv 1 Line: cada1td2 = cada1td2(:);
|
|
cada2f1 = cada1td1(Gator1Data.Index43);
|
|
cada2f2dw = cada1td2dw(Gator2Data.Index15);
|
|
cada2f2 = cada1td2(Gator1Data.Index42);
|
|
cada2f3dw = cada2f2dw;
|
|
cada2f3 = cada2f1 + cada2f2;
|
|
cada1td1dw(logical(Gator2Data.Index25)) = cada2f3dw(nonzeros(Gator2Data.Index25));
|
|
cada1td1(Gator1Data.Index43) = cada2f3;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index43) = cada1td1(Gator1Data.Index43) + cada1td2(Gator1Data.Index42);
|
|
cada1f4dwdw = cada1td1dw; cada1f4dw = cada1td1;
|
|
% Deriv 1 Line: cada1f4dw = cada1td1;
|
|
cada1f4 = cada1f2*cada1f1;
|
|
% Deriv 1 Line: cada1f4 = cada1f2*cada1f1;
|
|
cada1f5dw = w.dw(Gator1Data.Index8);
|
|
% Deriv 1 Line: cada1f5dw = w.dw(Gator1Data.Index8);
|
|
cada1f5 = w.f(76);
|
|
% Deriv 1 Line: cada1f5 = w.f(76);
|
|
cada1td1 = zeros(76,1);
|
|
cada1td1dw = zeros(4640,1);
|
|
% Deriv 1 Line: cada1td1 = zeros(76,1);
|
|
cada1td1dw = cada1f4dwdw(Gator2Data.Index26);
|
|
cada1td1(Gator1Data.Index44) = cada1f4dw;
|
|
% Deriv 1 Line: cada1td1(Gator1Data.Index44) = cada1f4dw;
|
|
cada2f1 = cada1td1(76);
|
|
cada2f2 = cada2f1 + cada1f5dw;
|
|
cada1td1(76) = cada2f2;
|
|
% Deriv 1 Line: cada1td1(76) = cada1td1(76) + cada1f5dw;
|
|
v.dwdw = cada1td1dw; v.dw = cada1td1;
|
|
% Deriv 1 Line: v.dw = cada1td1;
|
|
v.f = cada1f4 + cada1f5;
|
|
% Deriv 1 Line: v.f = cada1f4 + cada1f5;
|
|
%User Line: v = g' * w( 71 : 75 ) + w( 76 );
|
|
end
|
|
|
|
|
|
function ADiGator_LoadData()
|
|
global ADiGator_testNN_ADiGatorHes
|
|
ADiGator_testNN_ADiGatorHes = load('testNN_ADiGatorHes.mat');
|
|
return
|
|
end |