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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

71
AXValue, AYValue – соответствует аргументы и функции графиче-
ской зависимости;
Alabel – метка, отображаемая на графике и в легенде;
AColor – цвет графика.
С этой целью метод включается в конструкцию цикла, которая обес-
печивает повторение для изменений значения параметра цикла от 0 до N,
где целое N определяет количество вычисленных значений функции или
количество точек на графике. Так, например, в случае построения профиля
скорости продольной компоненты скорости в вертикальном сечении с но-
мером
NSection, требуется прежде определить значения скорости в узлах
разностной сетки с номером вертикальной координатной линии, равным
NSection.
Для этого используются известные значения функции тока.
Тогда для выполнения команды
Построение профиля скорости в за-
данном поперечном сечении полости
из главного меню или нажатия со-
ответствующей кнопки на панели инструментов
Визуализация результа-
тов
. требуется записать процедуру обработки данного события. Текст
процедуры представлен ниже.
procedure TCronus.ToolButton4Click(Sender: TObject);
{
Назначение: Построение профиля продольной компоненты скорости
для заданного сечения полости
}
type
TVectorY = array [0..Ny] of real;
var
i : byte;
U : TVectorY;
y : real;
begin
VelocityProfile.Show; //VelocityProfike – имя формы графического окна
for i := 0 to Ny do
if (0< i) and (i <Ny)
then
U[i] := U0*(Psi[i+1,NSection]-Psi[i, NSection])/Hy
else 
    AXValue, AYValue     – соответствует аргументы и функции графиче-
                           ской зависимости;
    Alabel               – метка, отображаемая на графике и в легенде;
    AColor               – цвет графика.

    С этой целью метод включается в конструкцию цикла, которая обес-
печивает повторение для изменений значения параметра цикла от 0 до N,
где целое N определяет количество вычисленных значений функции или
количество точек на графике. Так, например, в случае построения профиля
скорости продольной компоненты скорости в вертикальном сечении с но-
мером NSection, требуется прежде определить значения скорости в узлах
разностной сетки с номером вертикальной координатной линии, равным
NSection. Для этого используются известные значения функции тока.

    Тогда для выполнения команды Построение профиля скорости в за-
данном поперечном сечении полости из главного меню или нажатия со-
ответствующей кнопки на панели инструментов Визуализация результа-
тов. требуется записать процедуру обработки данного события. Текст
процедуры представлен ниже.

procedure TCronus.ToolButton4Click(Sender: TObject);
{
   Назначение: Построение профиля продольной компоненты скорости
                   для заданного сечения полости
}
type
   TVectorY         = array [0..Ny] of real;
var
   i : byte;
   U : TVectorY;
   y : real;
begin
   VelocityProfile.Show; //VelocityProfike – имя формы графического окна
   for i := 0 to Ny do
      if (0< i) and (i

Страницы