公式中如何调用 Matlab API

John

通过dll扩展，金魔方的公式可以调用 Matlab 的 api 进行运算，下面是一个例子：

1. 创建 win32 dll 工程，名称是 matlabDll
2. 在工程中设置输出路径（output file）为金魔方安装目录下的FmlDll子目录下，例如：

1. C:\kingtrader\FmlDll\matlabDll.dll

复制代码

3. 调试时设置 debugging 的 command 为金魔方就可以了，例如：

1. C:\kingtrader\kingtrader.exe

复制代码

4. 编写dll函数。下面的例子定义了函数myFunc, 是从公式中获取一个 10*10 的矩阵，运算后以数组的形式返回：

1. #include "stdafx.h"
   
2. #include "engine.h"
   
3. 
   
4. extern "C" __declspec(dllexport) void WINAPI myFunc(float*pInputArray, float*pOutputArray)
   
5. {
   
6.         Engine *p = engOpen(0);
   
7.         if(p)
   
8.         {
   
9.                 mxArray *pA=0;
   
10.                 char szBuffer[300];
    
11.                 double *pTest=0;
    
12.                 pA = mxCreateDoubleMatrix(10, 10, mxREAL);
    
13.                 mxSetName(pA, "pTest");
    
14.                 pTest = mxGetPr(pA);
    
15.                 for(int i=0;i<10;i++)
    
16.                         for(int j=0;j<10;j++)
    
17.                                 pTest[i+10*j] = pInputArray[i+10*j];
    
18.                 engPutArray(p, pA);
    
19.                 engEvalString(p, "mesh(pTest);");
    
20.                 engEvalString(p, "print picture.eps -deps;");
    
21.                 engOutputBuffer(p, szBuffer, 300);
    
22.                 engClose(p);
    
23.                 mxDestroyArray(pA);
    
24.                 for(int k=0; k<300; k++)
    
25.                         pOutputArray[k] = szBuffer[k];
    
26.         }
    
27. }

复制代码

5. 注意工程中需要添加 def 文件，否则公式有可能找不到 myFunc 函数，下面是 def 文件：

1. LIBRARY
   
2. EXPORTS
   
3. myFunc

复制代码

6. 添加 matlab 的 include 文件路径，例如：

1. C:\MATLAB7\extern\include;$(IncludePath)\

复制代码

7. 添加 matlab lib 的路径,例如：

1. C:\MATLAB7\extern\lib\win32\microsoft\msvc71\libmx.lib
   
2. C:\MATLAB7\extern\lib\win32\microsoft\msvc71\libmex.lib
   
3. C:\MATLAB7\extern\lib\win32\microsoft\msvc71\libeng.lib

复制代码

8. 新版本的 matlab 不支持 mxSetName 函数了，
需要在 dll 项目的 preprocesser 中定义 V5_COMPAT 宏，否则不能编译通过
9. 以上设置好以后可以调试了，f5 运行，或者手动打开金魔方
10. 新建公式如下

1. #Run_By_Bar // 逐根模式执行
   
2. // dll 引用定义
   
3. extern 'matlabDll.dll' void myFunc(NumericArray InputArray, NumericArray OutputArray);
   
4. array:
   
5.   InputArray[10,10](0), // 声明 10*10 数组，初始值为0
   
6.   OutputArray[300](0);  // 声明 300 数组，初始值为0
   
7. variable:
   
8.   runOnce(0);
   
9. 
   
10. if runOnce = 0 then
    
11. begin
    
12.   myFunc(InputArray, OutputArray);
    
13.   runOnce = 1;
    
14. end  

复制代码

11.编译公式并拖放到图上就可以调试了

benyip

侠客行

凛冬将志

花生油

非常感谢

逍遥壶中仙

哦，这个是好动西啊

自游族

逍遥壶中仙 发表于 2013-6-20 06:50
哦，这个是好动西啊

必须再读几年IT专业，回头再来看，留个标记

逍遥壶中仙

自游族 发表于 2013-6-25 19:50
必须再读几年IT专业，回头再来看，留个标记

这个还是可以自学的哈呵呵

自游族

逍遥壶中仙 发表于 2013-6-26 16:47
这个还是可以自学的哈呵呵

学不动了

逍遥壶中仙

自游族 发表于 2013-6-26 17:01
学不动了

活到老学到老嘛，虽然说现在精力不如学生时期了哈