粒子群優(yōu)化算法(C語言版本)

前言

??經(jīng)歷兩小時,終于用C語言寫完了算法焰情,真是不容易陌凳。已經(jīng)將近一年多沒摸過C語言了,很多都忘了内舟,之前計算機網(wǎng)絡(luò)課的大作業(yè)CSMA-CD協(xié)議算法模擬因為要用C語言所以用了兩天的空閑時間重新學了一遍C語言(僅僅學到了指針截止)冯遂,現(xiàn)在也是很多不記得了,寫的比較丑陋谒获。希望大家不要笑話。之前本想用JS寫的但是不好調(diào)試什么的壁却,所以還是用了C語言批狱。(附加一句:物聯(lián)網(wǎng)專業(yè)真的好坑,大二最好就自學號JAVA或者C++不然大三真的比較老火.)

粒子群優(yōu)化算法簡介

&emm oniziranjiesp;?粒子群優(yōu)化算法是進化計算的一個分支展东,是一種模擬自然界的生物活動的隨機搜索算法赔硫。PSO(粒子群優(yōu)化算法)模擬了自然界鳥群捕食和魚群捕食的過程。它是1995年由美國學者Eberhat和Kennedy提出的盐肃,現(xiàn)在已經(jīng)廣泛應(yīng)用于各種工程領(lǐng)域的優(yōu)化問題之中爪膊。

核心

  • 速度與位置更新公式
  • 速度與位置更新公式

$$ v_i^d =wv_i^d+c_1r_1d*({pBest_id-x_id})+c_2*r_2d*({gBest_id-x_id}) $$
$$ x_i^d =x_id+v_id $$

基本流程

  • 初始化
  • 更新
  • 迭代
  • 滿足條件后停止

源程序

用例

已知函數(shù)$ y=f(x_1,x_2)=x_12+x_22 $,其中$ -10<={ x_1,x_2 }<=10 $,用粒子群優(yōu)化算法求解y的最小值。

源程序

/*******************************************************************************
*
*                    粒子群優(yōu)化算法
*--------------------------------------------------------------------------------
* 算法題目       : 例題5.1
* 算法說明       :w是慣量權(quán)重砸王,一般取0-1之間數(shù)字推盛,這兒取0.5
*                  c1,c2為加速系數(shù),通常取固定值2.0
*                  r1,r2為[0-1]隨機數(shù)
* 注意             :對于越界的位置需要進行合法性的調(diào)整

                求最小值則只需要對函數(shù)f進行改動以及204行的update sum計算進行改動谦铃。
                如果求最大值耘成,則不僅僅改動上述過程,還包括64行的判斷以及204行的判斷

                改動x域值則只需要手動輸入驹闰,改變?nèi)后w只需要define N 群體數(shù)
*******************************************************************************/

#include "stdio.h"
#include "stdlib.h"
#include "time.h"
#define N 3


/********************************************************************
*函數(shù)名:init_helper()
*函數(shù)功能:初始化輔助函數(shù)
*函數(shù)輸入:unsigned top ,unsigned bottom  上邊界瘪菌,下邊界
*輸出:無
**********************************************************************************/

void init_helper(int top,int bottom,float arr[N][6]) //位置 速度 個人歷史最好位置6個數(shù)(x,y)形式
{

    int i,j;

    srand((unsigned)time(NULL));

    for(i = 0;i<N;i++)
    {
        for(j=0;j<4;j++)
        {
            arr[i][j]=rand()%(top-bottom+1)+bottom;//產(chǎn)生[bottom,top]之間的隨機數(shù)
        }
        arr[i][4]=arr[i][0];
        arr[i][5]=arr[i][1];

    }

}

/************************************************************************
*函數(shù)名:f()
*函數(shù)功能:計算每個解
*函數(shù)輸入:particle[][]
*函數(shù)輸出:無
***************************************************************************/

void f(float particle[N][6],float gbest[2],float history_best[2])
{
    float sum[N],M_in[1][2];
    int i ,j;
    M_in[0][0]=100;
    M_in[0][1]=0;
    for(i=0;i<N;i++)
    {
        sum[i]=particle[i][0]*particle[i][0] + particle[i][1]*particle[i][1];
        if(sum[i]<M_in[0][0])
        {
            M_in[0][0]=sum[i];
            M_in[0][1]=i;
        }
    }
    j=M_in[0][1];
     printf("最小坐標為:  ");
    for(i=0;i<2;i++)
    {
        history_best[i]=gbest[i];
        gbest[i] = particle[j][i];
        printf("%5.2f  ",gbest[i]);
    }
    printf("\n");
    printf("全局最優(yōu)函數(shù)值和當前最小值位置分別為 ");
    printf("%5.2f   ",M_in[0][0]);
    printf("%5.2f\n",M_in[0][1]+1);
    printf("全局最優(yōu)坐標為");
    for(i=0;i<2;i++)
      {
          printf("  %5.2f  ",gbest[i]);
      }
    printf("\n");
    printf("歷史最優(yōu)坐標:");
    for(i=0;i<2;i++)
      {
          printf("  %5.2f  ",history_best[i]);
      }
     printf("\n");

}

/*******************************************************************************
*函數(shù)名稱:init()
*函數(shù)功能:初始化
*輸入:
*輸出:
********************************************************************************/
void init(int top,int bottom,float particle[N][6],float gbest[2],float history_best[2])
{
    int i,j;
    scanf("%d%d",&bottom,&top);
    for(i=0;i<N;i++)
    {
        init_helper(top,bottom,particle);
    }
    f(particle,gbest,history_best);

    for(i=0;i<N;i++)
    {
        for(j=0;j<6;j++)
        {
            printf("%5.2f   ",particle[i][j]);
        }
        printf("\n");
    }
}


/*******************************************************************************
*函數(shù)名稱:update(int top,int bottom,float particle[N][6],float gbest[2],float history_best[2])
*函數(shù)功能:更新速度和位置
*輸入:int top,int bottom,float particle[N][6],float gbest[2]
*輸出:無
********************************************************************************/
void update(int top,int bottom,float particle[N][6],float gbest[2],float w,float c,float r1,float r2,float history_best[2])
{
   int i,j=2,k;

   for(i=0;i<N;i++)
   {
        srand((unsigned)time(NULL));
        r1=rand()/(double)(32768);
        r2=rand()/(double)(32768);

        //更新速度
        particle[i][j]=w*particle[i][j]+c*r1*(particle[i][j+2]-particle[i][0])+c*r2*(gbest[0]-particle[i][0]);
        particle[i][j+1]=w*particle[i][j+1]+c*r1*(particle[i][j+3]-particle[i][1])+c*r2*(gbest[1]-particle[i][1]);

        // 對越界數(shù)進行處理嘹朗,大于大邊界取top师妙,小于下邊界取bottom
        for(k=0;k<2;k++)
        {
            if(particle[i][j+k]>10)
                particle[i][j+k]=10;
            else if(particle[i][j+k]<-10)
            particle[i][j+k]=-10;
        }


        // 更新位置
        particle[i][0]+=particle[i][j];
        particle[i][1]+=particle[i][j+1];

         // 對越界數(shù)進行處理,大于大邊界取top屹培,小于下邊界取bottom
        for(k=0;k<2;k++)
        {
            if(particle[i][k]>10)
                particle[i][k]=10;
            else if(particle[i][k]<-10)
            particle[i][k]=-10;
        }

   }
    printf("更新后位置速度為默穴,此時個人歷史最優(yōu)尚未更新\n");
    for(i=0;i<N;i++)
    {
        for(j=0;j<6;j++)
        {
            printf("%5.2f   ",particle[i][j]);
        }
        printf("\n");
    }
   update_helpaer(particle,gbest,history_best);
   printf("更新后位置速度為,此時個人歷史最優(yōu)已經(jīng)更新\n");
   for(i=0;i<N;i++)
  {
    for(j=0;j<6;j++)
    {
        printf("%5.2f   ",particle[i][j]);
    }
        printf("\n");
  }

}

/*******************************************************************************
*函數(shù)名稱:update_helper(float particle[N][6],float gbest[2],float history_best[2])
*函數(shù)功能:更新個人歷史最優(yōu)以及全局最優(yōu)位置
*輸入:float particle[N][6],float gbest[2] float history_best[2]
*輸出:無
********************************************************************************/
void update_helpaer(float particle[N][6],float gbest[2],float history_best[2])
{
    float sum[2];
    int i,j;
    for(i=0;i<N;i++)
    {

        sum[0]=particle[i][0]*particle[i][0]+particle[i][1]*particle[i][1];
        sum[1]=particle[i][4]*particle[i][4]+particle[i][5]*particle[i][5];
        if(sum[0]<sum[1])
        {
            particle[i][4]=particle[i][0];
            particle[i][5]=particle[i][1];
        }
    }
    f(particle,gbest,history_best);
}


// 主函數(shù)main()

void main()
{
    int top,
        bottom,
        i=0,
        j;
    float w=0.5,
          c=2.0,
          r1=0.0,
          r2=0.0,
        particle[N][6],
        gbest[2]={-10,10},
        history_best[2],
        pbest[2];

    init(top,bottom,particle,gbest,history_best);
    while(gbest[0]!=history_best[0]&&gbest[1]!=history_best[1])
    {
     update(top,bottom,particle,gbest,w,c,r1,r2,history_best);
    }



    printf("解為:");
    for(i=0;i<2;i++)
    {
        printf("%5.2f  ",gbest[i]);
    }


}


注:以上為本人原創(chuàng)褪秀,轉(zhuǎn)載請注明出處壁顶,謝謝。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請聯(lián)系作者
  • 序言:七十年代末溜歪,一起剝皮案震驚了整個濱河市若专,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌蝴猪,老刑警劉巖调衰,帶你破解...
    沈念sama閱讀 216,402評論 6 499
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件膊爪,死亡現(xiàn)場離奇詭異,居然都是意外死亡嚎莉,警方通過查閱死者的電腦和手機米酬,發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 92,377評論 3 392
  • 文/潘曉璐 我一進店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來趋箩,“玉大人赃额,你說我怎么就攤上這事〗腥罚” “怎么了跳芳?”我有些...
    開封第一講書人閱讀 162,483評論 0 353
  • 文/不壞的土叔 我叫張陵,是天一觀的道長竹勉。 經(jīng)常有香客問我飞盆,道長,這世上最難降的妖魔是什么次乓? 我笑而不...
    開封第一講書人閱讀 58,165評論 1 292
  • 正文 為了忘掉前任吓歇,我火速辦了婚禮,結(jié)果婚禮上票腰,老公的妹妹穿的比我還像新娘城看。我一直安慰自己,他們只是感情好杏慰,可當我...
    茶點故事閱讀 67,176評論 6 388
  • 文/花漫 我一把揭開白布析命。 她就那樣靜靜地躺著,像睡著了一般逃默。 火紅的嫁衣襯著肌膚如雪鹃愤。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 51,146評論 1 297
  • 那天完域,我揣著相機與錄音软吐,去河邊找鬼。 笑死吟税,一個胖子當著我的面吹牛凹耙,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播肠仪,決...
    沈念sama閱讀 40,032評論 3 417
  • 文/蒼蘭香墨 我猛地睜開眼肖抱,長吁一口氣:“原來是場噩夢啊……” “哼!你這毒婦竟也來了异旧?” 一聲冷哼從身側(cè)響起意述,我...
    開封第一講書人閱讀 38,896評論 0 274
  • 序言:老撾萬榮一對情侶失蹤,失蹤者是張志新(化名)和其女友劉穎,沒想到半個月后荤崇,有當?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體拌屏,經(jīng)...
    沈念sama閱讀 45,311評論 1 310
  • 正文 獨居荒郊野嶺守林人離奇死亡,尸身上長有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點故事閱讀 37,536評論 2 332
  • 正文 我和宋清朗相戀三年术荤,在試婚紗的時候發(fā)現(xiàn)自己被綠了倚喂。 大學時的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點故事閱讀 39,696評論 1 348
  • 序言:一個原本活蹦亂跳的男人離奇死亡瓣戚,死狀恐怖端圈,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情子库,我是刑警寧澤舱权,帶...
    沈念sama閱讀 35,413評論 5 343
  • 正文 年R本政府宣布,位于F島的核電站刚照,受9級特大地震影響,放射性物質(zhì)發(fā)生泄漏喧兄。R本人自食惡果不足惜无畔,卻給世界環(huán)境...
    茶點故事閱讀 41,008評論 3 325
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望吠冤。 院中可真熱鬧浑彰,春花似錦、人聲如沸拯辙。這莊子的主人今日做“春日...
    開封第一講書人閱讀 31,659評論 0 22
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽涯保。三九已至诉濒,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間夕春,已是汗流浹背未荒。 一陣腳步聲響...
    開封第一講書人閱讀 32,815評論 1 269
  • 我被黑心中介騙來泰國打工, 沒想到剛下飛機就差點兒被人妖公主榨干…… 1. 我叫王不留及志,地道東北人片排。 一個月前我還...
    沈念sama閱讀 47,698評論 2 368
  • 正文 我出身青樓,卻偏偏與公主長得像速侈,于是被迫代替她去往敵國和親率寡。 傳聞我的和親對象是個殘疾皇子,可洞房花燭夜當晚...
    茶點故事閱讀 44,592評論 2 353

推薦閱讀更多精彩內(nèi)容