2016国赛A题——系泊系统问题粒子群算法求解

最新推荐文章于 2024-05-17 19:22:21 发布

kummunist

最新推荐文章于 2024-05-17 19:22:21 发布

阅读量1.5k

点赞数 4

文章标签： matlab 启发式算法算法线性代数

本文链接：https://blog.csdn.net/Dave_Young/article/details/128940083

版权

前言

本文参考了一篇有关系泊系统的知乎博文，链接如下：2016年全国大学生数学建模竞赛A题系泊系统的设计详解（含建模和程序详解） - 知乎 (zhihu.com)

因为是练习一下写代码，建模的话基本是按照该博文的方法建的，也推荐大家对数模机理问题有兴趣的同学关注一下这个博主（b站有号）。本文只在未知数的求解过程上做一个创新。（原文使用的是随机搜索法。）

本文就第一问写一下求解的过程，重点分析粒子群求解吃水深度的部分（其他部分与知乎博主的大致相同）。写作本文的目的是为了记录下自己用粒子群算法求解一些复杂问题的过程，也给大家一些启发，让大家感受到启发式算法除了求解高维函数外的一些其他应用。

题目描述

系统的受力分析方程建立

浮标的受力方程和锚链钢管的受力方程如下图所示：

$\left\{\begin{matrix} F_{float}=mg+T_1cos\theta_1\\ F_{wind}=T_1sin\theta_1\\ F_{float}=\rho\pi(d^2/2)gh \\ F_{wind}=0.625S_{wind}v_{wind}^2\\ S_{wind}=(2-h)d\\ \end{matrix}\right.$

通过Matlab的实时脚本可以求解该参数方程组。在假定 $d$ 和 $x$ 都是以知量的情况下，该方程组是有解的。（但其实 $h$ 是未知量，也是后文粒子群算法的优化目标）。

$\left\{\begin{matrix} T_isin\theta_i=T_{i+1}sin\theta_{i+1}\\ T_icos\theta_i+\rho gV_i=mg+T_{i+1}cos\theta_{i+1}\\ T_isin\theta_iL_icos\varphi _{i}+mgL/2sin\varphi _{i}=\rho gVL_{i}/2sin\varphi_{i}+T_{i}cos\varphi _iLsin\varphi _i\\ \end{matrix}\right.$

对于方程2而言，只要知道了前一个受力对象的拉力 $T$ 和受力角度 $\theta$ 和倾斜角度 $\varphi$ ，就可以解出下一个对象的拉力和受力角度和倾斜角度。是一个迭代方程组。具体的公式求解可以通过Matlab实时脚本求解。

优化目标

$x = H-\sum_{i=1}^{n}L_icos\varphi _i$

其中 $L_i$ 是每节钢管或锚链的长度， $H$ 为水深，都是固定值。 $\varphi$ 为受力方程计算结果。

程序求解过程

浮力函数和风力函数

风力的公式题中给出了，浮力的公式大家应该也都会，不做赘述。

function F = windy(h,v_wind)
    D = 2; 
    H = 2;
    S = D * (H-h);
    F = 0.625 * S * v_wind^2;
end

function f_float = float(h)
    g = 9.8;
    rho_sea = 1025;
    d = 2;
    f_float = rho_sea*pi*d^2/4*h*g;
end

初始方程和迭代方程函数

求解方程组中的量，并写出各个变量的迭代关系式。

function [theta1,T1] = equation_initial(h,v_wind)
    m = 1000; g = 9.8;
    F_float = float(h);
    F_wind = windy(h,v_wind);
    theta1 = atand(F_wind/(F_float-m*g));
    T1 = F_wind/sind(theta1);
end

function [theta2,T2,phi1] = equation_iteration(T1,theta1,m,V)
    g = 9.8;
    rho_sea = 1025;
    F_float = rho_sea*V*g;
    theta2 = atand(T1*sind(theta1)/(F_float+T1*cosd(theta1)-m*g));
    T2 = T1*sind(theta1)/sind(theta2);
    phi1 = atand(T1*sind(theta1)/(T1*cosd(theta1)+0.5*(F_float-m*g)));
end

锚链选型函数

function [dL,dm] = mooring_choose(i)
    mooring = [0.078 3.2;
        0.105 7;
        0.12 12.5;
        0.15 19.5;
        0.18 28.12];
    dL = mooring(i,1);
    dm = mooring(i,2);
end

方程求解函数

function [deep,r,x,y,phi] = mooring_system(h,v_wind,M,i,L_all)
    rho_Fe = 7800; % 锚链密度
    [dL,dm] = mooring_choose(i); % 锚链选型
    N = round(L_all/dL); % 锚链节数
    m = [10*ones(1,4),100,dL*dm*ones(1,N)]; % 各节质量
    m(6) = m(6) + M; % 球的质量
    D = [0.05*ones(1,4),0.3];  % 钢管和钢桶
    L = ones(1,5); % 钢管和钢桶的长度
    V = zeros(size(m)); V(1:5) = pi*0.5*D.^2.*L; V(6:end) = m(6:end)/rho_Fe; % 体积
    L = [L,dL*ones(1,N)]; % 钢管和锚链长度整合
    N = N + 5; 
    T = zeros(1,N+1); % 受力
    theta = zeros(1,N+1); % 角度
    phi = zeros(1,N); % 倾斜角度
    [theta(1),T(1)] = equation_initial(h,v_wind); % 初始方程计算
    for i = 1:N-1
        [theta(i+1),T(i+1),phi(i)] = equation_iteration(T(i),theta(i),m(i),V(i)); % 迭代方程计算
        if (phi(i) < 0||phi(i)>90) % 角度超出范围跳出循环
            break;
        end
    end
    phi(i:end) = 90; % 超出范围后的倾斜角度视为90度
    deep = sum(L.*cosd(phi)); % 深度
    r = sum(L.*sind(phi)); % 浮游半径
    L = fliplr(L); % L倒置
    phi = fliplr(phi); % phi倒置
    x = cumsum(L.*sind(phi)); % x坐标计算
    y = cumsum(L.*cosd(phi)); % y坐标计算
end

* 粒子群算法

优化函数

根据模型应该是求最小值，但由于该算法用于求最大值，因此添加一个负号。

function y = Obj_fun1(x,v_wind,M,i,L_all,H)
  deep = mooring_system(x,v_wind,M,i,L_all); % 计算总深度
  y = -abs(deep - H); % 计算误差 
end

算法局限性

粒子群算法作为一种群体智能算法，与遗传算法相比有一些不同之处，主要在于该方法只能求解连续性问题。因此整数解的优化问题就不适合用粒子群算法求解。

参数设置

粒子数量、变量个数、函数上下界根据优化函数进行调整；最大速度可以根据自变量的定义域进行调整。其他参数可以基本不改。

    %% 粒子群算法中的预设参数
    n = 100; % 粒子数量
    narvs = 1; % 变量个数
    c1 = 2;  % 每个粒子的个体学习因子，也称为个体加速常数
    c2 = 2;  % 每个粒子的社会学习因子，也称为社会加速常数
    w = 0.9;  % 惯性权重
    K = 50;  % 迭代的次数
    vmax = 1.2; % 粒子的最大速度
    x_lb = 0; % x的下界
    x_ub = 2; % x的上界

粒子的速度和位置初始化

位置初始化其实就是在定义域内随机产生初始解。解的个数为定义的粒子的个数。粒子群法通过定义多个粒子进行优化迭代，可以很好地避免陷入局部最优解。

    %% 初始化粒子的位置和速度
    x = zeros(n,narvs);
    for m = 1: narvs
        x(:,m) = x_lb(m) + (x_ub(m)-x_lb(m))*rand(n,1);   
    end
    v = -vmax + 2*vmax .* rand(n,narvs);  % 随机初始化粒子的速度

    %% 计算适应度
    fit = zeros(n,1); 
    for m = 1:n  
        fit(m) = Obj_fun1(x(m,:),v_wind,M,i,L_all,H);  
    end
    pbest = x;  
    ind = find(fit == max(fit), 1); 
    gbest = x(ind,:);

粒子速度和位置更新

粒子速度的变化是粒子群的核心点。粒子速度和位置的求解公式如下：

其实，粒子的速度就是函数中自变量在一次位置更新时候移动的范围，与牛顿迭代法中新解的产生方式是相同的。但不同之处在于，牛顿迭代是基于倒数确定移动的步长，是一种纯数学的方法；而粒子群算法是基于上述核心公式，模拟了鸟的认知过程，是一种社会仿生学的方法。

然后就是新解与旧解适应度的比较，保留适应度高的那个解作为最新的最佳位置。

 %% 迭代K次来更新速度与位置
    fitnessbest = ones(K,1); 
    for d = 1:K  % 开始迭代，一共迭代K次
        for m = 1:n   % 依次更新第i个粒子的速度与位置
            v(m,:) = w*v(m,:) + c1*rand(1)*(pbest(m,:) - x(m,:)) + c2*rand(1)*(gbest - x(m,:)); 
            for j = 1: narvs
                if v(m,j) < -vmax(j)
                    v(m,j) = -vmax(j);
                elseif v(m,j) > vmax(j)
                    v(m,j) = vmax(j);
                end
            end
            x(m,:) = x(m,:) + v(m,:); % 更新第i个粒子的位置
            % 如果粒子的位置超出了定义域，就对其进行调整
            for j = 1: narvs
                if x(m,j) < x_lb(j)
                    x(m,j) = x_lb(j);
                elseif x(m,j) > x_ub(j)
                    x(m,j) = x_ub(j);
                end
            end
            fit(m) = Obj_fun1(x(m,:),v_wind,M,i,L_all,H);  
            if fit(m) > Obj_fun1(pbest(m,:),v_wind,M,i,L_all,H)  
                pbest(m,:) = x(m,:);  
            end
            if  fit(m) > Obj_fun1(gbest,v_wind,M,i,L_all,H)                
                gbest = pbest(m,:);   
            end
        end
        fitnessbest(d) = Obj_fun1(gbest,v_wind,M,i,L_all,H); 
    end
    h = gbest;

总代码

粒子群优化函数总代码如下：

function h = scope(H,v_wind,M,i,L_all)
    %% 粒子群算法中的预设参数
    n = 100; % 粒子数量
    narvs = 1; % 变量个数
    c1 = 2;  % 每个粒子的个体学习因子，也称为个体加速常数
    c2 = 2;  % 每个粒子的社会学习因子，也称为社会加速常数
    w = 0.9;  % 惯性权重
    K = 50;  % 迭代的次数
    vmax = 1.2; % 粒子的最大速度
    x_lb = 0; % x的下界
    x_ub = 2; % x的上界

    %% 初始化粒子的位置和速度
    x = zeros(n,narvs);
    for m = 1: narvs
        x(:,m) = x_lb(m) + (x_ub(m)-x_lb(m))*rand(n,1);    
    end
    v = -vmax + 2*vmax .* rand(n,narvs);  % 随机初始化粒子的速度

    %% 计算适应度
    fit = zeros(n,1);  
    for m = 1:n  
        fit(m) = Obj_fun1(x(m,:),v_wind,M,i,L_all,H);   
    end
    pbest = x;   % 初始化这n个粒子迄今为止找到的最佳位置
    ind = find(fit == max(fit), 1);  % 找到适应度最大的那个粒子的下标
    gbest = x(ind,:);  % 定义所有粒子迄今为止找到的最佳位置

    %% 迭代K次来更新速度与位置
    fitnessbest = ones(K,1);  % 初始化每次迭代得到的最佳的适应度
    for d = 1:K  
        for m = 1:n   % 依次更新第i个粒子的速度与位置
            v(m,:) = w*v(m,:) + c1*rand(1)*(pbest(m,:) - x(m,:)) + c2*rand(1)*(gbest - x(m,:));  % 更新第i个粒子的速度
            % 如果粒子的速度超过了最大速度限制，就对其进行调整
            for j = 1: narvs
                if v(m,j) < -vmax(j)
                    v(m,j) = -vmax(j);
                elseif v(m,j) > vmax(j)
                    v(m,j) = vmax(j);
                end
            end
            x(m,:) = x(m,:) + v(m,:); % 更新第i个粒子的位置
            % 如果粒子的位置超出了定义域，就对其进行调整
            for j = 1: narvs
                if x(m,j) < x_lb(j)
                    x(m,j) = x_lb(j);
                elseif x(m,j) > x_ub(j)
                    x(m,j) = x_ub(j);
                end
            end
            fit(m) = Obj_fun1(x(m,:),v_wind,M,i,L_all,H);  % 重新计算第i个粒子的适应度
            if fit(m) > Obj_fun1(pbest(m,:),v_wind,M,i,L_all,H)  
                pbest(m,:) = x(m,:); 
            end
            if  fit(m) > Obj_fun1(gbest,v_wind,M,i,L_all,H)  
                gbest = pbest(m,:);   
            end
        end
        fitnessbest(d) = Obj_fun1(gbest,v_wind,M,i,L_all,H); 
    end
    h = gbest;
end

系统绘图函数

得到的图像如下：

以风速36m/s的情况为例：

function [] = mooring_plot(deep,phi,long,x,y,v_wind,h0,H)
    figure
    %% 锚链绘制
    plot(x,y,'k') % 锚链
    
    hold on 
    plot(linspace(-5,30,100),y(end)*ones(1,100),'b:') % 水面
    hold on 
    plot(linspace(-5,30,100),H*ones(1,100),'b-') % 理想水面
    axis([0,x(end)+5,0,y(end)+5]) % 标定图像尺寸
    title(['v_{wind}=',num2str(v_wind),'m/s']) % 以风速标题
    hold on 
    
 
    %% 钢球绘制
    y0=linspace(y(end-5),y(end-5)-2,100);
    x0=x(end-5)*ones(size(y0));
    plot(x0,y0,'k');
    t=0:0.01:2*pi;
    x2=x0(end)+0.5*sin(t);y2=y0(end)+0.5*cos(t);
    fill(x2,y2,'k')
    
    %% 标注拖地长度和锚链与海底夹角
    f=find(y>0);
    x0=x(f(1));
    if(phi(3)==90&&x0>1)
        text(-1,2,['拖地长度=',num2str(x0),'m']);% 计算拖地长度
    else
        phi_end=90-phi(3);
        f1=find(y>1);
        x0=x(f1(1));
        text(x0+3,1,['锚链海底夹角=',num2str(phi_end),'°'])% 不拖地计算锚链与海底的夹角
    end
  
    %% 标注水深，游动半径和吃水深度
    phi_bucket=phi(end-4);
    text(x(end-30),y0(end)-2,['倾斜角度=',num2str(phi_bucket),'°'],'fontsize',10)
    text(-1,y(end)-1,['水面深度误差=',num2str(H-deep),'m'],'fontsize',10)
    text(x(end-140),y(end)+2,['浮游半径=',num2str(long),'m'],'fontsize',10)
    text(x(end)+1,y(end)-0.5,['吃水深度=',num2str(h0),'m'],'fontsize',10)
    
    %% 浮标绘制
    x1=[x(end)-0.5,x(end)-0.5,x(end)+0.5,x(end)+0.5];
    y1=[y(end)-h0,y(end)+2-h0,y(end)+2-h0,y(end)-h0];
    patch(x1,y1,'k')
    
    %% 锚绘制
    x3=[-0.5,-0.5,0.5,0.5];
    y3=[0,1,1,0];
    patch(x3,y3,'k')
    axis([-5,30,0,25])
end

主函数

clear;close all;clc;
v_wind = [12,24,36]; M = 1200; H = 18;L_all = 22.05;
h = scope(H,v_wind(3),M,2,L_all); 
[deep,r,x,y,phi] = mooring_system(h,v_wind(3),M,2,L_all);
mooring_plot(deep,phi,r,x,y,v_wind(3),h,H);