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

Page tags: library vector
page_revision: 1, last_edited: 1217787527|%e %b %Y, %H:%M %Z (%O ago)
EditTags History Files Print Site tools+ Options
Unless otherwise stated, the content of this page is licensed under Creative Commons Attribution-ShareAlike 3.0 License