# The Radius of a circle C . # It first finds the center q, and compares C=(x-q[1])^2+(y-q[2])^2-R^2 . Radius:=proc(C) local q: q:= Center(C): sqrt(normal(subs({x=q[1],y=q[2]},-C))): end:
Radius:=proc(C) local q: q:= Center(C): sqrt(normal(subs({x=q[1],y=q[2]},-C))): end:
q:= Center(C): sqrt(normal(subs({x=q[1],y=q[2]},-C))): end:
end:
