VS:Distance3D

.VectorScript|VectorScript ..VS:Function Reference|Function Reference ..VS:Function_Reference_Appendix|Appendix

Description

Returns the 3D distance between two points. Same as Norm.

FUNCTION Distance3D(
           x1   :REAL;
           y1   :REAL;
           z1   :REAL;
           x2   :REAL;
           y2   :REAL;
           z2   :REAL) :REAL;

def vs.Distance3D(x1, y1, z1, x2, y2, z2):
    return REAL

Parameters

x1		REAL
y1		REAL
z1		REAL
x2		REAL
y2		REAL
z2		REAL

Example

PROCEDURE Example;
VAR
   x1, y1, z1, x2, y2, z2, dist :REAL;
BEGIN
   PtDialog3D('Enter 1st point', '1', '1', '1', x1, y1, z1);
   PtDialog3D('Enter 2nd point', '2', '2', '2', x2, y2, z2);
   dist := Distance3D(x1, y1, z1, x2, y2, z2);
   AlrtDialog(Concat('{',x1,',',y1,',',z1,'} ~ {',x2,',',y2,',',z2,'} = ', dist));
END;
RUN(Example);

Version

Availability: from All Versions

This is drop-in function.