Ce Definition

# The Circumcircle of the inputed Points
# It plugs all the inputed points (i.e, args[1], args[2], ...) into the general
# equation of the circle , C , solves with respect to the unknowns {a,b,c},
# and substitues the solution back into C

Ce:=proc() local C,a,b,c,i,q:

C:=x^2+y^2+a*x+b*y+c:
q:=solve({seq(subs({x=args[i][1],y=args[i][2]},C),i=1..nargs)} ,{a,b,c}):
expand(subs(q,C)):

end:


Definitions     Theorems