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

style="text-align:justify">5. Электронный учебник  Visual Basic.             

Приложение А

Руководство оператора

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

Для начала работы необходимо запустить файл установки. Имя файла «Установка Метод Хорд»

Рис.3 – Установка «Метод Хорд»

 

Появится окно установки, выберите нужный вам язык.

Рис.4 – Выбор языка

 

Перед вами появиться «Мастер Установок». Щелкаем кнопочку «Далее».

Рис.5 – Установка

 

Выбираем нужную директорию для установки программы. Внимание программа занимает 6 Мб на жестком диске.

Рис.6 – Выбор директории

 

Далее выберите нужно ли будет установить ярлык на рабочий стол. Затем нажмите «Далее» и появиться окно проверки параметров установки. Убедитесь что все параметры указаны верно.

Рис.7 – Проверка параметров установки

Происходит установка.

Рис.8 – Процесс Установки

 

Затем вы можете сразу запустить программу просто нажав клавижу «Готово».Либо убрав галочку отменить запуск.

Рис.9 – Завершение установки

 

Запускаем ярлык «Метод Хорд».

Рис.10 – Ярлык «Метод Хорд»

Появляется главное меню программы.

Рис.11 – Главное меню

 

Есть возможно выбора тем для этого нажмите в строке состояния меню «Темы» и выберите понравившуюся.

Рис.12 – Выбор тем

Выберите нужный вид уравнения, в меню «Файл».

Рис.13 – Выбор вида уравнения

 

Появляться форма расчетов. Данные вводятся в поля «Ввод данных». Все данные вводятся целыми числами либо десятичными использую символ «.». Поля обязательны для заполнения. Поля «Решение» заблокированы, дабы избежать непредвиденных ошибок.

Рис.14 – Форма расчетов

Вводим данные и нажимаем кнопку «Рассчет». Для очистки полей нажмите кнопку «Очистка». Для перехода в главное меню используйте кнопку «Меню». При нажатии на кнопку «Рассчет» программа автоматически определит вид данного уравнения и выдаст схематический рисунок для более полного восприятия задания.

Рис.15 – Расчеты

Приложение Б

Руководство программиста

Назначение программы:

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

            компьютер, удовлетворяющий аппаратным и программным требованиям программы;

            закрытое помещение.

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

Быстродействие программы зависит от мощности аппаратной части компьютера.

Входные и выходные данные:

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

Приложение Б

Код программы

Форма 1:

Public t As Integer

 

Private Sub My_Linux_Click()

Form1.Image2.Visible = True

Form1.Image1.Visible = False

Form1.Image3.Visible = False

 

Form2.Image2.Visible = True

Form2.Image3.Visible = False

Form2.Image1.Visible = False

 

Form3.Image2.Visible = True

Form3.Image3.Visible = False

Form3.Image1.Visible = False

 

Form4.Image2.Visible = True

Form4.Image3.Visible = False

Form4.Image1.Visible = False

 

Form5.Image2.Visible = True

Form5.Image3.Visible = False

Form5.Image1.Visible = False

End Sub

 

Private Sub My_Vista_Click()

Form1.Image3.Visible = True

Form1.Image2.Visible = False

Form1.Image1.Visible = False

 

Form2.Image3.Visible = True

Form2.Image2.Visible = False

Form2.Image1.Visible = False

 

Form3.Image3.Visible = True

Form3.Image2.Visible = False

Form3.Image1.Visible = False

 

Form4.Image3.Visible = True

Form4.Image2.Visible = False

Form4.Image1.Visible = False

 

Form5.Image3.Visible = True

Form5.Image2.Visible = False

Form5.Image1.Visible = False

End Sub

 

Private Sub My_XP_Click()

Form1.Image1.Visible = True

Form1.Image2.Visible = False

Form1.Image3.Visible = False

 

Form2.Image1.Visible = True

Form2.Image2.Visible = False

Form2.Image3.Visible = False

 

Form3.Image1.Visible = True

Form3.Image2.Visible = False

Form3.Image3.Visible = False

 

Form4.Image1.Visible = True

Form4.Image2.Visible = False

Form4.Image3.Visible = False

 

Form5.Image1.Visible = True

Form5.Image2.Visible = False

Form5.Image3.Visible = False

End Sub

 

Private Sub Timer1_Timer()

t = t + 1

If Mid(Str(t), Len(Str(t)), 1) = "2" Then

a(0).ForeColor = &HFF&

a(1).ForeColor = &HFF&

a(2).ForeColor = &HFF&

End If

If Mid(Str(t), Len(Str(t)), 1) = "4" Then

a(0).ForeColor = &HFF00&

a(1).ForeColor = &HFF00&

a(2).ForeColor = &HFF00&

End If

If Mid(Str(t), Len(Str(t)), 1) = "6" Then

a(0).ForeColor = &HFF8080

a(1).ForeColor = &HFF8080

a(2).ForeColor = &HFF8080

End If

If Mid(Str(t), Len(Str(t)), 1) = "8" Then

a(0).ForeColor = &HFFFFFF

a(1).ForeColor = &HFFFFFF

a(2).ForeColor = &HFFFFFF

End If

End Sub

 

Private Sub My_al_Click()

Form2.Show

Unload Form1

End Sub

Private Sub My_Cos_Click()

Form4.Show

Unload Form1

End Sub

Private Sub My_exit_Click()

End

End Sub

Private Sub My_Pokaz_Click()

Form5.Show

Unload Form1

End Sub

Private Sub my_Sin_Click()

Form3.Show

Unload Form1

End Sub

 

Форма 2:

Private Sub Form_Load()

Image4.Visible = False

Image5.Visible = False

End Sub

 

Private Sub Image6_Click()

k = Val(Text1)

m = Val(Text2)

n = Val(Text3)

i = Val(Text4)

o = Val(Text5)

e = Val(Text6)

a = Val(Text7)

b = Val(Text8)

F = k * a ^ m + n * a ^ i + o

F1 = k * b ^ m + n * b ^ i + o

Text9 = Str(F)

Text10 = Str(F1)

u = k * m

Text11 = u

u1 = m - 1

Text12 = u1

u2 = n * i

Text13 = u2

u3 = i - 1

Text14 = u3

u4 = k * m * (m - 1)

Text15 = u4

u5 = m - 2

Text16 = u5

u6 = n * i * (i - 1)

Text17 = u6

u7 = i - 2

Text18 = u7

p = (a + b) / 2

Text20 = p

Text21 = u * p ^ u1 + u2 * p ^ u3

Text22 = Text20

Text23 = u4 * p ^ u5 + u6 * p ^ u7

If a <= 1 Then a = a + 0.8

If b <= 1 Then b = b + 0.8

If Text21 * Text23 > 0 Then

z = b

x = a

Text19 = 1

Image5.Visible = True

Image4.Visible = False

Else

z = a

x = b

Text19 = 2

Image4.Visible = False

Image5.Visible = True

End If

   c = k * z ^ m + n * z ^ i + o

ml:

   y = k * x ^ m + n * x ^ i + o

t = c - y

j = y * (z - x)

s = j / t

s1 = Int(s * 10000) / 10000

x = x - s1

If s1 > e Then GoTo ml Else Text24 = x

End Sub

 

Private Sub Image7_Click()

Text1 = " "

Text2 = " "

Text3 = " "

Text4 = " "

Text5 = " "

Text6 = " "

Text7 = " "

Text8 = " "

Text9 = " "

Text10 = " "

Text11 = " "

Text12 = " "

Text13 = " "

Text14 = " "

Text15 = " "

Text16 = " "

Text17 = " "

Text18 = " "

Text19 = " "

Text20 = " "

Text21 = " "

Text22 = " "

Text23 = " "

Text24 = " "

Image4.Visible = False

Image5.Visible = False

End Sub

 

Private Sub Image8_Click()

Form1.Show

Unload Form2

End Sub

 

Форма 3:

Private Sub Image6_Click()

k = Val(Text1)

m = Val(Text2)

n = Val(Text3)

i = Val(Text4)

o = Val(Text5)

e = Val(Text6)

a = Val(Text7)

b = Val(Text8)

F = k * Sin(m * a) + n * a ^ i + o

F1 = k * Sin(m * b) + n * b ^ i + o

Text9 = Str(F)

Text10 = Str(F1)

u = k * m

Text11 = u

u1 = m

Text12 = u1

u2 = n * i

Text13 = u2

u3 = i - 1

Text14 = u3

u4 = m * (-u)

Text15 = u4

u5 = m

Text16 = u5

u6 = n * i * (i - 1)

Text17 = u6

u7 = i - 2

Text18 = u7

p = (a + b) / 2

Text20 = p

Text21 = u * Cos(p * m) + u2 * p ^ u3

Text22 = Text20

Text23 = -u * m * Sin(p * m) + u6 * p ^ u7

If a <= 1 Then a = a + 0.8

If b <= 1 Then b = b + 0.8

If Text21 * Text23 > 0 Then

z = b

x = a

Text19 = 1

Image5.Visible = True

Image4.Visible = False

Else

z = a

x = b

Text19 = 2

Image4.Visible = True

Image5.Visible = False

End If

   c = k * Sin(m * z) + n * z ^ i + o

ml:

    y = k * Sin(m * x) + n * x ^ i + o

t = c - y

j = y * (z - x)

s = j / t

s1 = Int(s * 10000) / 10000

x = x - s1

If s1 > e Then GoTo ml Else Text24 = x

End Sub

 

Private Sub Image7_Click()

Text1 = " "

Text2 = " "

Text3 = " "

Text4 = " "

Text5 = " "

Text6 = " "

Text7 = " "

Text8 = " "

Text9 = " "

Text10 = " "

Text11 = " "

Text12 = " "

Text13 = " "

Text14 = " "

Text15 = " "

Text16 = " "

Text17 = " "

Text18 = " "

Text19 = " "

Text20 = " "

Text21 = " "

Text22 = " "

Text23 = " "

Text24 = " "

Image4.Visible = False

Image5.Visible = False

End Sub

Private Sub Image8_Click()

Form1.Show

Unload Form3

End Sub

 

Форма 4:

Private Sub Image6_Click()

k = Val(Text1)

m = Val(Text2)

n = Val(Text3)

i = Val(Text4)

o = Val(Text5)

e = Val(Text6)

a = Val(Text7)

b = Val(Text8)

F = k * Cos(m * a) + n * a ^ i + o

F1 = k * Cos(m * b) + n * b ^ i + o

Text9 = Str(F)

Text10 = Str(F1)

u = k * m

Text11 = u

u1 = m

Text12 = u1

u2 = n * i

Text13 = u2

u3 = i - 1

Text14 = u3

u4 = m * (-u)

Text15 = u4

u5 = m

Text16 = u5

u6 = n * i * (i - 1)

Text17 = u6

u7 = i - 2

Text18 = u7

p = (a + b) / 2

Text20 = p

Text21 = -u * Sin(p * m) + u2 * p ^ u3

Text22 = Text20

Text23 = u * m * Cos(p * m) + u6 * p ^ u7

If a <= 1 Then a = a + 0.8

If b <= 1 Then b = b + 0.8

If Text21 * Text23 > 0 Then

x = a

z = b

Text19 = 1

Image5.Visible = True

Image4.Visible = False