【ELM预测】基于鲸鱼算法优化极限学习机实现数据回归预测附matlab代码

214 阅读3分钟

1 简介

为判断中国是否能够实现2030年碳排放强度下降60%~65%的承诺,以及碳排放总量是否能够在2030年达到峰值,论文构建了一个基于鲸鱼优化算法改进的极限学习机模型,对2019—2040年的碳排放量和碳排放强度进行预测.首先基于STIRPAT模型筛选中国碳排放影响因素,将其作为碳排放预测模型的输入因素集,而后运用鲸鱼算法优化极限学习机的参数,克服极限学习机易陷入局部最优解的缺点,最后运用该组合模型对中国未来的碳排放进行预测.通过与ELM模型的预测结果和误差指标进行对比,证实论文提出的碳排放预测模型的精度更高,能够更为准确地反映中国未来的碳排放趋势.

Mirjalili和Lewis在2016年从座头鲸的猎食行为中得到启示,提出一种新的元启发式优化算法——鲸鱼优化算法。该算法仿照座头鲸的泡泡网觅食方法,通过收缩包围、螺旋位置更新以及随机捕食行为捕猎,如图1所示。通过模仿其觅食建立数学模型,具体的寻优过程如下:首先通过判断系数向量A是否在区间[–1,1]内,若不在就采用搜索捕食的方式跳出当前包围圈;若在就通过判断阈值p选择包围猎物还是狩猎行为。为了减少控制变量,该算法只有位置向量,去掉了速度向量,所以使得算法的寻优能力得到增强。

图片

图片

图片

2 部分代码

%_________________________________________________________________________%
% 鲸鱼优化算法             %
%_________________________________________________________________________%
% The Whale Optimization Algorithm
function [Leader_score,Leader_pos,Convergence_curve]=WOA(SearchAgents_no,Max_iter,lb,ub,dim,fobj)

% initialize position vector and score for the leader 
Leader_pos=zeros(1,dim);
Leader_score=inf; %change this to -inf for maximization problems


%Initialize the positions of search agents
Positions=initialization(SearchAgents_no,dim,ub,lb);

Convergence_curve=zeros(1,Max_iter);

t=0;% Loop counter

% Main loop
while t<Max_iter
   for i=1:size(Positions,1)
       
       % Return back the search agents that go beyond the boundaries of the search space
       Flag4ub=Positions(i,:)>ub;
       Flag4lb=Positions(i,:)<lb;
       Positions(i,:)=(Positions(i,:).*(~(Flag4ub+Flag4lb)))+ub.*Flag4ub+lb.*Flag4lb;
       
       % Calculate objective function for each search agent
       fitness=fobj(Positions(i,:));
       
       % Update the leader
       if fitness<Leader_score % Change this to > for maximization problem
           Leader_score=fitness; % Update alpha
           Leader_pos=Positions(i,:);
       end
       
   end
   
   a=2-t*((2)/Max_iter); % a decreases linearly fron 2 to 0 in Eq. (2.3)
   
   % a2 linearly dicreases from -1 to -2 to calculate t in Eq. (3.12)
   a2=-1+t*((-1)/Max_iter);
   
   % Update the Position of search agents 
   for i=1:size(Positions,1)
       r1=rand(); % r1 is a random number in [0,1]
       r2=rand(); % r2 is a random number in [0,1]
       
       A=2*a*r1-a;  % Eq. (2.3) in the paper
       C=2*r2;      % Eq. (2.4) in the paper
       
       
       b=1;               % parameters in Eq. (2.5)
       l=(a2-1)*rand+1;   % parameters in Eq. (2.5)
       
       p = rand();        % p in Eq. (2.6)
       
       for j=1:size(Positions,2)
           
           if p<0.5   
               if abs(A)>=1
                   rand_leader_index = floor(SearchAgents_no*rand()+1);
                   X_rand = Positions(rand_leader_index, :);
                   D_X_rand=abs(C*X_rand(j)-Positions(i,j)); % Eq. (2.7)
                   Positions(i,j)=X_rand(j)-A*D_X_rand;      % Eq. (2.8)
                   
               elseif abs(A)<1
                   D_Leader=abs(C*Leader_pos(j)-Positions(i,j)); % Eq. (2.1)
                   Positions(i,j)=Leader_pos(j)-A*D_Leader;      % Eq. (2.2)
               end
               
           elseif p>=0.5
             
               distance2Leader=abs(Leader_pos(j)-Positions(i,j));
               % Eq. (2.5)
               Positions(i,j)=distance2Leader*exp(b.*l).*cos(l.*2*pi)+Leader_pos(j);
               
           end
           
       end
   end
   t=t+1;
   Convergence_curve(t)=Leader_score;
end

3 仿真结果

4 参考文献

[1]吴忠强等. "基于鲸鱼算法优化极限学习机的微电网故障诊断方法.", CN112578312A. 2021.

博主简介:擅长智能优化算法、神经网络预测、信号处理、元胞自动机、图像处理、路径规划、无人机等多种领域的Matlab仿真,相关matlab代码问题可私信交流。

部分理论引用网络文献,若有侵权联系博主删除。