f.cpp

来自「用MATCOM实现衰减振荡曲线（多线程）」· C++ 代码 · 共 39 行

  #include "matlib.h"
  #pragma hdrstop
  
  #include "f.h"
  
  
  Mm f(Mm x) {
    begin_scope
    x.setname("x"); 
    dMm(y); 
    
    #line 1 "g:/dethr/f.m"
    call_stack_begin;
    #line 1 "g:/dethr/f.m"
    // 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=1.0;
    nargout_set=0;
    
    // translated code
    
    #line 2 "g:/dethr/f.m"
_   y = times(exp(-1.5*x),sin(2.0*pi*12.5*x));
    #line 3 "g:/dethr/f.m"
_   display( plot((CL(x),y)) );
    call_stack_end;
    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    
    // function exit code
    x.setname(NULL); 
    return y;
    end_scope
  }