ВУЗ:
Составители:
Имена var1, var2, ...должны быть глобальными.
1.2.6 Программа
Программа – это совокупность логически связанных программных
модулей, находящихся во внешней памяти в виде m-файлов, написанных на
языке программирования. Программные модули вызываются динамически.
Один из модулей является начальным, хотя синтаксически он никак не
выделяется. Для связи модулей используются переменные рабочей области,
параметры, а также переменные
, объявленные со словом global во всех
модулях, где эти переменные используются.
1.3 Решение специальных задач
Файл-функция для решения модельной задачи:
function modelexam(gfile, bfile, err)
% Файл-функция находит решение модельной граничной
% задачи Дирихле для эллиптического дифференциального
% уравнения в прямоугольной области.
% Использование:
% modelexam('файл с декомп. геом.', 'файл с гран. услов.', err)
% Инициализация сетки с максимальной стороной элемента 0.2
[p, e, t] = initmesh(gfile, 'Hmax', 0.2);
% Задание коэффициентов уравнения
a = 0;
c = 1;
% Определение строки
с формулой правой части уравнения
f = '5*pi^2*sin(pi*x).*sin(2*pi*y)';
% Организация циклического измельчения сетки пока
% не достигнута требуемая точность
erhelp = 1;
while erhelp > err
% Измельчение сетки
[p, e, t] = refinemesh(gfile, p, e, t);
% Решение уравнения
u = assempde(bfile, p, e, t, c, a, f);
% Вычисление точного решения в узлах сетки,
% абсциссы и ординаты узлов храняться в строках матрицы p
uex = exsol(p(1,:), p(2,:));
Имена var1, var2, ...должны быть глобальными.
1.2.6 Программа
Программа – это совокупность логически связанных программных
модулей, находящихся во внешней памяти в виде m-файлов, написанных на
языке программирования. Программные модули вызываются динамически.
Один из модулей является начальным, хотя синтаксически он никак не
выделяется. Для связи модулей используются переменные рабочей области,
параметры, а также переменные, объявленные со словом global во всех
модулях, где эти переменные используются.
1.3 Решение специальных задач
Файл-функция для решения модельной задачи:
function modelexam(gfile, bfile, err)
% Файл-функция находит решение модельной граничной
% задачи Дирихле для эллиптического дифференциального
% уравнения в прямоугольной области.
% Использование:
% modelexam('файл с декомп. геом.', 'файл с гран. услов.', err)
% Инициализация сетки с максимальной стороной элемента 0.2
[p, e, t] = initmesh(gfile, 'Hmax', 0.2);
% Задание коэффициентов уравнения
a = 0;
c = 1;
% Определение строки с формулой правой части уравнения
f = '5*pi^2*sin(pi*x).*sin(2*pi*y)';
% Организация циклического измельчения сетки пока
% не достигнута требуемая точность
erhelp = 1;
while erhelp > err
% Измельчение сетки
[p, e, t] = refinemesh(gfile, p, e, t);
% Решение уравнения
u = assempde(bfile, p, e, t, c, a, f);
% Вычисление точного решения в узлах сетки,
% абсциссы и ординаты узлов храняться в строках матрицы p
uex = exsol(p(1,:), p(2,:));
Страницы
- « первая
- ‹ предыдущая
- …
- 55
- 56
- 57
- 58
- 59
- …
- следующая ›
- последняя »
