chacir.cpp

vc与matlab联合编程实现圆环渐变功能

  #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); 
    
    #line 1 "c:/matlab701/work/chacir.m"
    call_stack_begin;
    #line 1 "c:/matlab701/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 2 "c:/matlab701/work/chacir.m"
_   r = colon(1.0,0.1,10.0);
    #line 3 "c:/matlab701/work/chacir.m"
_   r = ctranspose(r);
    #line 4 "c:/matlab701/work/chacir.m"
_   /*[m,n] = */size(r,i_o,m,n);
    #line 5 "c:/matlab701/work/chacir.m"
_   clf();
    #line 6 "c:/matlab701/work/chacir.m"
_   t = colon(0.0,pi/10000.0,2.0*pi);
    #line 7 "c:/matlab701/work/chacir.m"
_   x = r(1.0,1.0)*sin(t);
    #line 7 "c:/matlab701/work/chacir.m"
_   y = r(1.0,1.0)*cos(t);
    #line 8 "c:/matlab701/work/chacir.m"
_   p = plot((CL(x),y,TM("m"),TM("EraseMode"),TM("xor")));
    #line 9 "c:/matlab701/work/chacir.m"
_   axis((BR(-15.0),15.0,-15.0,15.0));
    #line 9 "c:/matlab701/work/chacir.m"
_   axis(TM("square"));
    #line 10 "c:/matlab701/work/chacir.m"
_   grid(TM("on"));
    #line 11 "c:/matlab701/work/chacir.m"
_   title((CL(TM("渐变中的圆环"))));
    #line 11 "c:/matlab701/work/chacir.m"
_   xlabel((CL(TM("x轴"))));
    #line 11 "c:/matlab701/work/chacir.m"
_   ylabel((CL(TM("y轴"))));
    #line 12 "c:/matlab701/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 13 "c:/matlab701/work/chacir.m"
_     x = r(d,1.0)*sin(t);
      #line 14 "c:/matlab701/work/chacir.m"
_     y = r(d,1.0)*cos(t);
      #line 15 "c:/matlab701/work/chacir.m"
_     set(p,(CL(TM("Xdata")),x,TM("Ydata"),y));
      #line 16 "c:/matlab701/work/chacir.m"
_     drawnow();
      #line 17 "c:/matlab701/work/chacir.m"
    }
    #line 18 "c:/matlab701/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
  }