Квадратный корень

[skord]

Привет всем! Подскажите плз как получить квадратный корень числа на VB6. Буду очень блогадарен.

[Sedge]

Sqr

[A.A.Z.]

Или Num ^ (1 / 2)

[Faust]

А самое интересное произойдет, если выполнить следующий код:

Код: Выделить всё

Debug.Print Sqr(2)-2^(1/2)

Так что, ежели нужна точность, юзай длинную арифметику с разложением в ряды!

[A.A.Z.]

Произойдет "0"

[FaKk2]

А можно ещё методом Ньютона Товарищ такой был.

[Samovar]

А можно и так:

dim x as double
dim nSquareRoot as double

x=3.14
nSquareRootX=exp(0.5*log(x))

[Faust]

Произойдет "0"

Не произойдет. Вы пытались это сделать? У меня в VB6 получается величина порядка 10^-17.

[tyomitch]

Произойдет "0"

Не произойдет. Вы пытались это сделать? У меня в VB6 получается величина порядка 10^-17.

Произойдёт "0"; я пытался.
У тебя, поди, антикварный Pentium-I с ошибкой деления?

[Ennor]

...
У тебя, поди, антикварный Pentium-I с ошибкой деления?

Я так понимаю, месье слишком молод, чтобы быть в курсе деталей этой, тем не менее, довольно известной ошибки. Что ж, я добавлю свои 5 копеек...
Кинь на форму баттон и текст. Кинь в код вот это:

Код: Выделить всё

Private Sub Command1_Click()
Dim First As Double, Sec As Double, Res As Double
First = 2
Sec = 2
Res = Sqr(First) - Sec ^ 0.5
Me.Text1.Text = CStr(Res)
End Sub

На выходе мой, чуть менее "антикварный", AMD K6-233 (в данном случае разница заключается в принципиальном отсутствии этой ошибки) выдал следующее:

-9,6710833785707E-17

Эта ошибка проявляется, во-первых, при крайне узком диапазоне входных значений, а во-вторых, она не имеет никакого отношения к VB, т.к. флаг "Remove Safe Pentium™ FDIV Checks" в настройках оптимизации компиляции проекта по умолчанию снят, следовательно, в пустом проекте по дефолту эти проверки присутствуют и, при случае, ошибки деления исправляются.
Ты проверь, проверь. А только потом говори...

[tyomitch]

Вот этот вот код:

Код: Выделить всё

Debug.Print Sqr(First) - Sec ^ 0.5

- выдаёт 0.

В начальном примере Faust-а было именно Debug.Print; без промежуточной переменной.

Так что я проверил, прежде чем говорить; твой сарказм совершенно неуместен.
При чём здесь мой возраст - тем более не понял.

[FaKk2]

tyomitch
Месье - критик
Придраться тут совершенно не к чему

[FaKk2]

Шо интересно...
Мой Athlon XP 3000+ выдал аналогичный результат:

-9.6710833785707E-17

[FaKk2]

Не иначе заговор АМДешников

[Ennor]

Нет, это конечно никакой не заговор.

Полагаю, имеет смысл дождаться Фауста и узнать, что же именно он имел в виду, т.к. в окне Immediate я тоже получил ноль. Другое дело, я не уверен, что в этом режиме вычисления производятся с двойной точностью...