/p>
Програма написана на мові програмування VBA в середовищі Microsoft Office Excel.
Програма має зрозумілий інтуїтивний графічний інтерфейс (рис. 2.1).
Малюнок 2.1 Головне вікно програми
Після запуску необхідно ввести необхідну точність обчислень (рис. 2.2).
Малюнок 2.2 Введення вхідних значень
Потім програма розраховує точки наближення і знаходить для даних обмежень точку мінімуму (рис. 2.3).
Малюнок 2.3 Висновок результатів розрахунку
Таблиця розрахунків наведена в таблиці 2.1.
Таблиця 2.1 Розрахунок пошуку мінімуму за методом найшвидшого спуску
0,013868-0,298630,6609110,072739-0,308160,6116090,116095-0,313540,5851910,147855-0,316320,5711460,170995-0,317580,5637370,187777-0,317970,5598530,199903-0,317920,5578290,208643-0,317680,5567770,214929-0,317380,5562320,219445-0,317080,5559510,222686-0,316820,5558050,225011-0,316610,555730,226678-0,316430,5556920,227873-0,31630,5556720,22873-0,31620,5556620,229344-0,316120,5556560,229784-0,316060,5556540,230099-0,316020,5556520,230326-0,315990,5556520,230488-0,315970,5556510,230604-0,315950,5556510,230687-0,315940,555651
2.2.3 Рішення завдання
Private Sub CommandButton1_Click () e, L, x (1000), y (1000), f (1000) As Double, modgrad=Val (TextBox3.Value)
(0)=1 (0)=1=1 (0)=x (0) ^ 2 + 2 * y (0) ^ 2 + Exp (x (0) ^ 2 + y (0) ^ 2) - x (0) + 2 * y (0)
i=0 To 100
Cells (2 + i, 12)=
Cells (2 + i, 13)=
Cells (2 + i, 14)= i
=1
: x (i)=x (i - 1) - h * (2 * x (i - 1) + 2 * x (i - 1) * Exp (x (i - 1) ^ 2 + y (i - 1) ^ 2) - 1)
y (i)=y (i - 1) - h * (4 * y (i - 1) + 2 * y (i - 1) * Exp (x (i - 1) ^ 2 + y (i - 1) ^ 2) + 2)
f (i)=x (i) ^ 2 + 2 * y (i) ^ 2 + Exp (x (i) ^ 2 + y (i) ^ 2) - x (i) + 2 * y (i)
Cells (1 + i, 12)=x (i)
Cells (1 + i, 13)=y (i)
Cells (1 + i, 14)=f (i)
R=f (i) - f (i - 1)
If R gt; 0 Then
h=h/2
GoTo 1
End If
modgrad=Sqr ((2 * x (i) + 2 * x (i) * Exp (x (i) ^ 2 + y (i) ^ 2) - 1) ^ 2 + ( 4 * y (i) + 2 * y (i) * Exp (x (i) ^ 2 + y (i) ^ 2) + 2) ^ 2)
If modgrad gt; e Then
i=i + 1
GoTo 1
End If
TextBox5.Value=Round (x (i), 4)
TextBox6.Value=Round (y (i), 4)
TextBox4.Value=Round (f (i), 4)
(18, 7)=TextBox5.Value (18, 8)=TextBox6.Value
Cells (18, 9)=TextBox4.ValueSub
2.2.4 Інтерпретація результатів
Висновок
У ході виконання даного курсового проекту було складено дві програми за двома завданнями.
Складено програми в VBA в середовищі Microsoft Office Excel. Детальний опис програм представлено основної частини КП.
У даному курсовому проекті всі поставлені мною завдання були виконані. Розроблено основна частина програми. Мається введення, висновок, список використаних джерел.
Виконуючи цю роботу, необхідно було ознайомитися з потрібною інформацією і вивчити предметну область на основі спеціалізованої літератури.
Отриманий мною досвід роботи дозволить надалі розробляти більш складні проекти.
Список використаних джерел
Нормативно-технічні документи
1ГОСТ 19402-78. Опис програми
2ГОСТ 19404-79. Пояснювальна записка. Вимоги до змісту та оформлення.
3Метод ламаних - http://studopedia/7_22267_metod-lomanih.html
4 Метод найшвидшого спуску - http://matlab.exponenta/optimiz/book_2/2_2.php
Метод найшвидшого спуску http://otherreferats.allbest/mathematics/00188334_0.html
Метод найшвидшого спуску - http://dit.isuct/ivt/sitanov/Literatura/M171/Pages/Glava2_3_2_1.htm
7Программірованіе на VBA в Microsoft Office - http://excelvba/books/3
8Метод ламаних - lt; http: //examhack.narod/2_1.htmgt;
