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

іни значення функції: real;// Аргумент функції: real;// Значення функції в точці х: real;// Приріст аргументу, b: integer;// Лівий нижній кут області виведення графіка, h: integer;// Ширина і висота області виведення графіка, my: real;// Масштаб по осях X і Y, y0: integer;// Точка - початок коордінатbegin

//область виведення графіка"

{$ R * .dfm} f (x: real): real; a, b: real;, n: integer;:=strtofloat (Form1.edit5.Text);:=cos ( a * x * x) ;;// Будує трафік функцііTForm2.FormPaint (Sender: TObject) ;;//змінився розмір вікна программиTForm2.N1Click (Sender: TObject); Form2.SaveDialog1.Execute then.Image1.Picture.SaveToFile (form2.SaveDialog1.FileName) ;;; TForm2.FormCloseQuery (Sender: TObject; var CanClose: Boolean); MessageDlg ( Зберегти зображення? , mtwarning, mbYesNoCancel, 0) of: if Form2.SaveDialog1.Execute then.Image1.Picture.SaveToFile(form2.SaveDialog1.FileName+laquo;.bmpraquo;);.Close;;:form2.Close;;;TForm2.Timer1Timer(Sender: TObject);:=10;// X - координата лівого верхнього

//кута:=Form2.ClientHeight - 20;// Y - координата лівого верхнього

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

//функції на відрізку [xl, x2]:=f (xl);// Мінімум:=f (xl); //максимум:=xl;.Canvas.TextOut(12,5,laquo;yraquo;);.Canvas.TextOut(640,80,laquo;xraquo;);.Canvas.TextOut(7,20,laquo;^raquo;);.Canvas.TextOut(650,71,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) +50;// Масштаб по осі X//осі:=1;:=b-Abs (Round (yl * my)); with form2.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.F1.Checked=true then begin.Enabled:=true; .Enabled:=false; end; form1.N25.Checked=true then begin:=f (x); [x0 + Round (x * mx), y0-Round (y * my)]:=Form1.ColorDialog3.Color;:=x + dx ; (x gt;=x2) ;;;; TForm2.Image1Click (Sender: TObject) ;. Timer1.Enabled:=true ;; TForm2.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;;TForm2.ComboBox1Change(Sender: TObject); Form2.ComboBox1.ItemIndex=0 then begin.Image1.Picture.LoadFromFile ( 1.bmp ) ;. Interval:=1000; Form2.Timer2.Enabled:=false; .Timer1.Enabled:=true; end; Form2.ComboBox1.ItemIndex=1 then begin.Image1.Picture.LoadFromFile ( 1.bmp ) ;. Interval:=500; Form2.Timer2.Enabled:=false; .Timer1.Enabled:=true; end; Form2.ComboBox1.ItemIndex=2 then begin.Image1.Picture.LoadFromFile ( 1.bmp ) ;. Interval:=1; Form2.Timer2.Enabled:=false; .Timer1.Enabled:=true; end ;;. Unit3 ;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms ,, ExtCtrls, Menus, StdCtrls;=class (TForm): TImage ;: TPopupMenu ;: TTimer ;: TSaveDialog ;: TMenuItem ;: TMenuItem ;: TTimer ;: TComboBox; N1Click (Sender: TObject); FormCloseQuery (Sender: TObject; var CanClose: Boolean); Timer1Timer (Sender: TObject); Timer2Timer (Sender: TObject); ComboBox1Change (Sender: TObject); Image1Click (Sender:TObject);

{Private declarations}

{Public declarations} ;: TForm3; Unit1, Unit2;, x2: real;// Межі зміни аргументу функції, y2: real;// Межі зміни значення функції: real;// Аргумент функції: real;// Значення функції в точці х: real;// Приріст аргументу, b: integer;// Лівий нижній кут області виведення графіка, h: integer;// Ширина і висота області виведення графіка, my: real;// Масштаб по осях X і Y, y0: integer;// Точка - початок коордінатbegin

//область виведення графіка"

{$ R * .dfm} f (x: real): real; a, b: real;, n: integer;:=strtofloat (Form1.edit5.Text);:=- Sin (a * x * x) * (2 * a * x) ;;// Будує трафік функцііTForm3.N1Click (Sender: TObject); Form3.SaveDialog1.Execute then.Image1.Picture.SaveToFile (form3.SaveDialog1.FileName) ;;; TForm3.FormCloseQuery (Sender: TObject; var CanClose: Boolean); MessageDlg ( Зберегти зображення? , mtwarning, mbYesNoCancel, 0) of: if Form3.SaveDialog1.Execute then.Image1.Picture.SaveToFile(form3.SaveDialog1.FileName+laquo;.bmpraquo;);.Close;;:form3.Close;;;TForm3.Timer1Timer(Sender: TObject);:=10;// X - координата лівого верхнього

//кута:=Form3.ClientHeight - 20;// Y - коорд...