# Radical line of the Circle with Center C1 and radius R1, and # the Circle with Center C2 and Radius R2 RadicalLine:=proc(C1,R1,C2,R2): expand( Power (C1,R1,[x,y]) - Power (C2,R2,[x,y]) ): end:
RadicalLine:=proc(C1,R1,C2,R2): expand( Power (C1,R1,[x,y]) - Power (C2,R2,[x,y]) ): end:
expand( Power (C1,R1,[x,y]) - Power (C2,R2,[x,y]) ): end:
end:
