yh.cpp

C++ builder 和matcom 混合编程

  #include "matlib.h"
  #pragma hdrstop
  
  #include "Yh.h"
  
  
  Mm Yh(Mm a, Mm b) {
    begin_scope
    a.setname("a"); b.setname("b"); 
    dMm(y); dMm(p2); dMm(xi); dMm(z2); 
    
    #line 1 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
    call_stack_begin;
    #line 1 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
    // nargin, nargout entry code
    double old_nargin=nargin_val; if (!nargin_set) nargin_val=2.0;
    nargin_set=0;
    double old_nargout=nargout_val; if (!nargout_set) nargout_val=1.0;
    nargout_set=0;
    
    // translated code
    
    #line 2 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
_   p2 = polyfit(a,b,2.0);
    #line 3 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
_   xi = linspace(0.0,1.0,100.0);
    #line 4 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
_   y = p2;
    #line 5 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
_   z2 = polyval(p2,xi);
    #line 6 "c:/documents and settings/sdoctor/桌面/pg/matbcbtest/拟合/yh.m"
_   display( plot((CL(a),b,TM("ro"),a,b,xi,z2,TM("k:"))) );
    
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    a.setname(NULL); b.setname(NULL); 
    return y;
    end_scope
  }