global my_n my_A my_c my_Data my_fnctno

%  This program initializes the data for 4 sample
%  functions to be minimized, and calls the function
%  evaluation routine once for each function, just to
%  check it out.

my_n = 50;

%---- Function 1 ------------------------------------------

my_fnctno = 1
my_A = 2*diag(ones(my_n,1),0) - diag(ones(my_n-1,1),-1) - diag(ones(my_n-1,1),1);
my_c = -my_A * ones(my_n,1);

% starting guess:
x = [1:my_n]';

f = myfnct(x)

%---- Function 2 ------------------------------------------

my_fnctno = 2
my_n = 2*my_n;
% starting guess: 1:my_n,1:my_n
f = myfnct([x;x])

%---- Function 3 ------------------------------------------

my_n = my_n/2;
my_fnctno = 3
% starting guess: 1:my_n
f = myfnct(x)

%---- Function 4 ------------------------------------------

my_fnctno = 4
my_Data = (0:.01:2)' ;
nn = length(my_Data);
my_n = 8;
x = [1:4,.1 .2,.4,.15]';
my_Data(:,2) = exp(-my_Data(:,1)*x(1:my_n/2,1)')*x(my_n/2+1:my_n,1) ...
              + .001*rand(nn,1);
% starting guess: 
x = [1:my_n]';
f = myfnct(x)