Colinear Points

[Terje Vallestad]

(12-25-2013 07:47 PM)patrice Wrote:  Your program can be made a function.

Code:

EXPORT COLINEAR(Mt)
BEGIN
// Declare local variable to hold matrix and state
LOCAL Tmp;
// add column of one's to make square
ADDCOL(Mt,[1,1,1],3);
// Check if determinant is equal to 0
IF det(Mt) == 0 THEN Tmp:= 1; ELSE Tmp:= 0; END;
RETURN Tmp;
END;

so that you can call it from Home or anotherr program.

Thanks Patrice,

No bells and whistles, but very neat. Also gets rid of my problem with a return value I didn't need.

Cheers, Terje