cwrite.src

来自「一种求解目标函数最小化的MATLAB仿真程序.」· SRC 代码 · 共 11 行

`C/write`:=proc(e)
   local l, d;
   global buffer, `C/buffer`;
   options `Copyright 1993 by Waterloo Maple Software`;
      l:=length(e);
      d:=length(`C/buffer`)+1-79999;
      if d<=0 then `C/buffer`:=cat(`C/buffer`,e); RETURN() fi;
      lprint(`C/buffer`);
      `C/buffer`:=e
   end