Приложение №2

Функция расчета уравнения прямой зависимости коэффициента аномальности от угла между реперами А и Б

function coordinate (x,x0,y0,x1,y1:Double):Double;

var tmp:Double;

begin

tmp:=((x-x0)/(x1-x0))*(y1-y0)+y0;

Result:=(tmp);

end;

//находим две точки для построения прямой

for i:=0 to Rows-1 do

if ((angl[i]<((max+min)/2)) and (angl[i]<>0))

then

begin

tmp2_x:=tmp2_x+angl[i];

tmp2_y:=tmp2_y+koef[i];

Inc(k);

end

else

if (angl[i]<>0) then

begin

tmp1_x:=tmp1_x+angl[i];

tmp1_y:=tmp1_y+koef[i];

Inc(p);

end;

tmp2_x:=tmp2_x/k;

tmp2_y:=tmp2_y/k;

tmp1_x:=tmp1_x/p;

tmp1_y:=tmp1_y/p;

x0:=tmp1_x;

y0:=tmp1_y;

x1:=tmp2_x;

y1:=tmp2_y;

y:=coordinate (min,x0,y0,x1,y1);

TFastLineSeries1.AddXY(min,y,'',clBlue);

y:=coordinate (max,x0,y0,x1,y1);

TFastLineSeries1.AddXY(max,y,'',clBlue);

y:=coordinate (Form1.global_angle,x0,y0,x1,y1);

mmo1.Lines[0]:=FloatToStrF(Form1.global_angle,ffFixed,4,2)+' - угол';

mmo1.Lines[1]:=FloatToStrF(y,ffFixed,4,2)+' - Ka';

1 АВПД – аномально высокое пластовое давление.

2 ГК – гамма-каротаж.

22