Решение системы линейных уравнений методом Халецкого - Курсовая работа

Содержание

Введение 2

1 Метод Халецкого. 3

1.1 Пояснение метода. 3

2 Формы. 5

2.1 Главная. 5

2.2 Основная форма. 5

2.3 Форма построения графика. 7

2.4 Форма сохранения результата. 8

2.5 Информационные формы. 9

3 Создание программ. 10

3.1 Основная программа решения уравнения. 10

3.2 Программа построения графика. 16

3.3 Программа сохранение результата. 18

3.4 Программа завершения работы приложения. 18

3.5 Программы перехода между формами. 19

Заключение 21

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

Введение (выдержка)

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

Основная часть (выдержка)

Текст программы:

Option Explicit

Dim a(10, 10) As Double

Dim r(10) As Double

Dim w, h, h1

Dim i , j

Public n, xy1, xy2, x1, xx1, x2, xx2 As Integer

Private Sub Command1_Click()

Dim File1 As String

Dim file2 As String

w = 200

h = 200

h1 = 2 ' длина линии делений

Picture1.Scale (0, 0)-(w, h)

'сетка

'ось OX

Picture1.Line (0, h / 2)-(w, h / 2)

For i = 0 To w Step 10 'шаг сетки по ОХ

Picture1.Line (i, h / 2 - h1)-(i, h / 2 + h1)

Picture1.Print (i - 100) / 10

Next i

'ось OY

Picture1.Line (w / 2, 0)-(w / 2, h)

For i = 0 To h Step 10 'шаг сетки по OY

Picture1.Line (w / 2 - h1, i)-(w / 2 + h1, i)

If h / 2 - i <> 0 Then Picture1.Print (100 - i) / 10

Next i

'ввод матрицы А

File1 = Form1.Text1.Text

Open File1 For Input As #1

Input #1, n

For i = 1 To n

For j = 1 To n

Input #1, a(i, j)

Picture1.Print a(i, j);

Picture1.Print

Close #1

'ввод матрицы b

file2 = Form1.Text2.Text

Open file2 For Input As #2

For i = 1 To n

Input #2, r(i)

'Построение графика

xy1 = 10 'значение переменной x2

x1 = (r(1) - a(1, 2) * xy1) / a(1, 1) 'значение x1 ,зависящие от x2

xx1 = (r(1) + a(1, 2) * xy1) / a(1, 1)

Picture1.Line (100 + xy1 * 10, 100 - x1 * 10)-(100 - xy1 * 10, 100 - xx1 * 10), 1000

xy2 = 10 'значение переменной x2

x2 = (r(2) - a(2, 2) * xy2) / a(2, 1) 'значение x1 ,зависящие от x2

xx2 = (r(2) + a(2, 2) * xy2) / a(2, 1)

Picture1.Line (100 + xy2 * 10, 100 - x2 * 10)-(100 - xy2 * 10, 100 - xx2 * 10), 1000

Reset

End Sub

3.2 Программа сохранение результата.

Данная программа запускаться с основной формы (Form1) при нажатии кноп-ки «Сохранить результат» в меню Файл → Сохранить результат. В файле фор-матом “.txt” или “.doc” сохраняется текст “ Результатом решения системы ли-нейных уравнений является x(i)= ” и результат решения системы уравнений.

Текст программы:

Private Sub Command1_Click()

d = Text1.Text + Combo1.Text

X = Form2.Text4.Text

Text = "Результатом решения системы линейных уравнений является x(i)=" + X

'сохранение файла

Open d For Output As #1

Print #1, Text

Close #1

Form5.Hide

End Sub

3.3 Программа завершения работы приложения.

При выборе команды меню Файл → Выход на любой форме, кроме формы сохранения (Form5), данного приложения запускается программа, завершающая работу приложения. После выполнения действий для запуска данной программы появляется диалоговое окно с подтверждением завершения работы приложения или отклонением.

Текст программы:

Private Sub exit_Click()

If MsgBox("Вы действительно хотите закрыть приложение?",vbYesNo+ vbQuestion, "Exit System.") = vbNo Then

Exit Sub

End If

End

End Sub

3.4 Программы перехода между формами.

При выборе команды в меню форм или нажатие кнопки «Построить график» на основной форме (Form1), «Отменить» в форме сохранения (Form5) открыва-ется форма, которая требуется для дальнейшей работы приложения.

Текст программы перехода титульной формы(Form2):

Private Sub aboutmetod2_Click()

Form6.Show

End Sub

Private Sub osninfo2_Click()

Form4.Show

End Sub

Private Sub Prog2_Click()

Form2.Show

Form1.Hide

End Sub

Текст программы перехода основной формы(Form1):

Private Sub graph1_Click()

Form3.Show

End Sub

Private Sub infile_Click()

Form5.Show

End Sub

Private Sub onform1_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub

Текст программы перехода формы основной информации(Form3):

Private Sub onform3_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub

Текст программы перехода формы основной информации(Form4):

Private Sub onform4_Click()

Form1.Show

Form2.Hide

Form3.Hide

Form4.Hide

Form6.Hide

End Sub

Заключение (выдержка)

Метод Халецкого в программной среде для решения системы линейных

уравнений используется часто и является одним из легких способов.

Разработанная на Visual Basic программа находит решение системы

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

Халецкого.

Программа включает в себя функцию построения графика

при размерности матрицы n=2, что позволяет визуально увидеть решения

системы.

Литература

1. ГОСТ 19.701-90 Схемы алгоритмов программ, данных и систем. М., 1992. 22 с.

2. ГОСТ 2.105-95. Общие требования к текстовым документам. М., 1996. 31 с.

3. Верисбицкий В.М. Численные методы. Линейная алгебра и нели-нейные уравнения. - М.: Высшая школа, 2000

4. Браун С., Visual Basic 6. Учебный курс.- СПб.: Питер, 2005.-574 с.: ил.

5. informatic.ugatu.ac.r* – официальный сайт кафедры информатики УГАТУ, отдел дистанционной помощи студентам по выполне-нию курсовых работ.

Примечания

К работе прилагается все исходники. Есть приложения.

К работе прилагается все необходимое для сдачи.

К работе прилагается презентация.