From: <sla...@us...> - 2009-04-09 21:41:24
|
Revision: 5690 http://octave.svn.sourceforge.net/octave/?rev=5690&view=rev Author: slackydeb Date: 2009-04-09 21:41:22 +0000 (Thu, 09 Apr 2009) Log Message: ----------- little style fixes Modified Paths: -------------- trunk/octave-forge/main/ga/inst/fitscalingrank.m trunk/octave-forge/main/ga/inst/rastriginsfcn.m Modified: trunk/octave-forge/main/ga/inst/fitscalingrank.m =================================================================== --- trunk/octave-forge/main/ga/inst/fitscalingrank.m 2009-04-09 21:38:17 UTC (rev 5689) +++ trunk/octave-forge/main/ga/inst/fitscalingrank.m 2009-04-09 21:41:22 UTC (rev 5690) @@ -1,4 +1,4 @@ -## Copyright (C) 2008 Luca Favatella <sla...@gm...> +## Copyright (C) 2008, 2009 Luca Favatella <sla...@gm...> ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by @@ -14,7 +14,7 @@ ## along with this program; If not, see <http://www.gnu.org/licenses/>. ## Author: Luca Favatella <sla...@gm...> -## Version: 1.3.2 +## Version: 1.3.3 function expectation = fitscalingrank (scores, nParents) nr_scores = rows (scores); @@ -28,6 +28,7 @@ expectation_wo_nParents; endfunction + %!shared scores, nParents, expectation %! scores = rand (20, 1); %! nParents = 32; Modified: trunk/octave-forge/main/ga/inst/rastriginsfcn.m =================================================================== --- trunk/octave-forge/main/ga/inst/rastriginsfcn.m 2009-04-09 21:38:17 UTC (rev 5689) +++ trunk/octave-forge/main/ga/inst/rastriginsfcn.m 2009-04-09 21:41:22 UTC (rev 5690) @@ -1,4 +1,4 @@ -## Copyright (C) 2008 Luca Favatella <sla...@gm...> +## Copyright (C) 2008, 2009 Luca Favatella <sla...@gm...> ## ## This program is free software; you can redistribute it and/or modify ## it under the terms of the GNU General Public License as published by @@ -19,11 +19,12 @@ ## @end deftypefn ## Author: Luca Favatella <sla...@gm...> -## Version: 1.2 +## Version: 1.2.1 function retval = rastriginsfcn (x) retval = 20 + (x(1) ** 2) + (x(2) ** 2) - 10 * (cos (2 * pi * x(1)) + cos (2 * pi * x(2))); endfunction + %!assert (rastriginsfcn ([0, 0]), 0) \ No newline at end of file This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site. |