Значения трансформанты сопротивления рассчитываются по соотношениям Пекериса.

Константы и переменные: nt=17; n=18; {число отсчетов}

R[1..10]; {удельные сопротивления}

T[1..nt]; {трансформанты сопротивления}

HS[1..9]; {мощности слоев}

x1, y, S, f, B: real; {х1- абсцисса первой точки измерения, у- текущая абсцисса, S – значение кажущегося сопротивления, f – шаг, B – текущие значения трансформанты сопротивления }

i9, i8, i, j, m: integer; {i9- число слоев, i8=i9-1, i, j, m- счетчики}

Procedure TI (var B: real); {вычисляет текущие значения трансформанты сопротивления}

		B:=R[i]

Не нашли, что искали? Воспользуйтесь поиском: