# Generic Point on a Parametric Circle, Center [c[1],c[2]]
ParamCirlce:=proc(c,R,t):
[
c[1]+R*(t+1/t)/2 , c[2]+R*(t-1/t)/(2*I)
]:
end:
# and Radius R and parameter t
# It is a parametrization of (x-c[1])^2+(y-c[2])^2=R^2 .
# c is a list of length 2, R is a the radius and t is a variable .
# Recall that I is the Maple symbol for the square root of -1 .