MATLAB計(jì)算轉(zhuǎn)移矩陣源代碼

如何用MATLAB計(jì)算轉(zhuǎn)移矩陣

如何用MATLAB計(jì)算馬爾科夫矩陣

如何用MATLAB實(shí)現(xiàn)馬爾科夫過程

這些都是一樣的問題。

一. 轉(zhuǎn)移矩陣算法描述

簡(jiǎn)書沒有公式編輯器,敲在 Word 里,直接扔截圖。

轉(zhuǎn)移矩陣的算法描述

二. 引例

引例來源:引例

1. 例子

引例數(shù)據(jù)

2. 解法

1)數(shù)據(jù)處理與分析

將數(shù)據(jù)在 Excel 中處理成以下形式。把你的數(shù)據(jù)元素變成”某種意義的比值“,分析確定你的模型中”狀態(tài)數(shù)“和所謂”相同狀態(tài)年份間隔數(shù)“。本例中狀態(tài)數(shù)為5,年份間隔數(shù)為5。每一個(gè)年份間隔都會(huì)輸出一個(gè)轉(zhuǎn)移概率矩陣,所以本例結(jié)果會(huì)輸出 5 個(gè) P。

數(shù)據(jù)整理

2)輸入info矩陣

此處有技巧,無需手工單個(gè)數(shù)據(jù)錄入。先在 MATLAB 中輸入info=[];,然后將 Excel 中整理好的數(shù)據(jù)全選復(fù)制,將光標(biāo)移動(dòng)到方括號(hào)中間,粘貼后按回車即可。

輸入info矩陣后MATLAB的窗口

3)修改代碼

按照代碼中注釋修改部分參數(shù)。

%--此時(shí)你已經(jīng)輸入比例矩陣info

%--參數(shù)修改

P = zeros(5);       %所求轉(zhuǎn)移矩陣階數(shù),本例中為5。
for k = 1:5         %k為年份間隔數(shù),本例中為5。
    for i = 1:5     %i為狀態(tài)數(shù),本例中為5。

%--此處參數(shù)修改結(jié)束,后面還有一處修改

%--以下內(nèi)容無需改動(dòng)--%
      front = 0;
      back = 0;
      
      if (i ~= 1) %對(duì)應(yīng)(2)(3)
      
        up = info(k+1,i);
        
        if(info(k+1,1)>info(k,1))
        
          for n = 2:i
            front = front + info(k,n);
          end
          for n = 2:i-1
            back = back + info(k+1,n);
          end
        
          down = front - back;
          P(i,i) = up / down;
          
        elseif(info(k+1,1)<info(k,1))
        
          for n = 1:i
            front = front + info(k,n);
          end
          for n = 1:i-1
            back = back + info(k+1,n);
          end
        
          down = front - back;
          P(i,i) = up / down;
          
        end
 %--無需改動(dòng)結(jié)束--%
 
 %--bug修復(fù)--% 
 %--注意!注意!注意!--%
 %--在計(jì)算5階這種小的轉(zhuǎn)移矩陣還沒什么問題,計(jì)算20階時(shí)出現(xiàn)元素為負(fù)的情況,顯然不合常理--%
 %--此時(shí)需要進(jìn)行bug修復(fù),將以下三行代碼前注釋符%去掉即可。會(huì)大幅影響計(jì)算結(jié)果!--%      
 %--也許是我的代碼邏輯有問題,如果你發(fā)現(xiàn)了,請(qǐng)指正,不勝感激--%

 %       if(P(i,i)>1)
 %         P(i,i)= 1;
 %       end
 
 %--bug修復(fù)結(jié)束--%
 
 %--對(duì)應(yīng)(5)--%       
        if(i == 5) %i為狀態(tài)數(shù),本例中為5
          P(i,1) = 1 - P(i,i);
        else 
          P(i,i+1) = 1 - P(i,i);
        end
      
      elseif (info(k+1,i)>info(k,i))
          P(i,i) = 1;

%--對(duì)應(yīng)(1)-%        
      else
        
        up = info(k+1,i);
        down = info(k,i);
        P(i,i) = up / down;
        P(i,i+1) = 1 - P(i,i);
      end
  
  end

P

end

3)輸入代碼

代碼在 Windows 10,MATLAB 2014a 環(huán)境下測(cè)試通過,可以輸出狀態(tài)轉(zhuǎn)移矩陣 P。

粘貼代碼
輸出結(jié)果

4)其他

輸出多個(gè)轉(zhuǎn)移概率矩陣 P ,可以求一下均值當(dāng)作接下來預(yù)測(cè)用的轉(zhuǎn)移概率矩陣,嫌麻煩直接從幾個(gè) P 里挑一個(gè)好看的進(jìn)行預(yù)測(cè)。

關(guān)于代碼準(zhǔn)確性,我算了以下五個(gè) P 的均值,和引力來源中的論文比較了下,誤差在小數(shù)點(diǎn)四位后。

代碼求得P均值
引例給的結(jié)果

三. 寫在后面

把論文寫成教程的既視感有沒有...

在建模搜索資料的過程中發(fā)現(xiàn),關(guān)于 MATLAB 在馬爾科夫過程中特別是轉(zhuǎn)移矩陣的計(jì)算中,無論使用 Google 還是百度,都搜不到現(xiàn)成的代碼。也許這些代碼對(duì)大牛來說隨手寫,但寫完不分享令我等渣渣深感困擾,只好花了一晚上來自己寫。代碼的質(zhì)量很差,但又不是不能用,斜眼笑。有錯(cuò)誤和不足歡迎在評(píng)論區(qū)指正,謝謝。原理在引例鏈接中的論文有詳細(xì)說明,可以點(diǎn)進(jìn)去仔細(xì)看看。代碼不會(huì)用也可以在評(píng)論區(qū)說。

最后編輯于
?著作權(quán)歸作者所有,轉(zhuǎn)載或內(nèi)容合作請(qǐng)聯(lián)系作者
平臺(tái)聲明:文章內(nèi)容(如有圖片或視頻亦包括在內(nèi))由作者上傳并發(fā)布,文章內(nèi)容僅代表作者本人觀點(diǎn),簡(jiǎn)書系信息發(fā)布平臺(tái),僅提供信息存儲(chǔ)服務(wù)。
  • 序言:七十年代末,一起剝皮案震驚了整個(gè)濱河市,隨后出現(xiàn)的幾起案子,更是在濱河造成了極大的恐慌,老刑警劉巖,帶你破解...
    沈念sama閱讀 228,646評(píng)論 6 533
  • 序言:濱河連續(xù)發(fā)生了三起死亡事件,死亡現(xiàn)場(chǎng)離奇詭異,居然都是意外死亡,警方通過查閱死者的電腦和手機(jī),發(fā)現(xiàn)死者居然都...
    沈念sama閱讀 98,595評(píng)論 3 418
  • 文/潘曉璐 我一進(jìn)店門,熙熙樓的掌柜王于貴愁眉苦臉地迎上來,“玉大人,你說我怎么就攤上這事。” “怎么了?”我有些...
    開封第一講書人閱讀 176,560評(píng)論 0 376
  • 文/不壞的土叔 我叫張陵,是天一觀的道長(zhǎng)。 經(jīng)常有香客問我,道長(zhǎng),這世上最難降的妖魔是什么? 我笑而不...
    開封第一講書人閱讀 63,035評(píng)論 1 314
  • 正文 為了忘掉前任,我火速辦了婚禮,結(jié)果婚禮上,老公的妹妹穿的比我還像新娘。我一直安慰自己,他們只是感情好,可當(dāng)我...
    茶點(diǎn)故事閱讀 71,814評(píng)論 6 410
  • 文/花漫 我一把揭開白布。 她就那樣靜靜地躺著,像睡著了一般。 火紅的嫁衣襯著肌膚如雪。 梳的紋絲不亂的頭發(fā)上,一...
    開封第一講書人閱讀 55,224評(píng)論 1 324
  • 那天,我揣著相機(jī)與錄音,去河邊找鬼。 笑死,一個(gè)胖子當(dāng)著我的面吹牛,可吹牛的內(nèi)容都是我干的。 我是一名探鬼主播,決...
    沈念sama閱讀 43,301評(píng)論 3 442
  • 文/蒼蘭香墨 我猛地睜開眼,長(zhǎng)吁一口氣:“原來是場(chǎng)噩夢(mèng)啊……” “哼!你這毒婦竟也來了?” 一聲冷哼從身側(cè)響起,我...
    開封第一講書人閱讀 42,444評(píng)論 0 288
  • 序言:老撾萬榮一對(duì)情侶失蹤,失蹤者是張志新(化名)和其女友劉穎,沒想到半個(gè)月后,有當(dāng)?shù)厝嗽跇淞掷锇l(fā)現(xiàn)了一具尸體,經(jīng)...
    沈念sama閱讀 48,988評(píng)論 1 335
  • 正文 獨(dú)居荒郊野嶺守林人離奇死亡,尸身上長(zhǎng)有42處帶血的膿包…… 初始之章·張勛 以下內(nèi)容為張勛視角 年9月15日...
    茶點(diǎn)故事閱讀 40,804評(píng)論 3 355
  • 正文 我和宋清朗相戀三年,在試婚紗的時(shí)候發(fā)現(xiàn)自己被綠了。 大學(xué)時(shí)的朋友給我發(fā)了我未婚夫和他白月光在一起吃飯的照片。...
    茶點(diǎn)故事閱讀 42,998評(píng)論 1 370
  • 序言:一個(gè)原本活蹦亂跳的男人離奇死亡,死狀恐怖,靈堂內(nèi)的尸體忽然破棺而出,到底是詐尸還是另有隱情,我是刑警寧澤,帶...
    沈念sama閱讀 38,544評(píng)論 5 360
  • 正文 年R本政府宣布,位于F島的核電站,受9級(jí)特大地震影響,放射性物質(zhì)發(fā)生泄漏。R本人自食惡果不足惜,卻給世界環(huán)境...
    茶點(diǎn)故事閱讀 44,237評(píng)論 3 347
  • 文/蒙蒙 一、第九天 我趴在偏房一處隱蔽的房頂上張望。 院中可真熱鬧,春花似錦、人聲如沸。這莊子的主人今日做“春日...
    開封第一講書人閱讀 34,665評(píng)論 0 26
  • 文/蒼蘭香墨 我抬頭看了看天上的太陽(yáng)。三九已至,卻和暖如春,著一層夾襖步出監(jiān)牢的瞬間,已是汗流浹背。 一陣腳步聲響...
    開封第一講書人閱讀 35,927評(píng)論 1 287
  • 我被黑心中介騙來泰國(guó)打工, 沒想到剛下飛機(jī)就差點(diǎn)兒被人妖公主榨干…… 1. 我叫王不留,地道東北人。 一個(gè)月前我還...
    沈念sama閱讀 51,706評(píng)論 3 393
  • 正文 我出身青樓,卻偏偏與公主長(zhǎng)得像,于是被迫代替她去往敵國(guó)和親。 傳聞我的和親對(duì)象是個(gè)殘疾皇子,可洞房花燭夜當(dāng)晚...
    茶點(diǎn)故事閱讀 47,993評(píng)論 2 374

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

  • 隱馬爾可夫模型(Hidden Markov Model,HMM) 最初由 L. E. Baum 和其它一些學(xué)者發(fā)表...
    vlnk2012閱讀 6,750評(píng)論 3 47
  • 一、分類視圖 MATLAB各個(gè)類別內(nèi)的產(chǎn)品之間是有相互依賴關(guān)系的,所以有時(shí)不能單單取消某一個(gè)產(chǎn)品的安裝。如果不需要...
    頑強(qiáng)的貓尾草閱讀 16,181評(píng)論 1 11
  • 顯示中文幫助的方法 預(yù)設(shè)→常規(guī)→幫助→在mathworks.com網(wǎng)站上(需要Internet連接)→語言(簡(jiǎn)體中...
    VeyronC閱讀 2,490評(píng)論 0 34
  • 第三章 還債過年 日子過得真快,兄弟倆在上海學(xué)生意已經(jīng)六個(gè)多月了。 天也寒冷了,刺骨的西北風(fēng)刮在人臉上有針刺似的痛...
    可燃上海閱讀 674評(píng)論 1 5
  • 前幾天當(dāng)我還在籌備著雙十一大采購(gòu)的時(shí)候,大寶突然問我:“過幾天就是我們結(jié)婚一周年紀(jì)念日了,想要什么?” 嗯?結(jié)婚一...
    我叫栗子閱讀 703評(píng)論 0 0