Программирование в Delphi математических процессов
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
ping(hMulResReadyEvent, hMulResMailslot);.dO1:=4;.dO2:=A;(MulMailslotOpsName, Operands, hMulOpsReadyEvent);:=ReadResultUsingFileMapping(hMulResReadyEvent, hMulResMailslot);.dO1:=dRes2;.dO2:=C;(MulMailslotOpsName, Operands, hMulOpsReadyEvent);:=ReadResultUsingFileMapping(hMulResReadyEvent, hMulResMailslot);.dO1:=dRes;.dO2:=dRes2;(SubMailslotOpsName, Operands, hSubOpsReadyEvent);:=ReadResultUsingFileMapping(hSubResReadyEvent, hSubResMailslot);dRes3 < 0 then.Caption:='Дискриминант меньше нуля!';.Caption:='';.dO1:=0;.dO2:=B;(SubMailslotOpsName, Operands, hSubOpsReadyEvent);:=ReadResultUsingFileMapping(hSubResReadyEvent, hSubResMailslot);.dO1:=dRes3;(RootMailslotOpsName, Operands, hRootOpsReadyEvent);:=ReadResultUsingFileMapping(hRootResReadyEvent, hRootResMailslot);.dO1:=dRes;.dO2:=dRes3;(AddMailslotOpsName, Operands, hAddOpsReadyEvent);:=ReadResultUsingFileMapping(hAddResReadyEvent, hAddResMailslot);.dO1:=dRes;.dO2:=dRes3;(SubMailslotOpsName, Operands, hSubOpsReadyEvent);:=ReadResultUsingFileMapping(hSubResReadyEvent, hSubResMailslot);.dO1:=2;.dO2:=A;(MulMailslotOpsName, Operands, hMulOpsReadyEvent);:=ReadResultUsingFileMapping(hMulResReadyEvent, hMulResMailslot);.dO1:=dRes;.dO2:=dRes3;(DivMailslotOpsName, Operands, hDivOpsReadyEvent);:=ReadResultUsingFileMapping(hDivResReadyEvent, hDivResMailslot);.dO1:=dRes2;.dO2:=dRes3;(DivMailslotOpsName, Operands, hDivOpsReadyEvent);:=ReadResultUsingFileMapping(hDivResReadyEvent, hDivResMailslot);.Caption:='x1 = ' + FloatToStrF(dRes, ffFixed, 15, 2);.Caption:='x2 = ' + FloatToStrF(dRes2, ffFixed, 15, 2);;;grfunc;, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;= class(TForm)FormPaint(Sender: TObject);FormResize(Sender: TObject);
{Private declarations}
{Public declarations};: TForm1;
{$R *.DFM}f(x:real):real; // Функция, график которой надо построить:=2*Sin(x)*exp(x/5);;GrOfFunc; // строит график функции
var,x2:real; // границы изменения аргумента функции,y2:real; // границы изменения значения функции:real; // аргумент функции:real; // значение функции в точке x:real; // приращение аргумента,b:integer; // левый нижний угол области вывода графика,h:integer; // ширина и высота области вывода графика,my:real; // масштаб по осям X и Y,y0:integer; // точка - начало координат
// область вывода графика:=10; // X - координата левого верхнего угла:=Form1.ClientHeight-20; // Y - координата левого верхнего угла
h:=Form1.ClientHeight-40; // высота:=Form1.Width-40; // ширина
x1:=0; // нижняя граница диапазона аргумента:=25; // верхняя граница диапазона аргумента:=0.01; // шаг аргумента:=f(x1); // минимум:=f(x1); // максимум
x:=x1;
repeat:= f(x);y =x2);:=h/abs(y2-y1); //:=w/abs(x2-x1); //
// оси:=l;:=b-Abs(Round(y1*my));form1.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);
Pixels[x0+Round(x*mx),y0-Round(y*my)]:=clRed;:=x+dx;(x>=x2);;;TForm1.FormPaint(Sender: TObject);
begin;;
// изменился размер окна программы
procedure TForm1.FormResize(Sender: TObject);.Canvas.FillRect(Rect(0,0,ClientWidth,ClientHeight));
// построить график;;;.