lin.cpp

介绍如何在VC中调用matcom编译后的函数； 如在调试过程中遇到困难请详见VC知识库文章 - 浅析VC与Matlab联合编程二.mht” 文件

  #include "matlib.h"
  #pragma hdrstop
  
  #include "lin.h"
  
  
  Mm lin() {
    begin_scope
    dMm(b); dMm(a); dMm(n); dMm(x); dMm(y); 
    
    #line 1 "e:/documents and settings/administrator/my documents/matlab/lin.m"
    call_stack_begin;
    #line 1 "e:/documents and settings/administrator/my documents/matlab/lin.m"
    // nargin, nargout entry code
    double old_nargin=nargin_val; if (!nargin_set) nargin_val=0.0;
    nargin_set=0;
    double old_nargout=nargout_val; if (!nargout_set) nargout_val=0.0;
    nargout_set=0;
    
    // translated code
    
    #line 2 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   b = (BR(1.0),2.0,1.0);
    #line 3 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   a = (BR(1.0),-1.58,0.64);
    #line 4 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   n = 50.0;
    #line 5 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   x = (BR(1.0),ones(1.0,n-1.0));
    #line 6 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   y = filter(b,a,x);
    #line 7 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   plot((CL(rdivide(y,70.0)),TM("*")));
    #line 8 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   hold(TM("on"));
    #line 9 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   plot((CL(x),TM(".")));
    #line 10 "e:/documents and settings/administrator/my documents/matlab/lin.m"
_   grid();
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    
    return x_M;
    end_scope
  }