clear all
clcSearchAgents_no=30; % Number of search agents
N=SearchAgents_no;
Function_name='F1'; % Name of the test function that can be from F1 to F23 (Table 3,4,5 in the paper)Max_iteratinotallow=500; % Maximum numbef of iterations
Max_iter=Max_iteration;% Load details of the selected benchmark function
[lb,ub,dim,fobj]=Get_Functions_details(Function_name); [ABest_scoreChimp,ABest_posChimp,Chimp_curve]=GSOBLChOA(SearchAgents_no,Max_iteration,lb,ub,dim,fobj);
[ChOA_gBestScore,PSO_gBest,ChOA_cg_curve]=ChOA(N,Max_iteration,lb,ub,dim,fobj);
[GWO_gBestScore,TACPSO_gBest,GWO_cg_curve]=GWO(N,Max_iteration,lb,ub,dim,fobj);
% [MPSO_gBestScore,MPSO_gBest,MPSO_cg_curve]=MPSO(N,Max_iteration,lb,ub,dim,fobj);% PSO_cg_curve=PSO(SearchAgents_no,Max_iteration,lb,ub,dim,fobj); % run PSO to compare to results
figure('Position',[500 500 660 290])
%Draw search space
subplot(1,2,1);
func_plot(Function_name);
title('Parameter space')
xlabel('x_1');
ylabel('x_2');
zlabel([Function_name,'( x_1 , x_2 )'])%Draw objective space
subplot(1,2,2);
semilogy(ChOA_cg_curve,'Color','g')
hold on
semilogy(GWO_cg_curve,'Color','b')
hold on
% semilogy(MPSO_cg_curve,'Color','y')
% hold on
semilogy(Chimp_curve,'--r') title('Objective space')
xlabel('Iteration');
ylabel('Best score obtained so far');axis tight
grid on
box on
legend('ChOA','GWO','GSOBLChOA')% display(['The best optimal value of the objective funciton found by MPSO is : ', num2str(MCPSO_gBestScore)]);
display(['The best optimal value of the objective funciton found by GWO is : ', num2str(GWO_gBestScore)]);
display(['The best optimal value of the objective funciton found by ChOA is : ', num2str(ChOA_gBestScore)]);
display(['The best optimal value of the objective funciton found by GSOBLChOA is : ', num2str(ABest_scoreChimp)]);
