Реферат Рішення диференціального рівняння для похідної функції методом Хеммінга і методом Адамса

ината лівого верхнього

//кута:=Form3.ClientHeight - 40;// Висота:=Form3.Width - 40;// Ширина xl:=0;// Нижня межа діапазону аргументу:=25;// Верхня межа діапазону аргументу:=0.01;// Крок аргументу//знайдемо максимальне і мінімальне значення

//функції на відрізку [xl, x2]:=f (xl);// Мінімум:=f (xl); //максимум:=xl;.Canvas.TextOut(12,5,laquo;yraquo;);.Canvas.TextOut(400,80,laquo;xraquo;);.Canvas.TextOut(7,20,laquo;^raquo;);.Canvas.TextOut(400,70,laquo;gt;raquo;);:= f (x); y lt; yl then yl:=y; y gt; y2 then y2:=y;:=x + dx; (x gt;=x2);

//обчислимо масштаб:=h/abs (y2-yl);// Масштаб по осі Y:=w/abs (x2-xl) +20;// Масштаб по осі X//осі:=1;:=b-Abs (Round (yl * my)); with form3.Image1.Canvas do

//осі (l, b); LineTo (l, bh); (x0, y0); LineTo (x0 + w, y0); (l + 5, bh, FloatToStrF (y2, ffGeneral, 6,3)); (1 + 5, b, FloatToStrF (yl, ffGeneral, 6,3));

//побудова графіка:=xl; form1.F2.Checked=true then begin.Enabled:=true; .Enabled:=false; end; form1.N26.Checked=true then begin:=f (x); [x0 + Round (x * mx), y0-Round (y * my)]:=Form1.ColorDialog3.Color;:=x + dx ; (x gt;=x2) ;;;; TForm3.Timer2Timer (Sender: TObject); x lt;=x2 then begin:=f(x);.Image1.Canvas.Pixels[x0+Round(x*mx),y0-Round(y*my)]:=Form1.ColorDialog3.Color;.Image1.Canvas.Pixels[x0+Round((x+0.005)*mx),y0-Round(y*my)]:=Form1.ColorDialog3.Color;.Image1.Canvas.Pixels[x0+Round((x+0.005)*mx),y0-Round(y*my)]:=Form1.ColorDialog3.Color;.Image1.Canvas.Pixels[x0+Round((x+0.005)*mx),y0-Round(y*my)]:=Form1.ColorDialog3.Color;;:=x+0.05;;TForm3.ComboBox1Change(Sender: TObject); If Form3.ComboBox1.ItemIndex=0 then begin.Image1.Picture.LoadFromFile ( 122.bmp ) ;. Interval:=100; Form3.Timer2.Enabled:=false; .Timer1.Enabled:=true; end; Form3.ComboBox1.ItemIndex=1 then begin.Image1.Picture.LoadFromFile ( 122.bmp ) ;. Interval:=50; Form3.Timer2.Enabled:=false; .Timer1.Enabled:=true; end; Form3.ComboBox1.ItemIndex=2 then begin.Image1.Picture.LoadFromFile ( 122.bmp ) ;. Interval:=1; Form3.Timer2.Enabled:=false; .Timer1.Enabled:=true; end ;; TForm3.Image1Click (Sender: TObject) ;;. Unit4 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, StdCtrls, jpeg, ExtCtrls;=class (TForm): TImage ;: TLabel ;: TLabel ;: TLabel ;: TLabel;

{Private declarations}

{Public declarations} ;: TForm4;

{$ R * .dfm}.