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

ntetr: =1;

x: =0;

for i: =1 to kx-1 do

begin

y: =0;

for j: =1 to ky-1 do

begin

z: =0;

for k: =1 to kz-1 do

begin

k1: =point+kp;

k2: =point+kz+1;

z: =z+hz [k] ;

cells [ntetr,1]: =k2; kordx [ntetr,1]: =x; kordy [ntetr,1]: =y+hy [j] ; kordz [ntetr,1]: =z;

cells [ntetr,2]: =point; kordx [ntetr,2]: =x; kordy [ntetr,2]: =y; kordz [ntetr,2]: =z-hz [k] ;

cells [ntetr,3]: =point+1; kordx [ntetr,3]: =x; kordy [ntetr,3]: =y; kordz [ntetr,3]: =z;

cells [ntetr,4]: =