necto

constructor TGrd2DProcess.CreateGrid(Dat: TData; Nx,Ny: integer);
var N1,N2,N3,i,j: integer;  h,S,q: double;  LnUp1: TLn;  SLn: TSLn;
begin
  Self.Nx:=Nx; Self.Ny:=Ny;
  hy1:=Dat.hy1; dNy1:=Dat.dNy1;
  hx1:=Dat.hx1; dNx1:=Dat.dNx1;
  Ny1:=Round(Ny*dNy1);
  {Ceтка на плоскости XY}
  for j:=0 to Dat.Ny do Y[j]:=Dat.Ly*j/Dat.Ny;
  {Ceтка на плоскости XZ}