![]() |
|
сделать стартовой | добавить в избранное |
![]() |
Решение системы линейных уравнений методом Гаусса и Жордана-Гаусса |
МИНИСТЕРСТВО ОБРАЗОВАНИЯ И НАУКИ УКРАИНЫ СУМСКИЙ ГОСУДАРСТВЕННЫЙ УНИВЕРСИТЕТ Курсовая работа по программированию по теме: «Решение системы линейных уравнений методом Гаусса и Жордана-Гаусса» Сумы 2005 ПЛАН Постановка задачи Теоретическая часть Методы решения примененные в программе Метод Гаусса. Метод Жордана-Гаусса. Краткое описание среды визуальной разработки Delphi Таблица основных обозначений программы. Описание процедур и алгоритм роботы программы Текст программы. Файл-модуль u i 1.pas Файл-модуль u i 2.pas Файл проекта - Projec 1.dpr: Результат работы программы. Инструкция по работе с программой Использованная Литература Постановка задачи Составить программу для решения систем линейных уравнений размером на методом Гауса и Жордана-Гаусса. Теоретическая часть Методы решения примененные в программе Метод Гаусса Метод Гаусса решения систем линейных уравнений состоит в последовательном исключении неизвестных и описывается следующей процедурой. С помощью элементарных преобразований над строками и перестановкой столбцов расширенная матрица системы может быть приведена к видуЭта матрица является расширенной матрицей системы которая эквивалентна исходной системе Заметим, что перестановка столбцов означает перенумерацию переменных. На практике обычно избегают этой процедуры, приводя расширенную матрицу к ступенчатому виду путем элементарных преобразований над строками. Если хотя бы одно из чисел отлично от нуля, то система несовместна. Если же , то система совместна и можно получить явное выражение для базисных неизвестных через свободных неизвестных Метод Жордана-Гаусса. Элементарные преобразования этого метода аналогичны методу Гаусса, только матрица при использовании этого метода приводится к виду, тоесть столбец свободных коэффициентов превращается в столбец корней. Краткое описание среды визуальной разработки Delphi Среда Delphi - это сложный механизм, обеспечивающий высокоэффективную работу программиста. Визуально она реализуется несколькими одновременно раскрытыми на экране окнами. Окна могут перемещаться по экрану, частично или полностью перекрывая друг друга, что обычно вызывает у пользователя, привыкшего к относительной “строгости” среды текстового процессора Word или табличного процессора Excel, ощущение некоторого дискомфорта. После приобретения опыта работы с Delphi это ощущение пройдет, и вы научитесь быстро отыскивать нужное окно, чтобы изменить те или иные функциональные свойства создаваемой вами программы, ибо каждое окно несет в себе некоторую функциональность, т. е. предназначено для решения определенных задач. Запустите Delphi - и вы увидите нечто, похожее на На рисунке изображены шесть наиболее важных окон Delphi: главное окно, окно Дерева объектов (Objec ree View), окно Инспектора объектов, окно браузера, окно формы и окно кода программы. Чтобы упорядочить окна так, как они показаны на рисунке, вам придется вручную изменять их положение и размеры, т. к. обычно окно кода программы почти полностью перекрыто окном формы. Впрочем, добиваться максимального сходства того, что вы видите на экране вашего ПК, с изображением, показанным на рисунке, вовсе не обязательно: расположение и размеры окон никак не влияют на их функциональностью.
Замечу, что при первом запуске Delphi поверх всех окон появится окно С помощью этого окна вы сможете получить доступ к Web-страницам корпорации I prise для просмотра самой свежей информации о корпорации и ее программных продуктах, копирования дополни тельных файлов, чтения ответов на наиболее часто задаваемые вопросы и т. д. При повторных запусках Delphi это окно появляется автоматически с некоторой периодичностью, определяемой настройками на странице окна olls E viro me Op io s, связанной с закладкой Delphi Direc . Вы также сможете его вызвать в любой момент с помощью опции Help Delphi Direc главного меню. Таблица основных обозначений программы. Обозначение Описание Модуль maxr Константа для ограничения максимального размера системы U i 2 arys, ary2s Типы данных для переменных, в которых хранятся значения коэффициентов системы U i 2 Gauss1 Процедура для решения системы линейных уравнений методом Гаусса U i 2 Gaussj Процедура для решения системы линейных уравнений методом Жордана-Гаусса U i 2 i,j,l Счетчики U i 1 prover Промежуточная переменная типа S ri g, используется для проверки наличия букв среди коэффициентов системы, а также для замены «.» на «,». U i 1 S Переменная для хранения размера матрицы U i 1 k Переменная для хранения длины строчки хранящейся в переменной prover. U i 1 dl Переменная для проверки размера системы. U i 1 Mai Me u1 Меню программы. U i 1 File1, ew1, Save1, Exi 1 Пункты меню. U i 1 Ma rix, Coef, Gauss, Jgauss Таблицы для ввода элементов системы и вывода результатов расчета. U i 1 XPMa ifes 1 Компонент, который дает программе возможность использовать оформление Wi dows. U i 1 SaveDialog1 Диалоговое окно для сохранения результатов. U i 1 Bu o 1, Bu o 2 Кнопки для запуска процедур решения системы. U i 1 ew1Click Процедура, которая выполняется после выбора пункта меню ew. U i 1 Bu o 1Click Процедура, которая выполняется после нажатия кнопки Gauss. U i 1 Bu o 2Click Процедура, которая выполняется после нажатия кнопки J-Gauss. U i 1 Save1Click Процедура, которая выполняется после выбора пункта меню Save. U i 1 Exi 1Click Процедура, которая выполняется после выбора пункта меню Exi . U i 1 Form1 Собственно окно программы. U i 1 Описание процедур и алгоритм роботы программы В программу включены следующие процедуры : «gauss1», «gaussj», « ew1Click», «Bu o 1Click», «Bu o 2Click», «Save1Click», «Exi 1Click». С каждой из них мы ознакомимся ниже. Процедура «gauss1» выполняет проверку системы на сходимость и решение методом Гаусса. Процедура «gaussj» выполняет проверку системы на сходимость и решение методом Жордана-Гаусса. Процедура « ew1Click» выполняется после выбора пункта меню « ew» или сразу после запуска программы и выполняет чтение размера системы и устанавливает размер таблиц для ввода коэффициентов системы. Процедура «Bu o 1Click» считывает коэффициенты системы, проверяет корректность ввода коэффициентов и заменяет при необходимости «.» на «,». Потом запускает процедуру «gauss1» для решения системы и выводит результаты. Процедура «Bu o 2Click» считывает коэффициенты системы, проверяет корректность ввода коэффициентов и заменяет при необходимости «.»
на «,». Потом запускает процедуру «gaussj» для решения системы и выводит результаты. Процедура «Save1Click» запускает диалог сохранения файлов и выполняет сохранение результатов. Процедура «Exi 1Click» - Выход из программы. Текст программы. Файл-модуль u i 1.pas u i U i 1; i erface uses Wi dows, Messages, SysU ils, Varia s, Classes, Graphics, Co rols, Forms, Dialogs, Me us, XPMa , S dC rls, Grids, u i 2; ype Form1 = class( Form) Coef: S ri gGrid; Gauss: S ri gGrid; Jgauss: S ri gGrid; Bu o 1: Bu o ; Bu o 2: Bu o ; XPMa ifes 1: XPMa ifes ; SaveDialog1: SaveDialog; Mai Me u1: Mai Me u; File1: Me uI em; ew1: Me uI em; Save1: Me uI em; Exi 1: Me uI em; Ma rix: S ri gGrid; procedure ew1Click(Se der: Objec ); procedure Bu o 1Click(Se der: Objec ); procedure Bu o 2Click(Se der: Objec ); procedure Save1Click(Se der: Objec ); procedure Exi 1Click(Se der: Objec ); priva e { Priva e declara io s } public { Public declara io s } e d; var Form1: Form1; s:i eger; impleme a io {$R .dfm} procedure Form1.Exi 1Click(Se der: Objec ); begi close; e d; procedure Form1. ew1Click(Se der: Objec ); var i,dl:i eger; prover:s ri g; begi form1.E abled:=false; repea prover:=i pu box('Введите размер системы','Значение между 2 и 20','2'); dl:=le g h(prover); if dl=0 he showmessage('Введите размер системы') else begi if (dl=1) a d (prover&l ;'9') a d (prover&g ;'0') he s:= ru c(s r ofloa (prover)) else begi for i:=1 o dl do begi if prover&g ;'9' he begi showmessage('Введите число'); break; e d else if i=dl he s:= ru c(s r ofloa (i pu box('Введите размер системы','Значение между 2 и 20','2'))); e d; e d; e d; u il (s&g ;=2) a d (s&l ;=maxr); form1.E abled:= rue; ma rix.RowCou :=s 1; ma rix.ColCou :=s 1; gauss.colCou :=s 1; coef.rowCou :=s 1; jgauss.colCou :=s 1; coef.Cells:='Gauss'; jgauss.Cells:='J-Gauss'; for i:=1 o s do begi ma rix.Cells:='A' floa os r(i); coef.Cells:='X' floa os r(i); jgauss.Cells:='X' floa os r(i); e d; e d; procedure Form1.Bu o 1Click(Se der: Objec ); var a:ary2s; x,y:arys; error:boolea ; i,j,l,K:i eger; prover:s ri g; begi {Считывание массивов с исходными данными и проверка '.' или ','} { } for i:=1 o s do for j:=1 o s do begi prover:=ma rix.Cells; k:=le g h(prover); if k=0 he begi showmessage('Вы не ввели один или несколько элементов системы.'); exi ; e d; for l:=1 o le g h(prover) do if prover&g ;'9' he begi showmessage('В качестве одного или нескольких элементов системы введена буква. Замените их на числа!'); exi ; e d; ma rix.Cells); e d; for i:=1 o s do begi prover:=coef.cells='.' he prover&g ;'9' he begi showmessage('В качестве одного или нескольких элементов системы введена буква. Замените их на числа!'); exi ; e d; coef.cells); e d; { } {Решение и вывод результатов} { } gauss1(a,y,x,s,error); if o error he for i:=1 o s do gauss.cells) else begi showmessage('Система решения не имеет'); ew1.Click; e d; { } e d; procedure Form1.Bu o 2Click(Se der: Objec ); var a:ary2s; x,y:arys; error:boolea ; i,j,l,k:i eger; prover:s ri g; begi {Считывание массивов с исходными данными} { } {Считывание массивов с исходными данными и проверка '.'
Вот если бы цифру назвал Комов, то она, скорее всего, точно отражала бы количество „землян, разбросанных по Вселенной“. — С. Лифанов. 60 Значение линейной функции вида у = ах + Ь получено в результате решения системы линейных уравнений с двумя неизвестными. Ясно, конечно, что линейная функция в данном случае это упрощение, на самом же деле функция — нелинейная и вообще неизвестно какая (см., например, один из теоретически возможных графиков на рис. 1). — Е Ш.-Б. 61 Примечание существенное: экспансия должна начаться, так как 15 млрд. очень много для Земли, а на Марсе (под поверхностью Марса или в куполах; то же в точности относится и к Луне) больно-то не поживешь. Следовательно, любая планета, где можно вольно дышать, должна становиться объектом массовой колонизации. И процесс этот далее должен нарастать. Но это лишь первый ее этап. Так сказать, „вынужденная колонизация“ под воздействием обстоятельств. Я вот поглядел на график и подумал: а ведь действительно странно, что никто не рассматривал проблему колонизации землянами галактики более-менее серьезно
1. Метод Гаусса для решения систем линейных уравнений
2. Итерационные методы решения систем линейных уравнений с неединственными коэффициентами
3. Решение систем нелинейных уравнений методом Бройдена
4. Методы решения систем линейных уравнений
5. Способы решения систем линейных уравнений
9. Построение решения задачи Гурса для телеграфного уравнения методом Римана
10. Руководитель: стили и методы управления /на примера АО "Вятский торговый дом"/
11. Приближенное решение уравнений методом хорд и касательных
12. Решение систем линейных дифференциальных уравнений пятиточечным методом Адамса – Башфорта
13. Решение систем нелинейных алгебраических уравнений методом Ньютона
14. Итерационные методы решения систем нелинейных уравнений
15. Нахождение корня нелинейного уравнения. Методы решения системы нелинейных уравнений
16. Рекомендации по использованию социально-психологических методов управления на примере ОАО "Автоваз"
17. Анализ методов ценообразования на примере ООО "Торгсервис"
18. Расчет линейных цепей методом топологических графов
20. Нахождение корней уравнения методом простой итерации (ЛИСП-реализация)
21. Процесс принятия решений. Интуитивная и рациональная технология принятия решений
25. Решение системы линейных уравнений
26. Решение систем дифференциальных уравнений
29. Исчисления методами Лагранжа Рунге Кутта Ньютона и Гаусса
30. Метод Гаусса с выбором главной переменной
31. Метод Гаусса
32. Численное интегрирование методом Гаусса
34. Решение транспортной задачи методом потенциалов
35. Билеты, решения и методичка по Информатике (2.0)
37. Лабораторная работа №6 по "Основам теории систем" (Решение задачи о ранце методом ветвей и границ)
41. Решение транспортной задачи методом потенциалов
42. Составление и решение нестандартных уравнений графоаналитическим методом
43. Метод прогонки решения систем с трехдиагональными матрицами коэффициентов
44. Решение задач на построение сечений в многогранниках методом следов
46. Методология и методы принятия решения
47. Сущность и методы принятия управленческих решений
49. Методология и методы принятия решения
50. Совершенствование методов проектирования кораблей и обоснование проектных решений
51. Метод касательных решения нелинейных уравнений
52. Методы решения уравнений в странах древнего мира
53. Решение задач линейной оптимизации симплекс – методом
57. Метод решения уравнений Ньютона - Рафсона
58. Обучение общим методам решения задач
59. Примеры и методы творческого деления
60. Решение задачи методами линейного, целочисленного, нелинейного и динамического программирования.
61. Методы анализа и оценки инвестиционных проектов (на примере агрофирм)
62. Применение новейших экономико-математических методов для решения задач
64. Решение геоэкологических проблем с помощью нестандартных геофизических методов
67. Методы решения уравнений, содержащих параметр
68. Метод касательных решения нелинейных уравнений
69. Модели и методы решения проблемы выбора в условиях неопределенности
73. Итерационные методы решения нелинейных уравнений
74. Методы и алгоритмы компьютерного решения дифференциальных уравнений
75. Принятие решений методом анализа иерархий
78. Решение прикладных задач методом дихотомии
79. Решение экономических задач программными методами
80. Графический метод решения задач линейного программирования
82. Методы продвижения товаров на примере ООО "Сплат-косметика"
83. Современные формы и методы розничной продажи товаров и их эффективность (на примере ООО "Евросеть")
84. Исследование методов решения системы дифференциальных уравнений с постоянной матрицей
85. Логические задачи и методы их решения
89. Методы решения краевых задач, в том числе "жестких" краевых задач
90. Иммобилизованные БАС как основа создания ЛФ нового поколения. Примеры носителей. Методы
91. Анализ дисциплины труда на предприятии и методы ее укрепления (на примере РУП с/к «Заря»).
92. Индивидуальный метод организации производства на примере ЗАО "Оверо"
93. Использование нормативного метода при принятии управленческого решения
94. Методы и модели принятия решений
95. Методы поиска новых идей и решений. Совершенствование методов управления в менеджменте
96. Методы принятия управленческих решений для конкретной проблемы
97. Методы разработки управленческих решений
98. Стили и методы управления организацией сервиса (на примере гостиницы "Юность")
99. Методы мотивации персонала в организации на примере пансионата "Буран"