开三次方的函数,有没有更好的方法
因求开三次方,哪里也找不到现成函数,乱编了一个,有更好的请跟帖' 求三次方函数<BR>Function ddd(a As Double) As Double<BR> ddd = Sqr(Sqr(a))<BR> While Abs(a - ddd ^ 3) > 0.000001<BR> 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<BR> Wend<BR>End Function EXP(LOG(a)/3) a ^ (1 / 3) 这么简单,就是想不到。谢谢
页:
[1]