Concyclic Definition

# Are the inputed Points all on the same circle?
# Maple first finds the Circle defined by the first three outputed Points, and then compares it to
# the Circles formed by the first two inputed Points and subsequent Points

Concyclic:=proc() local i,C1:

C1:=Ce (args[1],args[2],args[3]):

for i from 4 to nargs do
  if not ItIsZero (C1- Ce (args[1],args[2],args[i])) then RETURN(false): fi:
od:

true:

end: