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

Автор работы: Пользователь скрыл имя, 14 Марта 2012 в 16:06, курсовая работа

Краткое описание

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

Содержание

Введение ………………………………………………………………………….. 3
1 Общая часть 5
1.1 Цели разработки 5
1.2 Анализ использования разработки 5
1.3 Анализ методов решения проблемы 5
1.4 Состав ПЭВМ 6
1.5 Используемое программное обеспечение. 10
1.5.1 Операционная система. 12
1.5.2 Дополнительные программные средства 13
2. Технологическая часть. 19
2.1 Постановка задачи. 19
2.1.1 Технико-математическое описание задачи. 19
2.2 Проектирование 20
2.2.1Алгоритм решения. 20
2.3 Текст программы с описанием. 25
2.3.1 Описание программы 25
2.4 Текст программы 25
2.5 Описание процесса отладки 26
2.6 Тестирование 27
Заключение ……………………………………………………………………...30
Литература ……………………………………………………………………...31
Приложение А 32
Руководство оператора 32
Приложение Б 38
Руководство программиста 38
Код программы 39
Приложение С 60
Диск с программой 60

Прикрепленные файлы: 1 файл

Курсовая работа.doc

— 1.83 Мб (Скачать документ)
ign:justify">Else

x = b

z = a

Text19 = 2

Image4.Visible = True

Image5.Visible = False

End If

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

ml:

   y = k * Cos(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 c / x > 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 Form4

End Sub

 

Форма 5:

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 * 2.7 ^ (m * a) + n * a ^ i + o

F1 = k * 2.7 ^ (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 = u * m

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 * 2.7 ^ (u1 * p) + u2 * p ^ u3

Text22 = Text20

Text23 = u4 * 2.7 ^ (u5 * p) + u6 * p ^ u7

If u3 < 0 And a = 0 Then a = a + 0.2

If u3 < 0 And b = 0 Then b = b + 0.2

If Text21 * Text23 > 0 Then

x = a

z = b

Text19 = 1

Image5.Visible = True

Image4.Visible = False

Else

x = b

z = a

Text19 = 2

Image4.Visible = True

Image5.Visible = False

End If

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

ml:

   y = k * 2.7 ^ (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 s > 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 Form5

End Sub


Приложение С

Диск с программой

16

 



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