Vector Tiny Test

''' ---------------
''' Tiny vector test
''' ---------------

Function IsVectorTiny(v)

IsVectorTiny = vbFalse
Dim tol : tol = 1.0e-12 ' ON_ZERO_TOLERANCE

If (Abs(v(XX)) <= tol) And (Abs(v(YY)) <= tol) And (Abs(v(ZZ)) <= tol) Then
IsVectorTiny = vbTrue
End If

End Function

Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License