Описание: Пакет mnas-ansys/ccl-belt позволяет генерировать сценарии для построения поверхностей в программном комплексе ANSYS CFX на языке CCL.
Функции
make-belts(u-number v-number point-1 point-2 rotation-axis-from rotation-axis-to theta-min theta-max)Описание: функция make-belts выводит на стандартный вывод данные в формате CCL ANSYS, представляющие из себя сетку из поверхностей.
Возвращает список списков имен, вновьобразованных поверхностей. По строкам рост в направлении от point-1 к point-2. По столбцам рост от theta-min к theta-max.
Переменые:
- u-number - количество делений отрезка point-1 point-2;
- v-number - количество делений угла theta-min theta-max;
- point-1 - начальная точка образующей;
- point-2 - конечная точка образующей;
- rotation-axis-from - первая точка на оси;
- rotation-axis-to - вторая точка на оси;
- theta-min - угол минимальный;
- theta-max - угол максимальный.
Пример использования:
(make-belts 6 12
'(466.5 411.0 0.0) '(466.5 477.0 0.0)
'(0.0 0.0 0.0) '(1000.0 0.0 0.0)
-11.25 11.25)
make-line(point-1 point-2 &key (colour (quote (1 0 0))) (name (progn (obj-number-incf) (line-name))))Описание: функция make-line возвращает строку, которая представляет отрезок в формате пригодном для вставки в CCL файл системы ANSYS CFX.
Пример использования:
(make-line '(0 50 100) '(50 150 200))
make-radial-belts(number x y r-min r-max theta-min theta-max alpha)Описание: функция make-radial-belts выводит на стандартный вывод данные в формате CCL ANSYS, представляющие из себя радиальные пояса.
Возвращает список длиной в number элементов, каждым элементом которого являются:
- меньший угол пояса;
- больший угол пояса;
- имя поверхности.
Переменые:
- number - количество радиальных поясов;
- x - плоскость, в которой строятся пояса;
- y - координата центра поясов;
- r-max - радиус минимальный;
- r-min - радиус максимальный;
- theta-min - угол минимальный;
- theta-max - угол максимальный;
- alpha - угол поворота поясов вокруг оси X, градусы.
Пример использования:
(progn
(make-radial-belts 3 1200 200.0 100 200.0 -45.0 +45.0 0)
(make-radial-belts 3 1200 200.0 100 200.0 -45.0 +45.0 60.0))
make-table-belts(u-number v-number point-1 point-2 rotation-axis-from rotation-axis-to theta-min theta-max &key (equations (quote (=massFlowAve(Total Temperature)@ =massFlowAve(Velocity)@))) (formats (quote (%4.1f %4.1f))) (col 1) (row 1) (format-r %6.2f) (format-a %6.2f) (table 1))Описание: функция make-table-belts выводит на стандартный вывод данные, пригодные для формирования полей значений, вычисленых по выражениям equations.
Пример использования:
(make-table-belts 5 4
'(1200 50 0) '(1200 150 0.0)
'(0.0 0.0 0.0) '(1000.0 0.0 0.0)
-90 90)
make-table-by-locations(locations &key (equations (quote ( =massFlow()@))) (col A) (row 1) (format %4.1f) (table 1))Описание: функция make-table-by-locations выводит на стандартный вывод данные, пригодные для формирования таблицы на языке CCL.
Переменые:
- locations - список строк содержащих локации, для которых выполняется функци(я/и) equation;
- equations - список строк, представляющих функцию на языке CCL;
- col - левая колонка начала размещения таблицы;
- row - верхняя строка начала размещения таблицы;
- format - формат вывода данных в таблицу.
make-table-head(table)make-table-radial-belts(number x y r-min r-max theta-min theta-max alpha &key (equations =massFlowAve(Total Temperature)@) (col 1) (row 1) (format %4.1f) (table 1) (head-min a-min) (head-max a-max))Описание: функция make-table-radial-belts выводит на стандартный вывод данные, пригодные для формирования окружной эпюры поля значений.
Переменые:
- number - количество окружных поясов;
- x - плоскость, в которой строятся пояса;
- y - координата центра поясов;
- r-min - радиус максимальный;
- r-max - радиус минимальный;
- theta-min - угол минимальный;
- theta-max - угол максимальный;
- alpha - угол поворота поясов вокруг оси X, градусы;
- equations - строка, представляющая функцию на языке CCL;
- col - левая колонка начала размещения таблицы;
- row - верхняя строка начала размещения таблицы;
- format - формат вывода данных в таблицу;
- table - номер таблицы;
- head-min - заголовок для столбца минимальных значений;
- head-max - заголовок для столбца макисмальных значений.
make-table-tangent-belts(number x y r-min r-max theta-min theta-max alpha &key (equations =massFlowAve(Total Temperature)@) (row 1) (col 1) (format %4.1f) (table 1) (head-min a-min) (head-max a-max))Описание: функция make-table-tangent-belts выводит на стандартный вывод данные, пригодные для формирования вертикальной эпюры поля значений.
Переменые:
- number - количество окружных поясов;
- x - плоскость, в которой строятся пояса;
- y - координата центра поясов;
- r-min - радиус максимальный;
- r-max - радиус минимальный;
- theta-min - угол минимальный;
- theta-max - угол максимальный;
- alpha - угол поворота поясов вокруг оси X, градусы;
- equations - строка, представляющая функцию на языке CCL;
- col - левая колонка начала размещения таблицы;
- row - верхняя строка начала размещения таблицы;
- format - формат вывода данных в таблицу;
- table - номер таблицы;
- head-min - заголовок для столбца минимальных значений;
- head-max - заголовок для столбца макисмальных значений.
make-tangent-belts(number x y r-min r-max theta-min theta-max alpha)Описание: функция make-tangent-belts выводит на стандартный вывод данные в формате CCL ANSYS, представляющие из себя окружные пояса.
Возвращает список длиной в number элементов, каждым элементом которого являются:
- меньший угол пояса;
- больший угол пояса;
- имя поверхности.
Переменые:
- number - количество окружных поясов;
- x - плоскость, в которой строятся пояса;
- y - координата центра поясов;
- r-max - радиус минимальный;
- r-min - радиус максимальный;
- theta-min - угол минимальный;
- theta-max - угол максимальный;
- alpha - угол поворота поясов вокруг оси X, градусы.
Пример использования:
(progn
(make-tangent-belts 3 1200 200.0 100 200.0 -45.0 +45.0 0)
(make-tangent-belts 3 1200 200.0 100 200.0 -45.0 +45.0 60.0))
((166.66667 200.0 "Surface 000000000419")
(133.33334 166.66667 "Surface 000000000417")
(100.0 133.33334 "Surface 000000000415"))
