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

✅作者简介:热爱科研的Matlab仿真开发者,修心和技术同步精进,matlab项目合作可私信。

🍎个人主页:Matlab科研工作室

🍊个人信条:格物致知。

更多Matlab仿真内容点击👇

智能优化算法  神经网络预测 雷达通信  无线传感器

信号处理 图像处理 路径规划 元胞自动机 无人机  电力系统

⛄ 内容介绍

准确预测光伏电站输出功率,是促进光伏并网发电,提高电网运行稳定性的主要途径之一.该文提出一种基于粒子群算法最小二乘支持向量机(particle swarm optimization and least squares support vector machine,PSO-LSSVM)的日前光伏功率预测方法,该方法首先利用粒子群算法的全局搜索能力来获取最小二乘支持向量机的惩罚因子和核函数宽度,有效解决了最小二乘支持向量机难以快速精准寻找最优参数的问题;然后利用数值天气预报和光伏功率的历史数据对PSO-LSSVM模型进行训练,利用训练好的PSO-LSSVM模型对日前光伏功率进行预测.

⛄ 部分代码

function omega = kernel_matrix(Xtrain,kernel_type, kernel_pars,Xt)

% Construct the positive (semi-) definite and symmetric kernel matrix

%

% >> Omega = kernel_matrix(X, kernel_fct, sig2)

%

% This matrix should be positive definite if the kernel function

% satisfies the Mercer condition. Construct the kernel values for

% all test data points in the rows of Xt, relative to the points of X.

%

% >> Omega_Xt = kernel_matrix(X, kernel_fct, sig2, Xt)

%

%

% Full syntax

%

% >> Omega = kernel_matrix(X, kernel_fct, sig2)

% >> Omega = kernel_matrix(X, kernel_fct, sig2, Xt)

%

% Outputs

%   Omega  : N x N (N x Nt) kernel matrix

% Inputs

%   X      : N x d matrix with the inputs of the training data

%   kernel : Kernel type (by default 'RBF_kernel')

%   sig2   : Kernel parameter (bandwidth in the case of the 'RBF_kernel')

%   Xt(*)  : Nt x d matrix with the inputs of the test data

%

% See also:

%  RBF_kernel, lin_kernel, kpca, trainlssvm, kentropy

% Copyright (c) 2011,  KULeuven-ESAT-SCD, License & help @ http://www.esat.kuleuven.be/sista/lssvmlab

[nb_data,d] = size(Xtrain);

if strcmp(kernel_type,'RBF_kernel'),

    if nargin<4,

        XXh = sum(Xtrain.^2,2)*ones(1,nb_data);

        omega = XXh+XXh'-2*(Xtrain*Xtrain');

        omega = exp(-omega./(2*kernel_pars(1)));

    else

        XXh1 = sum(Xtrain.^2,2)*ones(1,size(Xt,1));

        XXh2 = sum(Xt.^2,2)*ones(1,nb_data);

        omega = XXh1+XXh2' - 2*Xtrain*Xt';

        omega = exp(-omega./(2*kernel_pars(1)));

    end

    

elseif strcmp(kernel_type,'RBF4_kernel'),

    if nargin<4,

        XXh = sum(Xtrain.^2,2)*ones(1,nb_data);

        omega = XXh+XXh'-2*(Xtrain*Xtrain');

        omega = 0.5*(3-omega./kernel_pars).*exp(-omega./(2*kernel_pars(1)));

    else

        XXh1 = sum(Xtrain.^2,2)*ones(1,size(Xt,1));

        XXh2 = sum(Xt.^2,2)*ones(1,nb_data);

        omega = XXh1+XXh2' - 2*Xtrain*Xt';

        omega = 0.5*(3-omega./kernel_pars).*exp(-omega./(2*kernel_pars(1)));

    end

    

% elseif strcmp(kernel_type,'sinc_kernel'),

%     if nargin<4,

%         omega = sum(Xtrain,2)*ones(1,size(Xtrain,1));

%         omega = omega - omega';

%         omega = sinc(omega./kernel_pars(1));

%     else

%         XXh1 = sum(Xtrain,2)*ones(1,size(Xt,1));

%         XXh2 = sum(Xt,2)*ones(1,nb_data);

%         omega = XXh1-XXh2';

%         omega = sinc(omega./kernel_pars(1));

%     end

    

elseif strcmp(kernel_type,'lin_kernel')

    if nargin<4,

        omega = Xtrain*Xtrain';

    else

        omega = Xtrain*Xt';

    end

    

elseif strcmp(kernel_type,'poly_kernel')

    if nargin<4,

        omega = (Xtrain*Xtrain'+kernel_pars(1)).^kernel_pars(2);

    else

        omega = (Xtrain*Xt'+kernel_pars(1)).^kernel_pars(2);

    end

    

% elseif strcmp(kernel_type,'wav_kernel')

%     if nargin<4,

%         XXh = sum(Xtrain.^2,2)*ones(1,nb_data);

%         omega = XXh+XXh'-2*(Xtrain*Xtrain');

%         

%         XXh1 = sum(Xtrain,2)*ones(1,nb_data);

%         omega1 = XXh1-XXh1';

%         omega = cos(kernel_pars(3)*omega1./kernel_pars(2)).*exp(-omega./kernel_pars(1));

%         

%     else

%         XXh1 = sum(Xtrain.^2,2)*ones(1,size(Xt,1));

%         XXh2 = sum(Xt.^2,2)*ones(1,nb_data);

%         omega = XXh1+XXh2' - 2*(Xtrain*Xt');

%         

%         XXh11 = sum(Xtrain,2)*ones(1,size(Xt,1));

%         XXh22 = sum(Xt,2)*ones(1,nb_data);

%         omega1 = XXh11-XXh22';

%         

%         omega = cos(kernel_pars(3)*omega1./kernel_pars(2)).*exp(-omega./kernel_pars(1));

%     end

end

⛄ 运行结果

⛄ 参考文献

[1]殷樾. 基于粒子群算法最小二乘支持向量机的日前光伏功率预测[J]. 分布式能源, 2021, 6(2):7.

❤️ 关注我领取海量matlab电子书和数学建模资料

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

LSSVM回归希望对大家有用-源程序以及数据.rar 源代码 %% ==============清除代码窗口和工作空间=============== clc; clear; %% ==================下载数据======================= load surdata1.mat; load surdata2.mat; load wearvol.mat; load workcondition.mat; %% ==================训练数据======================== % 数据预处理 xx=surdata1'; yy=surdata2'; zz=wearvol; ww=workcondition; % 训练数据提取 X=ww; X=xx; Y=yy; %% =====================测试数据===================== Xt=ww; Xt=xx; %% =====================模型初始化===================== type = 'function estimation'; kernel = 'RBF_kernel'; gam = 100;                 % Regularization parameter sig2 = 0.01;              % Kernel parameter (bandwidth in the case of the 'RBF_kernel' % 寻优之后的参数 % gam =  0.0869335 ;                 % Regularization parameter % sig2 =  83.8678 ;              % Kernel parameter (bandwidth in the case of the 'RBF_kernel' %% =====================参数寻优====================== model = initlssvm;                 % 模型初始化 costfun = 'crossvalidatelssvm'; costfun_args = {10,'mse'}; optfun = 'gridsearch'; model = tunelssvm;   % 模型参数优化 %% ======================测试数据======================= model = trainlssvm;  % 训练 Yp = simlssvm; %% ======================结果显示======================== figure; plot,Yp,'ro:') hold on plot,Yp,'b*:') hold on plot,Yp,'k :') grid on; 源程序以及数据.rar
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

matlab科研助手

你的鼓励将是我创作的最大动力

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付:¥1
获取中
扫码支付

您的余额不足,请更换扫码支付或充值

打赏作者

实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值