Вычисление кубического корня.

[Oxygen]

Собственно, как сие реализуется? Может я и туплю, но о функции такой я никогда не слышала.... А с математикой у меня всегда было туго....

[alibek]

Например.

[alibek]

Сорри, не дочитал.
Кубический корень -- это возведение в степень 1/3.

[Oxygen]

А, ну да. Спасибо большое.

[schalexey]

а не проще постчиать так? exp(ln(X)/3) это быстрее будет работать чем 1/3
даже X*X работает быстрее чем X^2 +)

[tyomitch]

schalexey, разница во времени выполнения меньше процента, причём твой вариант оказывается даже медленнее.

Тестовый код:

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

Option Explicit

Sub Main()
Dim Start As Double, i As Long, bb As Double, x As Double
x = 543.21

Start = Timer
For i = 1 To 10000000
    bb = x ^ (1 / 3)
Next
Debug.Print Timer - Start

Start = Timer
For i = 1 To 10000000
    bb = Exp(Log(x) / 3)
Next
Debug.Print Timer - Start

End Sub


[Роман-вб]

а не проще постчиать так? exp(ln(X)/3) это быстрее будет работать чем 1/3
даже X*X работает быстрее чем X^2 +)

Действительно, зачем изобретать велосипед. Тем и хорош наш VB, что в нём много хорошего
А вот на Паскале так и пиши)


Тем более LN UГде ты выкапал. У нас LOG -- это натурал. логарифм.

[GM]

Если не ошибаюсь, VB также реализирует операцию возведение в степень ^ с помощью exp,log, или я не прав?

[tyomitch]

GM, не ошибаешься.