Реферат Моделювання СТМ-профілограм

(prfgrm);;;

TForm1.FormCreate (Sender: TObject); i, j: integer;; i:=1 to N doj:=1 to 2 do M [i, j]:=random; {}

. x:=15; xOy.Y:=Image1.Height - 15;:=trunc ((Image1.Width-xOy.x) / pov [12]. x - 5);

/ / --------------- Осі --------------- Image1. Canvas do.Color:=RGB (0,0,0);. ??Width:=1; (xOy.x, 0); (xOy.x - 3,15); LineTo (xOy.x +3,15); LineTo (xOy.x, 0 ); (xOy.X, xOy.y); (Image1.Width - 150, xOy.y); (Image1.Width - 165, xOy.Y - 3); (Image1.Width - 165, xOy.Y +3 ); (Image1.Width - 150, xOy.y);

/ / --------------- Підпис осей --------------- i:=1 to 40 do begin (xOy.x + i * koef, xOy.y - 2); LineTo (xOy.x + i * koef, xOy.y +2); (xOy.x + i * koef - 4, xOy.y +2, IntToStr (i));; i:=1 to 35 do begin (xOy.x - 2, xOy.yi * koef); LineTo (xOy.x +2, xOy.yi * koef); (xOy.x - 15 , xOy.yi * koef - 4, IntToStr (i));;

/ / -------------------------------------------

/ / --------------- Сітка ---------------. Color:=RGB (150,150,150); . Style:=psDot; i:=1 to 40 do begin (xOy.x + i * koef, xOy.y); (xOy.x + i * koef, 0);; i:=1 to 35 do begin ( xOy.x, xOy.yi * koef); (Image1.Width, xOy.yi * koef);;

/ / --------------- Поверхня ---------------. Color:=RGB (250,0 , 0);. Width:=2;. Style:=psSolid; (xOy.x + koef * pov [1]. x, xOy.y-koef * pov [1]. y); i:=2 to 12 do (xOy.x + koef * pov [i]. x, xOy.y-koef * pov [i]. y);;;;

TForm1.ReadFromFile;: real;, j: Integer;: File of real; (f, «goodrnd.mas»); i:=1 to n doj:=1 to 2 do [ i, j]:=0; (f); i:=1 to N doj:=1 to 2 do (f, ch); [i, j]:=ch;; (f);;.

CTM;

, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,, StdCtrls, ExtCtrls, ComCtrls, Math;

=100; Ef=5.71; k=1; Np=150;=200; tp=1; fi0=4.5; R=5;=array [-Np .. Np] of TPoint; =array [1 .. 2] of real;=class (TForm): TButton;: TImage;: TLabel;: TLabel;: TLabel;: TButton;: TMemo;: TLabel;: TComboBox;: TComboBox;: TComboBox;: TLabel; Button1Click (Sender: TObject); FormCreate (Sender: TObject); Button2Click (Sender: TObject); Clear; GetZ (rr: real; x: real; bet: real; tp: integer): real; GetJz (rr: real; x: real; bet: real; tp: integer): real; Integral1 (betn, betm: real; rr, xx: real; tp: integer): real; Integral2 (rrn, rrm, xx: real; tp: integer; p: boolean): real; GetJ (xx: real): real; GetPrfgrm: Tprfgrm;

{Public declarations};

: TForm1;, alf, U, Xp, vmt: real;: array [1 .. N] of Trndm;: Tprfgrm;, koefy: integer;: TPoint;

{$ R *. dfm} TForm1.GetZ (rr, x, bet: real; tp: integer): real; Z: real; tp=0 then Z:=sqrt (sqr (Z0 + R-sqrt (abs (R * R-rr * rr))) + x * x + rr * rr-

2 * x * rr * cos (bet)) if tp=1 then Z:=sqrt (sqr (Z0 + R * (1-1/sin (alf)) + rr / tan ( alf)) + x * x + rr * rr-

2 * x * rr * cos (bet));:=Z;;

TForm1.GetJz (rr: real; x: real; bet: real; tp:integer):real;S1,S2,fi,Zxy:real;:=GetZ(rr,x,bet,tp);:=3/(k*fi0);S2:=Zxy*(1-23/(3*fi0*k*Zxy+10-2*U*k*Zxy))+S1;:=fi0-U*(S1+S2)/(2*Zxy)- 2.86 / (k * (S2-S1)) * ln (S2 * (Zxy-S1) / (S1 * (Zxy-

S2)));:=1620 * U * Ef * exp ((- 1.025) * Zxy * sqrt (abs (fi)));;

TForm1.Integral1 (betn...