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

  • Просмотров 3148
  • Скачиваний 382
  • Размер файла 436
    Кб

задач наЭВМ. Практическое пособие “ Пер.с англ.-М.Мир.1982.-238с. Приложение 1 : Блок схема Алгоритма Начало Вывод сообщения Считывание данных из файла Yn:=Yn_1+h*dYn T<=Tp - Gauss + Yn:=Yn_1+h*DyN/2 Gauss Yn:=Yn_1+h*(DyP-DyN)/5 T:=t+h Ep<Yn 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;