# The (equation of the) circle inscribed in the standard triangle # Te(m,n) Incircle:=proc(m,n) local C,r: r:=Inradius (m,n): C:=Incenter (m,n): expand((x-C[1])^2+(y-C[2])^2-r^2): end:
Incircle:=proc(m,n) local C,r: r:=Inradius (m,n): C:=Incenter (m,n): expand((x-C[1])^2+(y-C[2])^2-r^2): end:
r:=Inradius (m,n): C:=Incenter (m,n):
expand((x-C[1])^2+(y-C[2])^2-r^2): end:
end:
