249
Рис. 8.11. Решение при
n
=100
Решение в редакторе Visual Basic представлено на рис. 8.12.
Рис. 8.12. Решение в редакторе Visual Basic
Код программы Visual Basic
:
Function Fz(ByVal t As Double, ByVal P As Double, ByVal z As Double)
Fz = 15 - 2 * z - 5 * P
End Function