g_f.cpp

用MATCOM实现衰减振荡曲线（多线程）

  #include "matlib.h"
  #pragma hdrstop
  
  #include "f.h"
  
  unsigned int mlibpr=mt_set_MT(0); // 1 if program is multithreaded, 0 otherwise.
  
  
  int main(int argc, char** argv) {
    begin_scope
    
    initM(MATCOM_VERSION);
    
    if (argc<1) error("no argument supplied");
    f(TM(argv[1]));
    
    exitM();
    return 0;
    end_scope
  }