>>691
(* 三角形の頂点定義 *)
pts = {{0, 0}, {p, 0}, {q, r}};

(* 内心の座標を求める *)
incenter = TriangleCenter[pts, "Incenter"]