Public Function CubicRoot( _
ByVal vA As Variant _
, ByVal vB As Variant _
, ByVal vC As Variant _
, ByVal vD As Variant _
, ByVal vRootNum As Variant _
) As Variant ? CubicRoot(-1, -2, -3, 54, 1)
2.99999998013179|-1.38196892736712E-14
? CubicRoot(-1, -2, -3, 54, 2)
-2.50000001986822|-3.4278273002005
? CubicRoot(-1, -2, -3, 54, 3)
-2.50000001986821|3.4278273002005See also: CubicExpr Function
CubicRootSample Subroutine
CubicRootBenchmark Subroutine
QuadraticRoot FunctionNote: In many cases you will have to accept a complex number as the return value then round that number off to zero if it approximately equal to zero. Copyright 1996-1999 Entisoft
Entisoft Tools is a trademark of Entisoft.