unit1.pas.bak

采用delphi自编的sin函数傅立叶离散数据数据表生成器

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Edit1: TEdit;
    Button2: TButton;
    Edit2: TEdit;
    Edit3: TEdit;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    Edit6: TEdit;
    Edit7: TEdit;
    procedure Button2Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button2Click(Sender: TObject);
var i,tp,fpl,z,zero:integer;
var res:real;
begin
    edit1.Text:=edit4.Text;
    fpl:=strtoint(edit3.Text);
    z:= strtoint(edit2.Text);
    zero:=strtoint(edit4.Text);
    for i:=1to fpl do
    begin
      res:=(3.1415926*i*2)/fpl;
      res:=sin(res)*z;
      tp:=round (res)+zero;
      edit1.Text :=edit1.Text+','+inttostr(tp);
    end
end;

procedure TForm1.Button1Click(Sender: TObject);
var i,tp,fre:integer;
var res,res_s:real;
begin
    i:=strtoint(edit5.Text);
    res:=3.1415926*2*0.00015625*i;
    fre:=strtoint(edit7.Text);
    res:=res*fre;
    res:=sin(res);
    res:=res*600;
    {
    res_s:=int(res);
    if(res_s<0)then
      begin
        if((res_s-res)>0.5)then res_s:=res_s-1;
      end
    else
      begin
        if((res-res_s)>0.5)then res_s:=res_s+1;
      end;
     }
    res_s:=res+604;
    tp:=round(res_s);
    edit6.Text :='<T:'+inttoStr(i)+'>'+inttostr(tp);
    edit5.Text:=inttostr(i+1);
end;

end.