Курсовая работа: Суперэлементное моделирование пространственной системы "плита – грунтовое основание"

if (i<=j) then value: =prmatr [i,j-i+1] ;

end;

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

function value2 (i,j: integer): real;

var k,n1: integer;

begin

n1: =kx*ky*kz*3;

for k: =1 to n1 do

begin

if (P [k] =1) and (i>=k) then inc (i);

if (P [k] =1) and (j>=k) then inc (j);

end;

value2: =value (i,j);

end;

процедура сжатия силового вектора

procedure compressf (k: integer);

var i: integer;

begin

for i: =k to 3*kx*ky*kz do F [i]: =F [i+1] ;

inc ( Count);

end;

функция, возвращающая значение сигнума от числа

function sign (f: real): shortint;

begin

if f=0 then sign: =0

else sign: =round (abs (f) /f);

end;

алгоритм занесения координат и номеров узлов тетраздров

point: =1;