(setq A (point 3 3))
(setq B (point 3 6))
(setq C (point 7 3))
(setq triangle_a (triangle A B C))
(setq I (incenter triangle_a))

triangle_a
(circle I (inradius triangle_a))