unit Unit5; { This software has been designed and it is CopyLefted by Han de Bruijn: (===) @-O^O-@ #/_\# ### } INTERFACE uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, Grafisch; type TForm1 = class(TForm) Image1: TImage; procedure Toetsdruk(Sender: TObject; var Key: Char); procedure Scheppen(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; IMPLEMENTATION {$R *.dfm} procedure test(much : integer); var y : array of double; x,dx : double; k : integer; begin SetLength(y,much+1); dx := (xmax-xmin)/much; y[0] := 0; y[1] := y[0] + dx; for k := 1 to much-1 do begin x := k*dx; y[k+1] := 2*y[k]-y[k-1]-sqr(dx)/x*y[k]; end; Form1.Image1.Canvas.Pen.Width := 2; Form1.Image1.Canvas.Pen.Color := clBlack; Form1.Image1.Canvas.MoveTo(x2i(0),y2j(0)); for k := 1 to much do begin x := k*dx; Form1.Image1.Canvas.LineTo(x2i(x),y2j(y[k])); end; Form1.Image1.Canvas.Pen.Color := clYellow; Form1.Image1.Canvas.MoveTo(x2i(xmin),y2j(0)); Form1.Image1.Canvas.LineTo(x2i(xmax),y2j(0)); end; procedure TForm1.Toetsdruk(Sender: TObject; var Key: Char); { On KeyPress } begin Exit; end; procedure TForm1.Scheppen(Sender: TObject); { At moment of creation } begin xmin := 0; xmax := 100; ymin := -5; ymax := +5; TV(Form1.Image1); ClearDevice; test(1000); test(10000); Form1.Image1.Picture.SaveToFile('bibber.bmp'); end; END.