Введение в технологию программирования. Часть 3. Проект OLYMPUS-D. Коржов Е.Н - 62 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

62
Описания и объявления помещаются, естественно, в модуль
DECLAR, поскольку эти данные используются в различных модулях и яв-
ляются поэтому глобальными данными.
Можно написать тело для процедуры
Initial модуля PROLOG.
Предполагается, что в рассматриваемой задаче достаточно ограничиться
начальным условием равновесия, когда среда неподвижна и обе функции –
тока и вихря – равны нулю во всей области решения.
procedure Initial;
{
Назначение: Задание начальных физических условий задачи
}
var
i, j, k : byte;
begin
for
i := 0 to Ny do
for j := 0 to Nx do
begin
Psi [i,j] := 0;
for k := 0 to 1 do
W[k,i,j] := 0;
end;
end; {
Initial }
Записав текст процедуры, выполняем ее отладку и тестирование обыч-
ным образом. После этого переходим к разработке основных процедур
функционального наполнения программного комплекса.
Вычисление на одном шаге для такого рода задач удобнее всего вы-
полнять в такой последовательности:
●
вычисление функции вихря во внутренних точках об-
ласти решения задачи;
●
вычисление функции тока во внутренних точках области
решения задачи;
●
вычисление функции вихря на границах области.
Поэтому тело процедуры Stepon запишется в виде 
       Описания и объявления помещаются, естественно, в модуль
DECLAR, поскольку эти данные используются в различных модулях и яв-
ляются поэтому глобальными данными.

       Можно написать тело для процедуры Initial модуля PROLOG.
Предполагается, что в рассматриваемой задаче достаточно ограничиться
начальным условием равновесия, когда среда неподвижна и обе функции –
тока и вихря – равны нулю во всей области решения.

procedure Initial;
{
   Назначение: Задание начальных физических условий задачи
}
var
   i, j, k     : byte;
begin
   for i := 0 to Ny do
        for j := 0 to Nx do
           begin
               Psi [i,j] := 0;
               for k := 0 to 1 do
                   W[k,i,j] := 0;
           end;
end; { Initial }

    Записав текст процедуры, выполняем ее отладку и тестирование обыч-
ным образом. После этого переходим к разработке основных процедур
функционального наполнения программного комплекса.

    Вычисление на одном шаге для такого рода задач удобнее всего вы-
полнять в такой последовательности:

              ● вычисление функции вихря во внутренних точках об-
                ласти решения задачи;
              ● вычисление функции тока во внутренних точках области
                решения задачи;
              ● вычисление функции вихря на границах области.

    Поэтому тело процедуры Stepon запишется в виде
                                  62

Страницы