Приложение 2. Компоновки инструментов, рекомендуемые для малоинтенсивного увеличения зенитного угла № КНБК Диаметр долота

Таблица 39

Компоновки инструментов, рекомендуемые для малоинтенсивного увеличения зенитного угла

Приложение 3

Таблица 40

Компоновки инструмента, рекомендуемые для стабилизации параметров кривизны

Примечание. В случаях применения забойных двигателей меньшей секционности в КНБК включить УБТ

Таблица 41

Результаты применения фактических неориентируемых компоновок инструмента в ООО «Тюменбургаз»

Приложение 4

Программа " Прогноз" попадания скважины в круг допуска

Const

rad = 180/Pi;

procedure Gr2Rad (var x: real);

Begin

x: =x/rad;

end;

Var

lst: text;

stud_info, st: string;

H, X, Y, S, Ze, Az

Hp, Xp, Yp, Azp, Rp,

a1, a2, b1,.b2,

dH, dX, dY, dS, dL,

dZe, cZe, dAz, cAz, k, R: real;

Begin

Assign (lst, 'prn');

Rewrite (lst);

Writeln (' Программа " Круг2'");

Writeln ('Введите группу, фамилию > ');

Readln (stud_info);

Writeln ('Введите текущее положение забоя Н(м), Х(м), ',

'Y (m), S(m), Ze(град), Аz(град)');

Writeln ('где S - отход забоя от устья по горизонтали');

Writeln (' Ze - зенитный угол, Az - азимут');

Readln (H, X, Y, S, Ze, Az);

Writeln ('Введите проектное положение забоя Hp, Xp, Yp, ',

' Azp, Rp> '); Readln (Hp, Xp, Yp, Azp, Rp);

Writeln ('Введите коэффициенты а1(град/м), b1(1/м), ',

'а2(град/м), b2(1/м)> ');

Readln (а1, b1, а2, b2);

Writeln (lst, ' Группа и фамилия студента: ', studd_info);

Writeln(lst, ' ИСХОДНЫЕ ДАННЫЕ');

Writeln (lst, 'H=', H: 0: 2, ', Х=', Х: 0: 2, '; Y=',

Y: 0: 2, '; S=', S: 0: 2, ';

Ze=', Ze: 0: 2, '; Az=', Az: 0: 2);

Writeln (lst, 'Hp=', Hp: 0: 2, '; Xp=', Xp: 0: 2, '; Yp=', Yp: 0: 2,

'; Azp=', Azp: 0: 2, '; Rp=', Rp: 0: 2);

Writeln (lst, 'a1=', al: 0: 2, '; bl=', bl: 0: 2,

'; a2=^, , a2: 0: 2, '; Ь2=', Ь2: 0: 2);

Writeln (1st, ' ПРОГНОЗ попадания забоя в круг допуска');

st: ='--------------------------------------------' +

Writeln (lst, st);

Writeln (lst, '| Н, мI х, м | Y, m |',

' S, mI Ze, rpI Az, rp|');

Writeln (lst, st);

dL: = Hp-H;

Gr2Rad (Ze); Gr2Rad (Az);

Gr2Rad (Azp); Gr2Rad (al); Gr2Rad (a2);

Repeat

dZe: = dL * (al+bl*Ze) / (l-0.5*bl*dL);