chacir.cpp

这是书上的代码

  #include "matlib.h"
  #pragma hdrstop
  
  #include "chacir.h"
  
  
  Mm chacir() {
    begin_scope
    dMm(r); dMm(m); dMm(n); dMm(t); dMm(x); dMm(y); dMm(p); dMm(d); dMm(d_chacir_v0); dMm(j_); dMm(j_chacir_v1);  \
      
    
    #line 1 "d:/matlab6p1/work/chacir.m"
    call_stack_begin;
    #line 1 "d:/matlab6p1/work/chacir.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 3 "d:/matlab6p1/work/chacir.m"
_   r = colon(1.0,0.1,10.0);
    #line 4 "d:/matlab6p1/work/chacir.m"
_   r = ctranspose(r);
    #line 5 "d:/matlab6p1/work/chacir.m"
_   /*[m,n] = */size(r,i_o,m,n);
    #line 6 "d:/matlab6p1/work/chacir.m"
_   clf();
    
    
    #line 9 "d:/matlab6p1/work/chacir.m"
_   t = colon(0.0,pi/10000.0,2.0*pi);
    #line 10 "d:/matlab6p1/work/chacir.m"
_   x = r(1.0,1.0)*sin(t);
    #line 11 "d:/matlab6p1/work/chacir.m"
_   y = r(1.0,1.0)*cos(t);
    
    
    #line 14 "d:/matlab6p1/work/chacir.m"
_   p = plot((CL(x),y,TM("m"),TM("EraseMode"),TM("xor"))); display(p);
    #line 15 "d:/matlab6p1/work/chacir.m"
_   axis((BR(-15.0),15.0,-15.0,15.0));
    #line 16 "d:/matlab6p1/work/chacir.m"
_   display( axis(TM("square")) );
    #line 17 "d:/matlab6p1/work/chacir.m"
_   grid(TM("on"));
    
    #line 19 "d:/matlab6p1/work/chacir.m"
_   title((CL(TM("渐变中的圆环"))));
    #line 20 "d:/matlab6p1/work/chacir.m"
_   xlabel((CL(TM("X轴"))));
    #line 21 "d:/matlab6p1/work/chacir.m"
_   ylabel((CL(TM("Y轴"))));
    
    
    #line 24 "d:/matlab6p1/work/chacir.m"
_   d_chacir_v0 = colon(1.0,1.0,m); int d_chacir_i0;
    for (d_chacir_i0=0;d_chacir_i0<d_chacir_v0.cols();d_chacir_i0++) {
      forelem(d,d_chacir_v0,d_chacir_i0);
      #line 25 "d:/matlab6p1/work/chacir.m"
_     x = r(d,1.0)*sin(t);
      #line 26 "d:/matlab6p1/work/chacir.m"
_     y = r(d,1.0)*cos(t);
      #line 27 "d:/matlab6p1/work/chacir.m"
_     set(p,(CL(TM("XData")),x,TM("YData"),y));
      #line 28 "d:/matlab6p1/work/chacir.m"
_     drawnow();
      
      #line 30 "d:/matlab6p1/work/chacir.m"
_     tic();
      #line 31 "d:/matlab6p1/work/chacir.m"
_     j_chacir_v1 = colon(1.0,1.0,5000.0); int j_chacir_i1;
      for (j_chacir_i1=0;j_chacir_i1<j_chacir_v1.cols();j_chacir_i1++) {
        forelem(j_,j_chacir_v1,j_chacir_i1);
        #line 32 "d:/matlab6p1/work/chacir.m"
_       j_ = j_*j_;
        #line 33 "d:/matlab6p1/work/chacir.m"
      }
      #line 34 "d:/matlab6p1/work/chacir.m"
_     toc();
      
      #line 36 "d:/matlab6p1/work/chacir.m"
    }
    
    #line 38 "d:/matlab6p1/work/chacir.m"
_   axis(TM("square"));
    
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    
    return x_M;
    end_scope
  }