Методы вычисления приближенного значения интеграла
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
>// функции на отрезке [x1,x2]:=f(x1); // минимум:=f(x1); // максимум
x:=x1;:= f(x);y =x2);
// вычислим масштаб:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
// оси:=l;:=b-Abs(Round(y1*my));Grafik1.Canvas do
// оси(l,b);LineTo(l,b-h);(x0,y0);LineTo(x0+w,y0);(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
// построение графика:=x1;:=f(x);
=x2);;;TGrafik1.FormPaint(Sender:TObject);;;TGrafik1.FormResize(Sender:TObject);">Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;:=x+dx;(x>=x2);;;TGrafik1.FormPaint(Sender: TObject);;;TGrafik1.FormResize(Sender: TObject);
// очистить форму.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
// построить график;
end;.gr2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;= class(TForm)
procedure FormResize(Sender: TObject);FormPaint(Sender: TObject);
{ Private declarations }
{ Public declarations };: TGrafik2;Int2;
{$R *.dfm} f(x:real):real; // Функция, график которой надо построить
begin(Glavnaja.spis1.Text=1/sqrt((0.2*x*x)+1)) then:=1/sqrt((0.2*x*x)+1):=exp(-x*x);;GrOfFunc; // строит график функции
x1,x2:real; // границы изменения аргумента функции,y2:real; // границы изменения значения функции:real; // аргумент функции:real; // значение функции в точке x:real; // приращение аргумента,b:integer; // левый нижний угол области вывода графика,h:integer; // ширина и высота области вывода графика,my:real; // масштаб по осям X и Y,y0:integer; // точка - начало координат:integer;
// область вывода графика:=10; // X - координата левого верхнего угла:=Grafik2.ClientHeight-20; // Y - координата левого верхнего угла
h:=Grafik2.ClientHeight-40; // высота
w:=Grafik2.Width-40; // ширина
n:=StrToInt(Glavnaja.vvod4.Text);:=StrToFloat(Glavnaja.vvod5.Text); // нижняя граница диапазона аргумента:=StrToFloat(Glavnaja.vvod6.Text); // верхняя граница диапазона аргумента
dx:=(x2-x1)/n; // шаг аргумента
// найдем максимальное и минимальное значения
// функции на отрезке [x1,x2]:=f(x1); // минимум:=f(x1); // максимум
x:=x1;:= f(x);y =x2);
// вычислим масштаб:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
// оси:=l;:=b-Abs(Round(y1*my));Grafik2.Canvas do
// оси(l,b);LineTo(l,b-h);(x0,y0);LineTo(x0+w,y0);(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
// построение графика:=x1;:=f(x);
=x2);;;TGrafik2.FormPaint(Sender:TObject);;;TGrafik2.FormResize(Sender:TObject);">Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;:=x+dx;(x>=x2);;;TGrafik2.FormPaint(Sender: TObject);;;TGrafik2.FormResize(Sender: TObject);
// очистить форму.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
// построить график;
end;.gr3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;= class(TForm)
procedure FormResize(Sender: TObject);FormPaint(Sender: TObject);
{ Private declarations }
{ Public declarations };: TGrafik3;Int2;
{$R *.dfm}f(x:real):real; // Функция, график которой надо построить(Glavnaja.spis3.Text=1/sqrt(x*x+1)) then:=1/sqrt(x*x+1)(Glavnaja.spis3.Text=sin(x)) then:=sin(x):=cos(x);;GrOfFunc; // строит график функции
x1,x2:real; // границы изменения аргумента функции,y2:real; // границы изменения значения функции:real; // аргумент функции:real; // значение функции в точке x:real; // приращение аргумента,b:integer; // левый нижний угол области вывода графика,h:integer; // ширина и высота области вывода графика,my:real; // масштаб по осям X и Y,y0:integer; // точка - начало координат:integer;
// область вывода графика:=10; // X - координата левого верхнего угла:=Grafik3.ClientHeight-20; // Y - координата левого верхнего угла
h:=Grafik3.ClientHeight-40; // высота
w:=Grafik3.Width-40; // ширина
n:=StrToInt(Glavnaja.vvod7.Text);:=StrToFloat(Glavnaja.vvod8.Text); // нижняя граница диапазона аргумента:=StrToFloat(Glavnaja.vvod9.Text); // верхняя граница диапазона аргумента
dx:=(x2-x1)/n; // шаг аргумента
// найдем максимальное и минимальное значения
// функции на отрезке [x1,x2]:=f(x1); // минимум:=f(x1); // максимум
x:=x1;:= f(x);y =x2);
// вычислим масштаб:=h/abs(y2-y1); // масштаб по оси Y
mx:=w/abs(x2-x1); // масштаб по оси X
// оси:=l;:=b-Abs(Round(y1*my));Grafik3.Canvas do
// оси(l,b);LineTo(l,b-h);(x0,y0);LineTo(x0+w,y0);(l+5,b-h,FloatToStrF(y2,ffGeneral,6,3));(l+5,b,FloatToStrF(y1,ffGeneral,6,3));
// построение графика:=x1;:=f(x);
=x2);;;TGrafik3.FormPaint(Sender:TObject);;;TGrafik3.FormResize(Sender:TObject);">Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;:=x+dx;(x>=x2);;;TGrafik3.FormPaint(Sender: TObject);;;TGrafik3.FormResize(Sender: TObject);
// очистить форму.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
// построить график;;.
unit teo1;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, jpeg, ExtCtrls;= class(TForm): TImage;: TButton;Knop1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TTeorija1;
{$R *.dfm}TTeorija1.Knop1Click(Sender: TObject);;;.teo2;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls;= class(TForm): TImage;: TButton;KnopClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TTeorija2;
{$R *.dfm}TTeorija2.KnopClick(Sender: TObject);;;.teo3;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls;= class(TForm): TImage;: TButton;Button1Click(Sender: TObject);
{ Private declarations }
{ Public declarations };: TForm5;
{$R *.dfm}TForm5.Button1Click(Sender: TObject);;;.teo4;, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, jpeg, ExtCtrls, StdCtrls;= class(TForm): TImage;: TButton;KnopClick(Sender: TObject);
{ Private declarations }
{ Public declarations };: TTeorija4;
{$R *.dfm}TTeorija4.KnopClick(Sender: TObject);;;