Вычислить функцию f(u, v) - Visual Basic .NET
Формулировка задачи:
Необходимо вычислить функцию f(u, v) и округлить до 0,001 y = f(u, v), где u = u(x), v = v(x), вводя различные значения аргумента x из интервала (0;10).
f(u, v)=cos3u+2sin7v; u(x)=2arctg3+lg7x; v(x)=ctg3-3x.
Я попытался написать, но у меня ничего толком не вышло.
Решение задачи: «Вычислить функцию f(u, v)»
textual
Листинг программы
- Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
- TextBox2.Text = Math.Round(f(Val(TextBox1.Text)), 3)
- End Sub
- Private Function f(ByVal x As Double) As Double
- Return Math.Cos(3 * u(x)) + 2 * Math.Sin(7 * v(x))
- End Function
- Private Function u(ByVal x As Double) As Double
- Return 2 / Math.Atan(3) + Math.Log10(7 * x)
- End Function
- Private Function v(ByVal x As Double) As Double
- Return 1 / Math.Tan(3) - 3 * x
- End Function
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
