}
/// <summary>
+ /// Compute the euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <returns>The distance</returns>
+ public static float Distance(Vector3 vec1, Vector3 vec2)
+ {
+ float result;
+ Distance(ref vec1, ref vec2, out result);
+ return result;
+ }
+
+ /// <summary>
+ /// Compute the euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <param name="result">The distance</param>
+ public static void Distance(ref Vector3 vec1, ref Vector3 vec2, out float result)
+ {
+ result = (float)Math.Sqrt((vec2.X - vec1.X) * (vec2.X - vec1.X) + (vec2.Y - vec1.Y) * (vec2.Y - vec1.Y) + (vec2.Z - vec1.Z) * (vec2.Z - vec1.Z));
+ }
+
+ /// <summary>
+ /// Compute the squared euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <returns>The squared distance</returns>
+ public static float DistanceSquared(Vector3 vec1, Vector3 vec2)
+ {
+ float result;
+ DistanceSquared(ref vec1, ref vec2, out result);
+ return result;
+ }
+
+ /// <summary>
+ /// Compute the squared euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <param name="result">The squared distance</param>
+ public static void DistanceSquared(ref Vector3 vec1, ref Vector3 vec2, out float result)
+ {
+ result = (vec2.X - vec1.X) * (vec2.X - vec1.X) + (vec2.Y - vec1.Y) * (vec2.Y - vec1.Y) + (vec2.Z - vec1.Z) * (vec2.Z - vec1.Z);
+ }
+
+ /// <summary>
/// Scale a vector to unit length
/// </summary>
/// <param name="vec">The input vector</param>
}
/// <summary>
+ /// Compute the euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <returns>The distance</returns>
+ public static double Distance(Vector3d vec1, Vector3d vec2)
+ {
+ double result;
+ Distance(ref vec1, ref vec2, out result);
+ return result;
+ }
+
+ /// <summary>
+ /// Compute the euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <param name="result">The distance</param>
+ public static void Distance(ref Vector3d vec1, ref Vector3d vec2, out double result)
+ {
+ result = Math.Sqrt((vec2.X - vec1.X) * (vec2.X - vec1.X) + (vec2.Y - vec1.Y) * (vec2.Y - vec1.Y) + (vec2.Z - vec1.Z) * (vec2.Z - vec1.Z));
+ }
+
+ /// <summary>
+ /// Compute the squared euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <returns>The squared distance</returns>
+ public static double DistanceSquared(Vector3d vec1, Vector3d vec2)
+ {
+ double result;
+ DistanceSquared(ref vec1, ref vec2, out result);
+ return result;
+ }
+
+ /// <summary>
+ /// Compute the squared euclidean distance between two vectors.
+ /// </summary>
+ /// <param name="vec1">The first vector</param>
+ /// <param name="vec2">The second vector</param>
+ /// <param name="result">The squared distance</param>
+ public static void DistanceSquared(ref Vector3d vec1, ref Vector3d vec2, out double result)
+ {
+ result = (vec2.X - vec1.X) * (vec2.X - vec1.X) + (vec2.Y - vec1.Y) * (vec2.Y - vec1.Y) + (vec2.Z - vec1.Z) * (vec2.Z - vec1.Z);
+ }
+
+ /// <summary>
/// Scale a vector to unit length
/// </summary>
/// <param name="vec">The input vector</param>
Assert.Equal(lsq, v.LengthSquared)
[<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
+ module Distance =
+ [<Property>]
+ let ``Distance(a, b) = (b - a).Length`` (a : Vector3, b : Vector3) =
+ Assert.ApproximatelyEqual(Vector3.Distance(a, b), (b - a).Length)
+
+ [<Property>]
+ let ``DistanceSquared(a, b) = (b - a).LengthSquared`` (a : Vector3, b : Vector3) =
+ Assert.ApproximatelyEqual(Vector3.DistanceSquared(a, b), (b - a).LengthSquared)
+
+ [<Properties(Arbitrary = [| typeof<OpenTKGen> |])>]
module Normalization =
//
[<Property>]