circle.cpp

这是书上的代码

  #include "matlib.h"
  #pragma hdrstop
  
  #include "circle.h"
  
  
  Mm circle() {
    begin_scope
    dMm(multi); dMm(i_); dMm(i_circle_v0); 
    
    #line 1 "d:/matlab6p1/work/circle.m"
    call_stack_begin;
    #line 1 "d:/matlab6p1/work/circle.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=1.0;
    nargout_set=0;
    
    // translated code
    
    #line 2 "d:/matlab6p1/work/circle.m"
_   tic();
    #line 3 "d:/matlab6p1/work/circle.m"
_   multi = 1.0;
    #line 4 "d:/matlab6p1/work/circle.m"
_   i_circle_v0 = colon(1.0,1.0,2000000.0); int i_circle_i0;
    for (i_circle_i0=0;i_circle_i0<i_circle_v0.cols();i_circle_i0++) {
      forelem(i_,i_circle_v0,i_circle_i0);
      #line 5 "d:/matlab6p1/work/circle.m"
_     multi = multi+i_*i_;
      
      #line 7 "d:/matlab6p1/work/circle.m"
    }
    #line 8 "d:/matlab6p1/work/circle.m"
_   toc();
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    return multi;
    end_scope
  }