Вернуть значение полученое через Math.Atan?

@Eugen11 · Регистрация: 06.09.2011

Author24 — интернет-сервис помощи студентам

Всем привет!
Подскажите с помощью какой функции вернуть назад значение полученное так образом:

VB.NET

Dim D1 As Double = 14
Dim D2 As Double = 10
Dim L As Double = 22
 
Dim konus As Double = (D1 - D2) / L
Dim decDeg As Double = Math.Atan(konus) * 180 / Math.PI

Теперь зная только значение переменой "decDeg", мне нужно вычислить "konus".
Пытался делать так:

VB.NET

1	Dim result As Double = decDeg * Math.PI / 180

Приходит не правильный результат. Заранее спасибо за помощь.

@ovva · 01.02.2020, 12:52

Сообщение от Eugen11

Пытался делать так:

Это значит сравнивать шило и мыло

VB.NET

Dim D1 As Double = 14, D2 As Double = 10, L As Double = 22
Dim konus As Double = (D1 - D2) / L
Dim decDeg As Double = Math.Atan(konus) * 180 / Math.PI
'decDeg это угол в градусах тангенс которого равен konus
Dim decDeg2 As Double = decDeg * Math.PI / 180
'decDeg2 это тоже значение decDeg, но в радианах
'вероятно вы хотели 
Dim konus2 As Double = Math.Tan(decDeg2)
MsgBox(konus.ToString & "; " & konus2.ToString)

@Eugen11 · 01.02.2020, 13:12 **[ТС]**

ovva, Спасибо, теперь понял где собака была зарыта. Я через "Math.Tan" тоже пробовал, но делал это неправильно. Пытался делать так:

VB.NET

1	Dim decDeg2 As Double = Math.Tan(decDeg) * Math.PI / 180

поэтому и получал ошибку. Ещё раз спасибо, теперь всё работает корректно.

@January29 · 01.02.2020, 13:12

VB.NET

1	Dim result As Double = Math.Tan(decDeg * Math.PI / 180)

	01.02.2020, 13:12

Вернуть значение полученое через Math.Atan?

Решение