= -0.290884
G (11) = 0.169452 (12) = -0.031227 (13) = 0.003612 (14) = 0.004705
'Зчитування параметрів УЕС
Rho (0) = TextBox1.Text (1) = TextBox2.Text (2) = TextBox3.Text (3) = TextBox4.Text
Rho (4) = TextBox5.Text
'Зчитування параметрів потужності шарів
H (0) = TextBox6.Text (1) = TextBox7.Text (2) = TextBox8.Text (3) = TextBox9.Text
'Присвоєння значень параметрам фільтрів = 7
Alfa = 1.005 = 9 = TextBox13.Textx (KF + NR - 1 - 1) As Doubler (NR - 1) As Doublekern (KF + NR - 1 - 1, NS - 1) As Double
r (0) = TextBox12.Text
'Розрахунок коефіцієнта геом. пр. q для сітки Х і r по значанія КТМ = 10 ^ (1/KTM)
'Розрахунок Х1 (0) = r (0) * Alfa/(q ^ M)
'Розрахунок сітки Х c коеф. геом. пр. q
For i = 1 To (KF + NR - 1) Step 1
x (i - 1) = x (0) * (q ^ (i - 1)) i
'Розрахунок розносів з коеф. геом. пр. q
For i = 1 To NR Step 1
r (i - 1) = r (0) * (q ^ (i - 1)) i
'Розрахунок значанія Кернел-функції
'1 задаємо всім останнім Кернел значаніе 1
For j = 1 To KF + NR - 1 Step 1
kern (j - 1, NS - 1) = 1j
'2 розрахунок перших Кернел
For j = 1 To KF + NR - 1 Step 1i = NS - 1 To 1 Step -1 (j - 1, i - 1) = (1 - ((1 - (Rho (i )/Rho (i - 1)) * kern (j - 1, i))/(1 + (Rho (i)/Rho (i - 1)) * kern (j - 1, i)) * Math.Exp (-2 * H (i - 1)/x (j - 1))))/(1 + ((1 - (Rho (i)/Rho (i - 1)) * kern (j - 1, i) )/(1 + (Rho (i)/Rho (i - 1)) * kern (j - 1, i)) * Math.Exp (-2 * H (i - 1)/x (j - 1)) )) ijrh (NR - 1) As Double
'розрахунок каж. сопр.j = 1 To NR
For i = 1 To KF (j - 1, i - 1) = Rho (0) * kern (i + j - 1 - 1, 0) * G (i - 1) iji = 1 To NR Step 1 (i - 1) = rhok (i - 1, 0) + rhok (i - 1, 1) + rhok (i - 1, 2) + rhok (i - 1, 3) + rhok (i - 1, 4) + rhok (i - 1, 5) + rhok (i - 1, 6) + rhok (i - 1, 7) + rhok (i - 1, 8) + rhok (i - 1, 9) + rhok (i - 1, 10) + rhok (i - 1, 11) + rhok (i - 1, 12) + rhok (i - 1, 13) + rhok (i - 1, 14)
Next i
Збереження файлу з отриманими даними у форматі В«xlsВ» у вказану директорію
Dim oExcel As ObjectoBook As ObjectoSheet As Objectdrct As String = TextBox14.Text
'Відкрити нову книгу Excel = CreateObject ("Excel.Application") = oExcel.Workbooks.Add
'Додати дані в комірки першого листа нової книги
oSheet = oBook.Worksheets (...
