Example: Function call: cardn_pos(0.001,matrix_1).Parameter = 0.001 and matrix_1:

 

 

at point_1:

 

 

Example: calculation of cardn_pos function with parameter 0.001 and matrix:

MATLAB code (.\Aorda\PSG\MATLAB\Examples\Func_value_cardn_pos.m) for function calculation:

 

%=======================================================================

%American Optimal Decisions, Inc. Copyright                            

%Copyright ©American Optimal Decisions, Inc. 2007-2016.                

%For information regarding external or commercial use of copyrighted  

%materials owned by AOD, contact AOD at [email protected].            

%=======================================================================

 

%Define data:

H1 = [1 1 1 1;0 1.5 0.9 1.1];

c1 = [0.1;1];

a = [1;1;1;1];

alpha = 0.001;

 

%=======================================================================

%Calculation of function with PSG Subroutine 'functionvalue'

%Calculate cardn_pos function with parameter 0.001 at point 'a':

val1 = functionvalue('cardn_pos', alpha, H1, c1, [], a);

%Display function value:

disp(sprintf('functionvalue = %g', val1));

%=======================================================================

%Calculation of function with PSG Subroutine 'tbpsg_function_value'

%Create the PSG matrix 'matrix_1'(structure containing header and matrix body) and pack it to structure 'toolboxstruc_arr':

toolboxstruc_arr(1) = tbpsg_matrix_pack('matrix_1', H1, [], c1, []);

%Create the PSG point 'point_1'(structure containing header and matrix body) and pack it to structure 'toolboxstruc_arr':

toolboxstruc_arr(2) = tbpsg_point_pack('point_1', a, []);

%Create the PSG parameter 'parameter_alpha' and pack it to structure 'toolboxstruc_arr':

toolboxstruc_arr(3) = tbpsg_parameter_pack('parameter_alpha', alpha);

%Calculate cardn_pos function with parameter 0.001 at point 'point_1':

val2 = tbpsg_function_value('cardn_pos(parameter_alpha,matrix_1)','point_1',toolboxstruc_arr);

%Display function value:

disp(sprintf('tbpsg_function_value = %g', val2));

%=======================================================================

%Creation of User Subroutine for calculating function value

%User subroutine is similar to the 'functionvalue'

%Create problem statement:

problem_statement = sprintf('%s\n',...

'calculate',...

'Point: point_1',...

'  cardn_pos(parameter_alpha,matrix_1)',...

' ');

%Create Subroutine:

tbpsg_create_user_subroutine(problem_statement,toolboxstruc_arr,'.\','calculate_cardn_pos');

%Uncomment section to call the user subroutine 'calculate_cardn_pos':

%{

%Calculation of function with User Subroutine 'calculate_cardn_pos':

[solution_str,outargstruc_arr] = calculate_cardn_pos(H1,matrix_1_vars,a,point_1_vars,alpha);

%Extract function value from the solution report:

val = tbpsg_function_data(solution_str, outargstruc_arr);

%}

 

Program output:  

 

functionvalue = 1

tbpsg_function_value = 1