图形图像处理示例代码【荐】.docVIP

绘制图形的程序单元代码 unit fxhsyplaa; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, Grids, DBGrids, Db, DBTables; type TForm1 = class（TForm） Image1: TImage; Label1: TLabel; Edit1: TEdit; Label2: TLabel; Edit2: TEdit; Label3: TLabel; Edit3: TEdit; Label4: TLabel; Edit4: TEdit; Label5: TLabel; Edit5: TEdit; Label6: TLabel; Edit6: TEdit; Button3: TButton; Label9: TLabel; Button4: TButton; DataSource1: TDataSource; Table1: TTable; DBGrid1: TDBGrid; procedure Button3Click（Sender: TObject）; procedure FormCreate（Sender: TObject）; private { Private declarations } public { Public declarations } end; type tpoint=record x,y:integer; end; type tfxhs=array[1..201] of real; var Form1: TForm1; point:array[1..201] of tpoint; fxhs:tfxhs; implementation {$R *.DFM} {计算函数值并将值存入数据库且绘制成曲线} procedure TForm1.Button3Click（Sender: TObject）; label 12345; var fxhs0,fxhs1,fxhs2:real; m,l,d,jd1,jd2,jd3:real; i:integer; max:real; begin if （edit1.text=） or （edit2.text=）or （edit3.text=） or （edit4.text=） or（edit5.text=） or （edit6.text=） then goto 12345; m:=strtofloat（edit1.text）; l:=strtofloat（edit2.text）; d:=strtofloat（edit4.text）; jd1:=strtofloat（edit5.text）; jd2:=strtofloat（edit6.text）; jd3:=strtofloat（edit3.text）; for i:=1 to 201 do begin fxhs0:=（2*3.14*（10+（i-1）*0.25））/300; fxhs1:=cos（fxhs0*l*cos（jd1））-cos（fxhs0*l）; fxhs2:= sqrt（1+m*m+2*m*cos（jd3+fxhs0*d*sin（jd1）*cos（jd2）））; fxhs[i]:=abs（fxhs1*fxhs2/sin（jd1））; end; max:=fxhs[1]; for i:=2 to 201 do begin if fxhs[i]max then max:=fxhs[i]; end; for i:=1 to 202 do begin fxhs[i]:=fxhs[i]/max; end; for i:=1 to 201 do begin point[i].x:=（i-1）*3; point[i].y:=250-round（fxhs[i]*250）; end; image1.canvas.Pen.width:=1; for i:=1 to 200