Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

22411
знаков
1
таблица
13
изображений
Работу выполнил студент гр.И-29 Уханов Е.В. Кафедра “Системы и Процессы Управления” “ХАРЬКОВСКИЙ ПОЛИТЕХНИЧЕСКИЙ ИНСТИТУТ” Харьков 2001 ВВЕДЕНИЕ

Во многих областях науки и техники , а также отраслях наукоемкой промышленности , таких как : авиационная , космическая , химическая , энергетическая , - являются весьма распространенные задачи прогноза протекания процессов , с дальнейшей их коррекцией .

Решение такого рода задач связано с необходимостью использования численных методов , таких как : метод прогноза и коррекции , метод Адамса-Башфорта , метод Эйлера , метод Рунге-Кута , и др. При этом , стоит задача решения системы линейных дифференциальных уравнений первого порядка одним из методов интегрирования , на произвольном промежутке времени . Одним из оптимальных методов дающих высокую точность результатов – является пяти точечный метод прогноза и коррекции Адамса-Башфорта . Для повышения точности метода используется трех точечный метод прогноза и коррекции с автоматическим выбором шага , что приводит к универсальному методу интегрирования систем дифференциальных уравнений произвольного вида на любом промежутке интегрирования .

Разработка программных средств реализующих расчет точного прогноза протекания процессов , является важнейшей вспомогательной научно-технической задачей .

Целью данной курсовой работы является разработка алгоритма решения систем линейных дифференциальных уравнений первого порядка пяти точечным методом прогноза и коррекции Адамса-Башфорта .

1. ПОСТАНОВКА ЗАДАЧИ

Рассмотрим произвольную систему линейных дифференциальных уравнений первого порядка :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (1.1)

тогда как :

А = Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (1.2)

 где А заданная матрица размером N x N .

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта - вектор с N координатами , который подлежит определению ;

N – произвольное целое число ;

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

заданные вектора правых частей с N координатами .

С использованием метода прогноза и коррекции Адамса-Башфорта пятого порядка , необходимо получить значения неизвестных для заданных временных интервалов . Для стартования метода необходимо использовать метод прогноза и коррекции третьего порядка с переменным шагом , на заданных временных промежутках ..

2. МЕТОДЫ РЕШЕНИЯ 2.1. Метод прогноза и коррекции

Метод прогноза и коррекции относится к задачам класса Коши , а именно к численным решениям многошаговыми методами .

Рассмотрим задачу Коши :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта , Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.1)

Подставим в (2.1.1) точное решение y(x) , и проинтегрируем это уравнение на отрезке Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта , тогда получим :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.2)


где в последнем член предполагаем , что p(x) полином , аппроксимирующий f(x,y(x)) . Чтобы построить этот полином , предположим , что Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта - приближения к решению в точках Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта . Будем считать для начала , что узлы Xi расположены равномерно с шагом h . тогда fi = f(xi,yi), ( i=k,k-1,k-2,…,k-N) есть приближения к f (x,y(x)) в точках Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта и мы в качестве P возьмем интерполяционный полином для выбора данных (xi,fi) ,

( i =k,k-1,k-2,…,k-N) . Таким образом , P – полином степени N , удовлетворяющий условиям P(xi)=fi , ( i = k,k-1,k-2,…,k-N) . В принципе , можем проинтегрировать этот полином явно , что ведет к следующему методу :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.3)

В простейшем случае , когда N=0 , полином P есть константа , равная fk , и (2.1.3) превращается в обычный метод Эйлера :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.4)

Если N=1 , то P есть линейная функция , проходящая через точки

(xk-1,fk-1) и (xk,fk) , т.е.

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.5)

интегрируя этот полином от Xk до Xk+1 , получим следующий метод :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.6)

который является двухшаговым , поскольку использует информацию в двух точках xk и xk-1 . Аналогично , если N=2 , то P - есть кубический интерполяционный полином , а соответствующий метод определяется формулой :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.7)

Отметим , что метод (2.1.6) – есть метод Адамса-Башфорта второго порядка , (2.1.7) – метод Адамса-Башфорта четвертого порядка .

Для стартования метода (2.1.7) необходимы сведения о четырех предыдущих точках . Соответственно данный метод требует вычисления стартующих данных . Воспользуемся для нахождения второй точки одношаговым методом Эйлера , который имеет вид :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Таким образом , подставляя начальные условия, мы находим вторую точку . Следует заметить , что степень точности совпадает со степенью точности остальных методов , что является существенным фактором в стартовании метода прогноза и коррекции .

Ввиду того , что стартовые методы имеют более низкий порядок , в начале приходится считать с меньшим шагом и с использованием большего промежутка времени . В данном случае метод Эйлера для дальнейшего интегрирования не оправдывает себя . Для этих целей воспользуемся трехшаговым методом прогноза и коррекции с переменным шагом .

Рассуждая также , как для метода Адамса-Башфорта , который излагается в работах : [1],[2],[3] , мы мы приходим к формулам :

Прогноз :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.8)

Коррекция :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.9)

где h - шаг интегрирования , изменяющийся на малом промежутке времени в соответствии с условиями Рунге :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта ,

где в свою очередь Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта - малое конкретное значение , при невыполнении условия которого увеличивается шаг h=h*N а Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта- малое конкретное значение , при невыполнении условия шаг соответственно уменьшается h=h/N , где N - некоторое целое число больше единицы .

Оптимально , для вычисления новой точки , с помощью метода прогноза и коррекции , используется формула :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  (2.1.10)

Таким образом, мы воспользовались простым трех шаговым методом прогноза и коррекции , для стартования метода Адамса-Башфорта . Преимущества данного метода заключаются :в его высокой точности , авто подборе шага , что во много раз повышает точность самого метода Адамса-Башфорта , и делает его оптимальным для задач такого рода .

Метод Адамса-Башфорта использует уже посчитанные значения в точке Xk и в предыдущих точках . В принципе , при построении интерполяционного полинома , мы можем использовать и точки Xk+1,Xk+2,… . Простейший случай при этом состаит в использовании точек Xk+1,Xk,…,Xk-N

 и построения интерполяционного полинома степени N+1 , удовлетворяющего условиям P(Xi)=fi , (I=k+1,k,…,k-N) . При этом возникает класс методов , известных как методы Адамса-Моултона . Если N=0 , то p – линейная функция , проходящая через точки (Xk,fk) и (Xk+1,f k+1) , и соответствующий метод :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.11)

является методом Адаиса-Моултона [2] , именно им мы воспользовались в формуле (2.1.9) – коррекции спрогнозированной точки в трех шаговом методе . Если N=2 , то p – кубический полином , построенный по точкам Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта и соответствующий метод :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.12)

является методом Адамса-Моултона четвертого порядка . В силу того , что по сути fk+1 – неизвестная , то методы Адамса-Моултона (2.1.11),(2.1.12) называют неявными . В тоже время методы Адамса-Башфорта – называют явными .

Теперь воспользовавшись явной формулой (2.1.7) , и неявной формулой (2.1.12) , используя их совместно , мы приходим к методу Адамса-Башфорта четвертого порядка :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.1.13)

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Стоит обратить внимание , что в целом этод метод является явным . Сначало по формуле Адамса-Башфорта вычисляется значениеРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта , являющееся “прогнозом” . Затем Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта  используется для вычисления приближенного значения Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта , которое в свою очередь используется в формуле Адамса-Моултона . Таким образом формула Адамса-Моултона “корректирует” корректирует приближение , называемое формулой Адамса-Башфорта .

Теперь рассмотрим произвольную систему линейных дифференциальных уравнений первого порядка :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

 где

A = Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Заданная матрица размером NxN ; Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта - вектор с N координатами , который подлежит определению . В связи с тем , что связь между искомыми неизвестными определяется матрицей коэффициентов A , на каждом шаге по времени , необходимо решить систему относительно неизвестных скоростей , для её решения воспользуемся модифицированным методом Гаусса , который описан в разделе 2.2 .

Далее, интегрируя сначала ранее описанными методами : методом Эйлера на первом шаге , трех точечным методом прогноза и коррекции с авто подбором шага , на малом промежутке времени и с малым начальным шагом , для повышения точности стартующих методов на оставшемся промежутке времени производим интегрирование с постоянным шагом – пяти точечным методом прогноза и коррекции Адамса-Башфорта (2.1.13) , [2] , [3] .

2.2 Модифицированный метод Гаусса

Как типичный пример решения систем линейных дифференциальных уравнений , рассмотрим систему четырех линейных алгебраических уравнений .

Для решения системы четырех линейных алгебраических уравнений с четырьмя неизвестными модифицированным методом Гаусса необходимо

Составить систему : Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта(2.2.1)

1) Каждое уравнение делиться на коэффициент при X1

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

 2) Теперь образуем нули в первом столбце матрицы системы : вычитаем 2-ое

из 1-ого , 3-е из 2-ого , 4-ое из 3-его :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

 (2.2.2)

3) Повторив еще раз эти операции получим систему двух уравнений с двумя неизвестными , решение которой можно получить по формулам Крамера :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта (2.2.3)

Решение же X1 и X2 можно получить , подставив в какое-либо из уравнений систем (2.2.1) и (2.2.2) и разрешив эти уравнения относительно соответствующей переменной .

3. ОПИСАНИЕ АЛГОРИТМА

Программа начинается с вывода сообщения о программе . После происходит считывание необходимых исходных данных из файла , для дальнейшей работоспособности алгоритма , а именно – начальных условий и матрицы коэффициентов системы линейных дифференциальных уравнений первого рода , начального шага интегрирования , левого и правого условий Рунге , время интегрирования по трех шаговому методу прогноза и коррекции , время интегрирования по пяти точечному методу Адамса-Башфорта .

С помощью метода Эйлера находим дополнительные начальные условия. Решение систем линейных дифференциальных уравнений мы описываем отдельной процедурой , что облегчает дальнейшую алгоритмизацию .

Далее составляем цикл , для реализации алгоритма нахождения всех Yk+1 точек на заданном малом промежутке времени , и проверкой на условия Рунге , по трех шаговому методу прогноза и коррекции с авто подбором шага . После чего мы организовываем цикл , реализующий алгоритм нахождения точек по методу Адамса-Башфота , на заданном большом промежутке времени и с шагом автоматически подобранным предыдущим методом .

Вычисленные данные записываем файл , по ним формируем массив данных , которые выводим в сответствии с масштабированием на экран в виде графиков .

Блок-схема приведена в Приложении 1 .

4.ОПИСАНИЕ ПРОГРАММЫ

Программа реализующая универсальный алгоритм для решения систем линейных дифференциальных уравнений первого порядка произвольного вида , - построена по принципам объектно-ориентированного программирования .Основная программа построена на объектной библиотеке VFH , реализующей возможности реализации гибкого интерфейса между программой и пользователем .

Основная программа включает в себя только один модуль PACM , и использует всего два метода объекта TApplPandC , - метод Application - рабочий цикл программы ; деструктор Done – реализует разрушение таблицы виртуальных методов , и операций , связанных с завершением программы .

Модуль PACM включает в себя модули библиотек - реализующих построение интерфейса . Модуль реализующий алгоритм метода Адамса-Башфорта , и по вычесленным данным строящий график , есть – PACMBtn .

Главным родителем всех объектов есть объект – Tobject . Основным рабочим объектом библиотеки VFH есть объект Tform . Рассмотрим потомка являющегося типичным представителем родителя TForm - TApplPandC . Он имеет два виртуалых метода : MouseHandler : Boolean Б – выходным параметром которого есть признак закрытия формы , и метод FormCreate - реализующий построение интерфейса формы . Не виртуальный метод Application - предназначен для создания формы , конфигурирования программной среды , и дальнейшего управления программой .

Модуль реализующий создание и управления главного и субменю , есть – PACMMenu , позволяющий пользователю изменять параметры и настройки системы , предоставляющий справку о разработчике , а также дает доступ к справочной системе PrandCo M Help System . Данные свойства меню реализуют объекты TMenu , и THelpForm , объектной библиотеки VFH .

Теперь рассмотрим модуль PACMBtn – рреализующий алгоритм построения вычисленных данных . Процедура реализующая алгоритм пяти точечного метода прогноза и коррекции Адамса-Башфорта , - MethodAdamsaBashforta ( h,tp,ta : real ; NU : array[1..N] of real ) – параметры которой представляют : h - начальный шаг интегрирования ; tp – время интегрирования трех точечным методом прогноза и коррекции , ta – время интегрирования по методу Адамса-Башфорта , NU – массив начальных условий . Данная процедура способна производить решения систем линейных дифференциальных уравнений произвольного размера , на произвольном промежутке времени интегрирования . Вычисленные данные записываются в файлы prandcom*.df . Метод реализующий алгоритм построения вычисленных данных произвольной степени сложности , с возможностью построения графиков с не линейно изменяющимся шагом , построения одновременно любого количества графиков , - есть объект TCartFile , обладающего всеми свойствами родителей  Tform , Tchart .

К заключению стоит заметить , что программа PrandCo M version 2.41 - разработана на языке Borland Pascal под защищенный режим работы процессора и имеет доступ ко всей оперативной памяти компьютера . Реализует гибкий интерфейс , облегчающим работу с программным обеспечением . Позволяет решить систему линейных дифференциальных уравнений первого порядка методом Адамса-Башфорта , с возможность просмотра результатов вычисления в виде графиков .

Как показали тестовые программы – разработанный алгоритм предоставляет точность вычислений , погрешность которых не превышает 1% .

Тексты программной оболочки PrandCo M version 2.41 приведены в приложении 4 .

5. ПРИМЕРЫ РАСЧЕТОВ

Для анализа достоверности получаемых результатов рассмотрим следующие примеры :

5.1.Решение одного дифференциального уравнения

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

Пусть требуется решить уравнение :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

при начальном условии y(0)=1 , 0<=x<=1 , и шаге интегрирования h=0.1 . Это линейное уравнение , имеющее следующее точное решение :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

которое поможет нам сравнить точность численного решения для случая с постоянным шагом , т.к. точность решений с переменным шагом выше . Результаты расчета представлены в Таблице 1 .Как видно из таблицы, отличие между численными и аналитическими решениями удовлетворительное даже для такого большого шага , и не превышает 2% . Теперь решим этот же пример тем же методом , но с переменным шагом . Получаем любопытные зависимости точности от выбора шага , а также шага сходимости , - которые носят периодический характер . Результаты исследования приведены в таблице 2 . Как мы видим, погрешность резко уменьшается с использованием метода с переменным шагом , и показывает очень высокую точность решения для численных методов , не превышающею 1% .

Таблица 1

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Таблица 2

Начальный шаг Максимальная погрешность Сведение к шагу
0.1 1.683 % 0.0250
0.01 1.163 % 0.0100
0.001 0.744 % 0.0040
0.0001 0.568 % 0.0032
0.00001 0.451 % 0.0025
0.000001 0.723 % 0.0040
0.0000001 0.578 % 0.0032
0.00000001 0.462 % 0.0026
0.000000001 0.740 % 0.0041
0.0000000001 0.592 % 0.0033
0.00000000001 0.473 % 0.0026

Иллюстрация решения данного дифференциального уравнения в виде графика – приведена в Приложении 2 .

5.2.Решение системы дифференциальных уравнений

Вторым этапом анализа достоверности полученных результатов была проверка правильности решения системы линейных дифференциальных уравнений с аналитическим решением .

Рассмотрим следующую систему дифференциальных уравнений , которую требуется решить методом Адамса-Башфорта :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Начальными условиями здесь являются :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта . Возьмем начальный шаг интегрирования h=0.00001 , время интегрирования по трех точечному методу прогноза и коррекции tp=0.1 и время интегрирования по методу Адамса-Башфорта ta=1 .

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

Иллюстрация решения данной системы дифференциальных уравнений приведены в виде графика в приложении 3 .

ЗАКЛЮЧЕНИЕ

В данной курсовой научно-исследовательской работе разработан алгоритм и программа решения систем линейных дифференциальных уравнений первого порядка пяти точечным методом прогноза и коррекции Адамса-Башфорта .

Проведены тестовые расчеты , подтвердившие высокую эффективность и точность метода Адамса-Башфорта со стартованием трех точечным методом прогноза и коррекции с переменным шагом .

Проведены ряд исследований решения систем как с постоянным шагом , так и с переменным шагом на сходимость к постоянному шагу .

Во всех случаях получены результаты высокой точности .

Список литературы

1.Дж.Ортега , У.Пул “Введение в численные методы решения дифференциальных уравнений ”. Пер.с англ.; под редакцией А.А.Абрамова - М.;Наука.Гл.ред.физ.мат.лит.1986.-288с.

2.Р.В.Хемминг “Численные методы для научных работников инженеров ”: Пер с англ.:Под редакцией Р.С.Гутера.- Гл.ред.физ.мат.лит.1968.-203 с.

Т.Шуп.”Решение инженерных задач наЭВМ. Практическое пособие “

Пер.с англ.-М.Мир.1982.-238с.

Приложение 1 :

Блок схема Алгоритма

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта -

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта +

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

H:=h*N
-

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

H:=h/N
+
Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта
Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта
Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Приложение 2:

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение одного дифференциального уравнения

Приложение 3 :

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

Решение системы линейных дифференциальных уравнений

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – БашфортаРешение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта 1-ое уравнение 2 –ое уравнение

Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта

3 – е уравнение  4 –ое уравнение

Приложение 4 : Тексты программ

{

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 | PrandCoM version 2.41 Copiright ( c ) 2001 |

 | Программа разработана студентом |

 | Национального Технического Университета |

 | " Харьковский Политехнический Институ " |

 | группы И - 29  |

 | Кафедры Автоматического Управления Движением |

 | ( Системы и процессы управления ) |

 | Ухановым Е.В.  |

 | NetMail ( FidoNet ) 2:461/212.21 |

 | E-Mail : JVUMailbox@rambler.ru |

 | |

 | Программа разработана на основе объектной библиотеки VFH version 4.XX |

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

}

{$M 10000,0,0}

(****************************************************************************)

(****** Дата последней разработки : 05.05.2001 **********************)

(****************************************************************************)

Program Prognoz_and_Correction_Modification;

(****************************************************************************)

 Uses PACM;

(****************************************************************************)

 var

TPC : TApplPandC;

(****************************************************************************)

(******************************) begin (*************************************)

TPC.Application;

TPC.Done;

(*******************************) end. (*************************************)

(****************************************************************************)

{

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

 | Версия 2.XX |

 | Программа разработана студентом Национального Технического |

 | Университета " Харьковский Политехнический Институ " группы И - 29 |

 | Кафедры Автоматического Управления Движением - Ухановым Е.В. |

 | NetMail ( FidoNet ) 2:461/212.21 |

 | E-Mail : jvumailbox@rambler.ru |

 | |

 | Программа разработана на основе объектной библиотеки VFH version 4.XX |

 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

}

(****************************************************************************)

(**** Дата последней разработки модуля : 15.04.2001 *****************)

(****************************************************************************)

(****************************************************************************)

(*******************************) Unit PACM; (*******************************)

(****************************************************************************)

(*******************************) INTERFACE (********************************)

(****************************************************************************)

Uses FormObj,MouseObj,PACMEr,PACMMenu,PACMBtn,PACMPnl,PACMPC,PACMCnst;

(****************************************************************************)

type

TApplPandC = object ( TForm )

Function MouseHandler : boolean;Virtual;

Procedure FormCreate;Virtual;

Procedure Application;

end;

(****************************************************************************)

(******************************) IMPLEMENTATION (****************************)

(****************************************************************************)

 Procedure TApplPandC.FormCreate;

var

Pnl : TPanel;

Pnl1 : TPanel;

TMenu1 : TCreateMenus;

begin

Pnl.Init(548,35,619,50,1,7,1,1,1,1,false,false);

Pnl.Panel;

Pnl1.Init(470,407,630,460,1,7,1,0,1,4,true,false);

Pnl1.Panel;

TPnl1.ToolBarCreate;

TPnl1.PanelCreate;

TPageControl1.PageControlCreater;

TBitBtns.BitBtnCreaters;

TMenu1.MenusCreate;

end;

(********************************)

 Function TApplPandC.MouseHandler;

var

TMouse1 : TMouse;

b,x,y : word;

TMenu1 : TCreateMenus;

TSubMenu1 : TCreateMenus;

ST1 : TSystemTime;

begin

MouseHandler:=false;

TMouse1.GetMouseState(b,x,y);

ST1.Init(549,36,618,49,1,15);

ST1.SystemTime;

TBitBtns.BitBtnHandlers(b,x,y);

MouseHandler:=fExitBtn;

TMenu1.MenusVisible(x,y);

 TMenu1.MenusHandlers(b,x,y);

TPageControl1.PageControlHandlers(b,x,y);

end;

 Procedure TApplPandC.Application;

var

TIEr : TInitErrors;

begin

TIEr.FatalErrorVFH;

TIEr.LoadFont('km_defj8.fnt');

TIEr.FindImEr1('x.bi');

InitObjGraph;

if InitMouseJVU then

begin

TIEr.LfLoad('Lf.sys');

TIEr.ErrorExec('x.bi');

TIEr.FindFile('f1.dat');

TIEr.FindFile('f2.dat');

TIEr.FindFile('f3.dat');

TIEr.FindFile('f4.dat');

TIEr.FindFile('km_defj8.fnt');

TIEr.FindFile('f_nfrj8.fnt');

TIEr.FindFile('t_nfrj8.fnt');

TIEr.FindFile('asdf.bi');

TIEr.FindFile('pacm_n1.bi');

TIEr.FindFile('pacm_n2.bi');

TIEr.FindFile('pacm_n3.bi');

TIEr.FindFile('pacm_n4.bi');

TIEr.FindFile('PrandCoM.hlp');

TIEr.FindFile('litj.chr');

TIEr.FindFile('scri.chr');

TIEr.FindFile('trip.chr');

TIEr.FindFile('tscr.chr');

TIEr.FindFile('initm.mtr');

TIEr.FindFile('initnu.mtr');

if not fQuickHalt then

begin

TIEr.LoadCFG('PrandCom.cfg');

With HT do

begin

hx1:=575;

hy1:=20;

hx2:=637;

hy2:=34;

hc:=true;

hs:='Закрыть';

end;

Init(1,1,639,479,7,1,'Prognoz & Corrections Modifications');

Form;

end;

end

else

begin

TIEr.ErrorVFH;

end;

end;

(****************************************************************************)

(***********************************) END. (*********************************)

(****************************************************************************)


Информация о работе «Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта»
Раздел: Математика
Количество знаков с пробелами: 22411
Количество таблиц: 1
Количество изображений: 13

Похожие работы

Скачать
23511
3
14

... , является важнейшей вспомогательной научно-технической задачей . Целью данной курсовой работы является разработка алгоритма решения систем линейных дифференциальных уравнений первого порядка пяти точечным методом прогноза и коррекции Адамса-Башфорта . 1. ПОСТАНОВКА ЗАДАЧИ   Рассмотрим произвольную систему линейных дифференциальных уравнений первого порядка : ...

0 комментариев


Наверх