MEX編程:在MATLAB中使用C/C++

1. 引言

1.1 起因

這周去見應用數學的畢設老師Z,閑聊時Z說另一個同學代碼里某個for循環要跑幾小時,但這個for循環里操作并不復雜,主要就是轉換和賦值。然后我就想,可不可以使用C/C++加速呢?
作為堅定的C/C++黨,正好也想學學python中使用C/C++,C/C++中使用asm匯編這些技術,索性在github上建了一個新倉庫Extend-Embed,專門學習怎樣在一種語言編寫的代碼中使用另一種語言。
這篇文章記錄怎樣通過MEX方式,在MATLAB中使用C/C++,最主要的參考資料是:Writing MATLAB C/MEX Code

1.2 環境

操作系統:Windows 7
MATLAB:R2013a
Visual Studio:Community 2013

2. 準備

2.1 基本概念

簡單粗暴地講,在MATLAB中使用C/C++就是三步走的流程:

  1. 編寫C/C++文件
  2. 用mex命令把C/C++文件編譯成MEX(Matlab Executable)文件
  3. 像普通MATLAB函數一樣直接使用

舉個例子,我們寫了一個hello.c,功能是輸出一句"Hello, world!",那么使用:
mex hello.c
后根據平臺不同會得到hello.mex或者hello.mexw64,然后使用:
hello
就會輸出一句”Hello, world!“

mex版本的Hello World

2.2 配置MEX

不得不說配置過程還是挺坑的。自己試驗加上網上查資料試了無數遍,終于發現配置過程要經常反其道而行之,也就是說按正常思路配置基本都要GG。最終選了一堆no反而配好了環境時:

我跟你講我就是這個表情

輸入mex -setup,會詢問是否讓mex自己找編譯器,注意選擇y是不行的

找不到編譯器

這時要選擇n,得到各種支持的編譯器名稱:

各種支持的編譯器

我安裝了Visual Studio Community 2013,所以選擇21。因為它給的默認路徑不對,所以選擇n后輸入正確路徑:

輸入正確的vs路徑

輸入路徑后選擇y確認,輸出信息里有Done就是配置成功了:

配置成功

3. 混合編程

在MATLAB安裝目錄下有一個extern\examples\mex文件夾,里面有很多例子;也可以參考Writing MATLAB C/MEX Code。不過必須知道的新概念也就幾條,其它都可以邊用邊學,所以實際上手非常容易。

3.1 新概念

頭文件方面,使用MEX文件時都需要include “mex.h”。
main函數方面,入口不再是main函數,而是mexFunction,聲明格式如下:

void mexFunction(int nlhs, mxArray *plhs[], 
                 int nrhs, const mxArray *prhs[])

其中mxArray是mex.h里自己定義的數據結構,直接看四個奇怪變量名的含義:
lhs = left hand side,rhs = right hand side

nlhs = 輸出變量的數量
plhs = 指向輸出變量的指針數組
nrhs = 輸入變量的數量
prhs = 指向輸入變量的指針數組(注意const)

用MEX方式實現了函數test,在MATLAB里面使用:
F = test(X, Y)
那么輸入方面,nrhs為2,prhs[0]是X,prhs[1]是Y;輸出方面,nlhs為1,plhs[0]是F。

需要注意的是兩件事:第一,要自己分配輸出的存儲空間;第二,要自己檢查輸入是否合法。這兩件事直接講不好講清楚,看后面的例子就很容易理解了。

此外,mex.h里提供了不少輔助函數,輸出信息用mexPrintf、mexErrMsgTxt,得到矩陣尺寸用mxGetM和mxGetN,得到指向矩陣數據的指針用mxGetPr,etc

3.2 例子

寫了一個discrete_cpp.cpp,功能是傳入一個矩陣A返回一個矩陣B,B和A的形狀相同,B中元素B(i, j)和A中元素A(i, j)的對應關系是:

  • 若 A(i, j) 小于1/3,則 B(i, j) = 0
  • 若 A(i, j) 大于等于1/3 且小于2/3,則 B(i, j) = 1
  • 若 A(i, j) 大于2/3,則 B(i, j) = 2

類似于做了離散化。

#include "mex.h"
// 使用MEX必須包含的頭文件

int discrete(double d);

void mexFunction(int nlhs, mxArray *plhs[], 
                 int nrhs, const mxArray *prhs[]){

    if (nrhs != 1)
        mexErrMsgTxt("Wrong number of input arguments.\n");
   // 檢查輸入變量數量是否正確,否則報錯

    if (nlhs > 1)   
        mexErrMsgTxt("Too many output argumnents.\n");
    // 檢查輸出變量數量是否正確,否則報錯
    
    #define A_IN  prhs[0]
    #define B_OUT plhs[0]
    
    int M = mxGetM(A_IN);
    int N = mxGetN(A_IN);
    // 得到輸入矩陣A的行數和列數

    B_OUT = mxCreateDoubleMatrix(M, N, mxREAL);
    // 為輸出矩陣B分配存儲空間
    
    double *A = mxGetPr(A_IN);
    double *B = mxGetPr(B_OUT);
    // 取得輸入矩陣A和輸出矩陣B的數據指針
    
    for (int i = 0; i < M * N; ++i)
        B[i] = discrete(A[i]);
    // 調用discrete,根據A(i, j)計算B(i, j)
}

int discrete(double d) {
    if (d < 1.0 / 3.0)
        return 0;
    else if (d < 2.0 / 3.0)
        return 1;
    return 2;
}

4. 測試

編寫discrete的MATLAB版本discrete_matlab.m:

function [ B ] = discrete_matlab( A )
    [M, N] = size(A);
    B = zeros(M, N);
    for i = 1:M
        for j = 1:N
            if A(i, j) < 1/3
                B(i, j) = 0;
            elseif A(i, j) < 2/3
                B(i, j) = 1;
            else
                B(i, j) = 2;
            end
        end
    end
end

編寫測試腳本test_discrete:

MATRIX_M = 100;
MATRIX_N = 100;
MATRIX_NUMBER = 1000;
data = rand(MATRIX_M, MATRIX_N, MATRIX_NUMBER);

tic
for i = 1:MATRIX_NUMBER
    discrete_cpp(data(:, :, i));
end
toc

tic
for i = 1:MATRIX_NUMBER
    discrete_matlab(data(:, :, i));
end
toc

也就是生成MATRIX_NUMBER個MATRIX_M * MATRIX_N的隨機矩陣,然后分別用mex版本和普通matlab函數做discrete,看各自消耗的時間。

測試結果……第一行是MEX版本的時間,第二行是MATLAB版本的時間,可以看出MEX方式在數據量大時還是挺有優勢的。

M = 4,N = 4,NUMBER = 1000
M = 20,N = 20,NUMBER = 1000
M = 50,N = 50,NUMBER = 1000
M = 100,N = 100,NUMBER = 1000

所以這圖還真是各種生動形象:

the spooky beast

5. 參考資料

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

推薦閱讀更多精彩內容