Ошибка расчета Ctg... Как быть?

[Kadabr]

Проблема следующая в программе необходимо выполнить расчет котангенса числа... Считаю число через программу и на калькуляторе - получаются совсем разные значения... Ничего понять не могу? Присваивал переменной и значение Double и Variant и Single - одна ерунда отличается от занчения калькуторского


Dim aa As Variant
Dim bb As Single
Dim cc as Double

Private Sub Form_Load()
bb = 151.411666666667
cc = 41.255
aa = 1 / Tan(bb)
Command1.Caption = aa
aa = 1 / Tan(cc)
Command2.Caption = aa
End Sub


Значение на калькуляторе для первого случая "1,1400807", в VB "1,4149944823542"; во втором случае тоже неверно "-1,8350186", а в VB "2,27403106398355"

Ничего не могу понять, почему разные результаты при одинаковых действия компьютера и калькулятора...Помогите плз... может какая-то хитрость с переменными или особенность расчета????

[inq]

градусы, радианы... Наверное в них дело?

[alibek]

А ты в курсе, чем отличаются градусы и радианы?

[GSerg]

А http://bbs.vbstreets.ru/viewtopic.php?t=23315 ?

[RayShade]

alibek

Это же элементарно! Радианы - это единица измерения углов, а градусы- крепости алкоголя!

[Kadabr]

все в градусах... помогли бы лучше, чем издеваться =)

[GSerg]

Да ну?
И как же ты сообщил об этом компилятору?

[Kadabr]

Да ну?
И как же ты сообщил об этом компилятору?

и как же об этом надо было ему сообщить?

[Amed]

Тригонометрические функции принимают углы в радианах.

[Kadabr]

Тригонометрические функции принимают углы в радианах.

подскажи пожалусйста что нужно сделать, я по профессии врач и математику нихрена не помню... что мне нужно сделать чтоб у меня правильно все сосчиталось?

[alibek]

*pi/180

[Kadabr]

*pi/180

сенк