Численные методы решения прикладных задач - page 278

278
Next k
For i = 0 To 10: For j = 0 To 10:
uy(i, j) = u(i, j, M): Next j: Next i
Urtem_2 = Application.Transpose(uy)
End Function
Полученное решение представлено на рис. 9.9.
Рис. 9.9. Метод сеток для решения эллиптических уравнений