开三次方的函数，有没有更好的方法

齿轮设计 · 发表于 2004-10-12 15:36:00

因求开三次方，哪里也找不到现成函数，乱编了一个，有更好的请跟帖
' 求三次方函数
Function ddd(a As Double) As Double
   ddd = Sqr(Sqr(a))
   While Abs(a - ddd ^ 3) > 0.000001
   ddd = ddd + (Sqr(12 * ddd * a - 3 * ddd ^ 4) - 3 * ddd ^ 2) / 6 / ddd ^ 2 - ((Sqr(12 * ddd * a - 3 * ddd ^ 4) - 3 * ddd ^ 2) / 6 / ddd ^ 2) ^ 4
   Wend
End Function

alin · 发表于 2004-10-12 18:52:00

EXP(LOG(a)/3)

雪山飞狐_lzh · 发表于 2004-10-12 22:36:00

a ^ (1 / 3)

齿轮设计 · 发表于 2004-10-17 13:10:00

这么简单，就是想不到。谢谢

开三次方的函数，有没有更好的方法

发表回复

精选推荐