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

then:=pov [ 3]. x-xp; if xn> Max then xn:=Max;:=pov [4]. x-xp; if xm> Max then xm:=Max;:=zp-pov [3]. y;:=J + Integral (xn, xm, yn, ym, z);; vidim [4] thenzp> xp-pov [4 ]. x then:=(zp-(xp-pov[4].x))*cos(PI/4);:=(pov[4].x-(xp+z*cos(PI/4)))/cos(PI/4);:=(pov[5].x-(xp+z*cos(PI/4)))/cos(PI/4);xn>Max then xn:=Max; xm> Max then xm:=Max;:=J + Integral (xn, xm, yn, ym, z);; vidim [5] thenzp> pov [5]. y then:=pov [ 5]. x-xp; if xn> Max then xn:=Max;:=pov [6]. x-xp; if xm> Max then xm:=Max;:=zp-pov [5]. y;:=J + Integral (xn, xm, yn, ym, z);; vidim [6] thenxp Max then xn:=Max;:=pov [7]. y-zp; if xm> Max then xm:=Max;:=pov [6]. x-xp;:=J + Integral (xn, xm, yn, ym, z);; vidim [7] thenzp> pov [7]. y then:=pov [7]. x-xp; if xn> Max then xn:=Max;:=pov [8]. x-xp; if xm> Max then xm:=Max;:=zp-pov [7]. y;:=J + Integral (xn, xm, yn, ym, z);; vidim [8] thenxp Max then xn:=Max;:=pov [9]. y-zp; if xm> Max then xm:=Max;:=pov [8]. x-xp;:=J + Integral (xn, xm, yn, ym, z);; vidim [9] thenzp> pov [9]. y then:=pov [9]. x-xp; if xn> Max then xn:=Max;:=pov [10]. x-xp; if xm> Max then xm:=Max;:=zp-pov [9]. y;:=J + Integral (xn, xm, yn, ym, z);; vidim [10] thenxp Max then xn:=Max;:=pov [11]. y-zp; if xm> Max then xm:=Max;:=pov [10]. x-xp;:=J + Integral (xn, xm, yn, ym, z);; vidim [11] thenzp> pov [11]. y then:=pov [11]. x-xp; if xn> Max then xn:=Max;:=pov [12]. x-xp; if xm> Max then xm:=Max;:=zp-pov [11]. y;:=J + Integral (xn, xm, yn, ym, z);;:=J;;

TForm1.GetPrfgrm: Tprfgrm; e=0.05;=0.1; Point=record: real;: real;; J0: real;: array [1 .. 3] of real;: array [1 .. 2] of real;: array [0 .. Np] of Point;: Tprfgrm;, k: integer;: real; [0]. x:=0; prfgrmr [0]. y:=z0;:=0; i:=1 to 10 do:=J0 + GetJ (0, z0);:=J0/10; i:=1 to Np do [i]. x :=prfgrmr [i - 1]. x +0.1; [3]:=prfgrmr [i - 1].y;[2]:=GetJ(prfgrmr[i].x,z[3]);(J[2]&lt;(J0-e*J0))or(J[2]&gt;(J0+e*J0))then[2]:=z[3]+step*((J[2]-J0)/abs(J[2]-J0));// Step з потрібним знаком[1]:=GetJ(prfgrmr[i].x,z[2]);(J[1]&lt;(J0-e*J0))or(J[1]&gt;(J0+e*J0))then:=0;[1]:=z[2]-(J[1]-J0)*(z[2]-z[3])/(J[1]-J[2]);[2]:=J[1];[1]:=GetJ(prfgrmr[i].x,z[1]);[3]:=z[2];[2]:=z[1];(k);k&gt;10000 then break; (J [1]>=(J0-e * J0)) and (J [1] <= (J0 + e * J0)); [i]. y:=z [1]; k> ; 10000 then prfgrmr [i]. y:=prfgrmr [i - 1].y;prfgrmr[i].y:=z[2];prfgrmr[i].y:=z[3];:=100*i/Np;.memo1.Lines.Add(floattostr(trunc(process))+&laquo; % »);;

i:=0 to Np do [i]. x:=round (xOy.x + koef * prfgrmr [i]. x); [i]. y:=round (xOy.y-koef * prfgrmr [i]. y);; {}:=Prfgrm;;

TForm1.InitPov; [1]. x:=- 10; pov [1]. y:=0; pov [2]. x:=10; pov [2]. y:=0; [3]. x:=14; pov [3]. y:=4; pov [4]. x:=17; pov [4]. y:=4; [5]. x:=20; pov [5]. y:=7; pov [6]. x:=25; pov [6]. y:=7; [7]. x:=25; pov [7]. y:=0; pov [8]. x:=27; pov [8]. y:=0; [9]. x:=27; pov [9]. y:=4; pov [10]. x:=29; pov [10]. y:=4; [11]. x:=29; pov [11]. y:=8; pov [12]. x:=39; pov [12]. y:=8;. Memo1.Text:=«»;;

TForm1.Button1Click (Sender: TObject); i: integer;: TextFile;: string;:=StrToFloat (combobox1.Text);

if z0 <5 then z0:=5;

/ / --------------- профілограми ---------------

With Image1.Canvas do.Color:=RGB (0,0,0);. ??Width:=3;. Style:=psSolid;:=GetPrfgrm;...