diamond.txt

这是机械工业张德丰《MATLAB与外部程序接口编程》随书源码

#include "matlib.h"
#pragma hdrstop
#include "diamond.h"
Mn diamond()
{
   begin_scope
    dMm(t); dMm(x); dMm(y); dMm(n); dMm(h); dMm(i_); 
    #line 1 "d:/soucecode/example6-5/diamond.m"
    call_stack_begin;
    #line 1 "d:/soucecode/example6-5/diamond.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 "d:/soucecode/example6-5/diamond.m"
_   t = colon(0.0,pi/2000.0,pi*2.0);
    #line 3 "d:/soucecode/example6-5/diamond.m"
_   x = sin(t);
    #line 4 "d:/soucecode/example6-5/diamond.m"
_   y = cos(t);
    #line 5 "d:/soucecode/example6-5/diamond.m"
_   plot((CL(y),x,TM("b")));
    #line 6 "d:/soucecode/example6-5/diamond.m"
_   axis(TM("equal"));
    #line 7 "d:/soucecode/example6-5/diamond.m"
_   n = length(t);
    #line 8 "d:/soucecode/example6-5/diamond.m"
_   h = line((CL(TM("color")),TM("g"),TM("linestyle"),TM("."),TM("marker"),
TM("."),TM("markersize"),50.0,TM("erasemode") \,TM("xor")));
    #line 10 "d:/soucecode/example6-5/diamond.m"
_   i_ = 1.0;
    #line 11 "d:/soucecode/example6-5/diamond.m"
_   while (istrue(i_)) {
      #line 12 "d:/soucecode/example6-5/diamond.m"
_     set(h,(CL(TM("xdata")),y(i_),TM("ydata"),x(i_)));
      #line 13 "d:/soucecode/example6-5/diamond.m"
_     drawnow();
      #line 14 "d:/soucecode/example6-5/diamond.m"
_     i_ = i_+1.0;
      #line 15 "d:/soucecode/example6-5/diamond.m"
_     if (istrue(i_>n)) {
        #line 16 "d:/soucecode/example6-5/diamond.m"
_       i_ = 1.0;
        #line 17 "d:/soucecode/example6-5/diamond.m"
      }
      #line 18 "d:/soucecode/example6-5/diamond.m"
    }
    call_stack_end;
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;
    // function exit code
    return x_M;
    end_scope
}












extern "C" _declspec(dllexport) void diamond()
{
	// TODO: add construction code here,
	// Place all significant initialization in InitInstance
	 initM(MATCOM_VERSION);
   begin_scope
    dMm(t); dMm(x); dMm(y); dMm(n); dMm(h); dMm(i_); 
    #line 1 "d:/soucecode/example6-5/diamond.m"
    call_stack_begin;
    #line 1 "d:/soucecode/example6-5/diamond.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 "d:/soucecode/example6-5/diamond.m"
_   t = colon(0.0,pi/2000.0,pi*2.0);
    #line 3 "d:/soucecode/example6-5/diamond.m"
_   x = sin(t);
    #line 4 "d:/soucecode/example6-5/diamond.m"
_   y = cos(t);
    #line 5 "d:/soucecode/example6-5/diamond.m"
_   plot((CL(y),x,TM("b")));
    #line 6 "d:/soucecode/example6-5/diamond.m"
_   axis(TM("equal"));
    #line 7 "d:/soucecode/example6-5/diamond.m"
_   n = length(t);
    #line 8 "d:/soucecode/example6-5/diamond.m"
_   h = line((CL(TM("color")),TM("g"),TM("linestyle"),TM("."),
TM("marker"),TM("."),TM("markersize"),50.0,TM("erasemode") \,TM("xor")));
    #line 10 "d:/soucecode/example6-5/diamond.m"
_   i_ = 1.0;
    #line 11 "d:/soucecode/example6-5/diamond.m"
_   while (istrue(i_)) {
      #line 12 "d:/soucecode/example6-5/diamond.m"
_     set(h,(CL(TM("xdata")),y(i_),TM("ydata"),x(i_)));
      #line 13 "d:/soucecode/example6-5/diamond.m"
_     drawnow();
      #line 14 "d:/soucecode/example6-5/diamond.m"
_     i_ = i_+1.0;
      #line 15 "d:/soucecode/example6-5/diamond.m"
_     if (istrue(i_>n)) {
        #line 16 "d:/soucecode/example6-5/diamond.m"
_       i_ = 1.0;
        #line 17 "d:/soucecode/example6-5/diamond.m"
      }
      #line 18 "d:/soucecode/example6-5/diamond.m"
    }    
    call_stack_end;    
    // nargin, nargout exit code
    nargin_val=old_nargin; nargout_val=old_nargout;    
    // function exit code    
  //  return x_M;
    end_scope
	exitM();
}




unit Unit1;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls;
  Procedure diamond(); 
type
  TForm1 = class(TForm)
    Button1: TButton;
    Button2: TButton;
    Image1: TImage;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
  Procedure diamond; external 'delphidll.dll' name 'diamond';





procedure TForm1.Button1Click(Sender: TObject);
begin
   diamond();
end;