Documentation of objfun1

Global Index (all files) (short | long) | Local contents | Local Index (files in subdir) (short | long)

Function Synopsis

ObjVal = objfun1(Chrom, P1, P2);

Help text

 OBJective function for de jong's FUNction 1

 This function implements the DE JONG function 1.

 Syntax:  ObjVal = objfun1(Chrom, P1, P2)

 Input parameters:
    Chrom     - Matrix containing the chromosomes of the current
                population. Each row corresponds to one individual's
                string representation.
                if Chrom == [NaN xxx], then special values will be returned
                xxx == 1 (or []) return boundaries
                xxx == 2 return title
                xxx == 3 return value of global minimum
    P1, P2    - Additional parameter

 Output parameters:
    ObjVal    - Column vector containing the objective values of the
                individuals in the current population.
                if called with Chrom == [NaN xxx], then ObjVal contains
                xxx == 1, matrix with the boundaries of the function
                xxx == 2, text for the title of the graphic output
                xxx == 3, value of global minimum
                
 See also: objfun1a, objfun1b, objfun2, objfun6, objfun7, objfun8, objfun9, objfun10, initfun1

Cross-Reference Information

Listing of function objfun1

% Author:   Hartmut Pohlheim
% History:  26.11.93    file created
%           27.11.93    text of title and P1 added
%           30.11.93    show Dim in figure titel
%           16.12.93    P1 == 3, return value of global minimum
%           01.03.94    name changed in obj*
%           17.02.95    direct Dim removed and function cleaned
%           22.06.99    parameter returning interface changed to [NaN xxx]
%                          but still compatible with old calling


function ObjVal = objfun1(Chrom, P1, P2);

% Compute population parameters
   [Nind, Nvar] = size(Chrom);

% Check size of Chrom and do the appropriate thing
   % if Chrom is [], then reset to [NaN P1]
   if isempty(Chrom),
      if nargin < 2, P1 = []; end, if isempty(P1), P1 = 1; end
      Chrom = [NaN, P1]; Nind = 1;
   end
   % if Chrom is [NaN xxx] define size of boundary-matrix and others
   if all([Nind == 1, isnan(Chrom(1))]),
      % If only NaN is provided
      if length(Chrom) == 1, option = 1; else option = Chrom(2); end
      % Default dimension of objective function
      Dim = 20;
      % return text of title for graphic output
      if option == 2, ObjVal = ['DE JONGs function 1'];
      % return value of global minimum
      elseif option == 3, ObjVal = 0;
      % define size of boundary-matrix and values
      else   
         % lower and upper bound, identical for all n variables        
         ObjVal = repmat([-512; 512], [1 Dim]);
      end

   % compute values of function
   else
      % function 1, sum of xi^2 for i = 1:Nvar (Nvar = 30)
      % n = Nvar, -512 <= xi <= 512
      % global minimum at (xi) = (0) ; fmin = 0
      variant = 0;
      if variant == 0,
         ObjVal = sum((Chrom .* Chrom)')';
         % ObjVal = [Inf * ones(Nind,1)];%  NaN * ones(5,1)];   % stuff for NaN and Inf tests
      else
         ObjVal = zeros(Nind, 1);
         for ifun1 = 1:Nind,
            ObjVal(ifun1, 1) = sum(Chrom(ifun1,:) .* Chrom(ifun1,:));
         end
      end
      % ObjVal = diag(Chrom * Chrom');  % both lines produce the same
      % ObjVal = [ObjVal, ObjVal * 10];    % MO tests
   end   


% End of function