【lssvm预测】基于天鹰算法优化最小二乘支持向量机lssvm实现数据回归预测附matlab代码...

最新推荐文章于 2024-10-12 22:21:30 发布

天天Matlab代码科研顾问

最新推荐文章于 2024-10-12 22:21:30 发布

阅读量19

点赞数

文章标签：算法支持向量机回归 matlab 机器学习

本文链接：https://blog.csdn.net/m0_57702748/article/details/140027908

版权

1 简介

短时交通流预测是实现智能交通控制与管理,交通流状态辨识和实时交通流诱导的前提及关键,也是智能化交通管理的客观需要.到目前为止,它的研究结果都不尽如人意.现有的以精确数学模型为基础的传统预测方法存在计算复杂,运算时间长,需要大量历史数据,预测精度不高等缺点.因此通过研究新型人工智能方法改进短期交通流预测具有一定的现实意义.本文在对现有短期交通流预测模型对比分析及交通流特性研究分析基础上,采用天鹰算法优化最小二乘支持向量机方法进行短期交通流预测模型,取得较好的效果. 支持向量机是一种新的机器学习算法,建立在统计学习理论的基础上,采用结构风险最小化原则,具有预测能力强,全局最优化以及收敛速度快等特点,相比较以经验风险化为基础的神经网络学习算法有更好的理论依据和更好的泛化性能.对于支持向量机模型而言,其算法相对简单,运算时间短,预测精度较高,比较适用于交通流预测研究,特别是在引入最小二乘理论后,计算简化为求解一个线性方程组,同时精度也能得到保证.,该方法首先利用粒子群算法的全局搜索能力来获取最小二乘支持向量机的惩罚因子和核函数宽度,有效解决了最小二乘支持向量机难以快速精准寻找最优参数的问题.

2 部分代码


          
          
           
           %_______________________________________________________________________________________%
           
           
%  Aquila Optimizer (AO) source codes (version 1.0)                                     %
           
           
%                                                                                       %
           
           
%  Developed in MATLAB R2015a (7.13)                                                    %
           
           
%  Author and programmer:                                                               %
           
           
%  Abualigah, L, Yousri, D, Abd Elaziz, M, Ewees, A, Al-qaness, M, Gandomi, A.          %
           
           
%         e-Mail: Aligah.2020@gmail.com      (Laith Abualigah)                          %
           
           
%       Homepage:                                                                       %
           
           
%         1- https://scholar.google.com/citations?user=39g8fyoAAAAJ&hl=en               %
           
           
%         2- https://www.researchgate.net/profile/Laith_Abualigah                       %
           
           
%                                                                                       %
           
           
%   Main paper:                                                                         %
           
           
%_____________Aquila Optimizer: A novel meta-heuristic optimization algorithm___________%
           
           
%_______________________________________________________________________________________%
           
           
% Abualigah, L, Yousri, D, Abd Elaziz, M, Ewees, A, Al-qaness, M, Gandomi, A. (2021). 
           
           
% Aquila Optimizer: A novel meta-heuristic optimization algorithm. 
           
           
% Computers & Industrial Engineering.
           
           
%_______________________________________________________________________________________%
           
           
function [Best_FF,Best_P,conv]=AO(N,T,LB,UB,Dim,F_obj)
           
           
Best_P=zeros(1,Dim);
           
           
Best_FF=inf;
           
           
X=initialization(N,Dim,UB,LB);
           
           
Xnew=X;
           
           
Ffun=zeros(1,size(X,1));
           
           
Ffun_new=zeros(1,size(Xnew,1));
           
           
t=1;
           
           
alpha=0.1;
           
           
delta=0.1;
           
           
while t<T+1
           
           
    for i=1:size(X,1)
           
           
        F_UB=X(i,:)>UB;
           
           
        F_LB=X(i,:)<LB;
           
           
        X(i,:)=(X(i,:).*(~(F_UB+F_LB)))+UB.*F_UB+LB.*F_LB;
           
           
        Ffun(1,i)=F_obj(X(i,:));
           
           
        if Ffun(1,i)<Best_FF
           
           
            Best_FF=Ffun(1,i);
           
           
            Best_P=X(i,:);
           
           
        end
           
           
    end
           
           
    G2=2*rand()-1; % Eq. (16)
           
           
    G1=2*(1-(t/T));  % Eq. (17)
           
           
    to = 1:Dim;
           
           
    u = .0265;
           
           
    r0 = 10;
           
           
    r = r0 +u*to;
           
           
    omega = .005;
           
           
    phi0 = 3*pi/2;
           
           
    phi = -omega*to+phi0;
           
           
    x = r .* sin(phi);  % Eq. (9)
           
           
    y = r .* cos(phi); % Eq. (10)
           
           
    QF=t^((2*rand()-1)/(1-T)^2); % Eq. (15)
           
           
        %-------------------------------------------------------------------------------------
           
           
    for i=1:size(X,1)
           
           
        %-------------------------------------------------------------------------------------
           
           
        if t<=(2/3)*T
           
           
            if rand <0.5
           
           
                Xnew(i,:)=Best_P(1,:)*(1-t/T)+(mean(X(i,:))-Best_P(1,:))*rand(); % Eq. (3) and Eq. (4)
           
           
                Ffun_new(1,i)=F_obj(Xnew(i,:));
           
           
                if Ffun_new(1,i)<Ffun(1,i)
           
           
                    X(i,:)=Xnew(i,:);
           
           
                    Ffun(1,i)=Ffun_new(1,i);
           
           
                end
           
           
            else
           
           
                %-------------------------------------------------------------------------------------
           
           
                Xnew(i,:)=Best_P(1,:).*Levy(Dim)+X((floor(N*rand()+1)),:)+(y-x)*rand;       % Eq. (5)
           
           
                Ffun_new(1,i)=F_obj(Xnew(i,:));
           
           
                if Ffun_new(1,i)<Ffun(1,i)
           
           
                    X(i,:)=Xnew(i,:);
           
           
                    Ffun(1,i)=Ffun_new(1,i);
           
           
                end
           
           
            end
           
           
            %-------------------------------------------------------------------------------------
           
           
        else
           
           
            if rand<0.5
           
           
                Xnew(i,:)=(Best_P(1,:)-mean(X))*alpha-rand+((UB-LB)*rand+LB)*delta;   % Eq. (13)
           
           
                Ffun_new(1,i)=F_obj(Xnew(i,:));
           
           
                if Ffun_new(1,i)<Ffun(1,i)
           
           
                    X(i,:)=Xnew(i,:);
           
           
                    Ffun(1,i)=Ffun_new(1,i);
           
           
                end
           
           
            else
           
           
                %-------------------------------------------------------------------------------------
           
           
                Xnew(i,:)=QF*Best_P(1,:)-(G2*X(i,:)*rand)-G1.*Levy(Dim)+rand*G2; % Eq. (14)
           
           
                Ffun_new(1,i)=F_obj(Xnew(i,:));
           
           
                if Ffun_new(1,i)<Ffun(1,i)
           
           
                    X(i,:)=Xnew(i,:);
           
           
                    Ffun(1,i)=Ffun_new(1,i);
           
           
                end
           
           
            end
           
           
        end
           
           
    end
           
           
    %-------------------------------------------------------------------------------------
           
           
    if mod(t,100)==0
           
           
        display(['At iteration ', num2str(t), ' the best solution fitness is ', num2str(Best_FF)]);
           
           
    end
           
           
    conv(t)=Best_FF;
           
           
    t=t+1;
           
           
end
           
           
end
           
           
function o=Levy(d)
           
           
beta=1.5;
           
           
sigma=(gamma(1+beta)*sin(pi*beta/2)/(gamma((1+beta)/2)*beta*2^((beta-1)/2)))^(1/beta);
           
           
u=randn(1,d)*sigma;v=randn(1,d);step=u./abs(v).^(1/beta);
           
           
o=step;
           
           
end