testsurf.cpp

精通matlab7.0及与其他语言的混合编程

  #include "matlib.h"
  #pragma hdrstop
  
  #include "testsurf.h"
  
  
  Mm testsurf(Mm a) {
    begin_scope
    a.setname("a"); 
    call_stack_begin;
    // nargin, nargout entry code
    double old_nargin=nargin_val; if (!nargin_set) nargin_val=1.0;
    nargin_set=0;
    double old_nargout=nargout_val; if (!nargout_set) nargout_val=0.0;
    nargout_set=0;
    
    // translated code
    
    if (istrue(a==TM("surf"))) {
      surf((CL(peaks())));
    } else {
      
      contour((CL(peaks())));
    }
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    a.setname(NULL); 
    
    return x_M;
    end_scope
  }