prgmNEW1

ClrHome
ClrTable
Input "Vertex X1: ", A
Input "Vertex Y1: ", B
Input "Vertex X2: ", C
Input "Vertex Y2: ", D
Input "Vertex X3: ", E
Input "Vertex Y3: ", F

sqrt(((C-E)^2) + ((D-F)^2)) -> X
sqrt(((A-E)^2) + ((B-F)^2)) -> Y
sqrt(((A-C)^2) + ((B-D)^2)) -> Z

X+Y+Z -> P

"Incenter"
((A*X) + (C*Y) + (E*Z)) / P -> H
((B*X) + (D*Y) + (F*Z)) / P -> K

"Radius"
sqrt((P/2) * ((P/2)-X) * ((P/2)-Y) * ((P/2)-Z)) -> A
(2*A) / P -> R

Display "The Incenter Is: ", {H, K}
Display "The Radius Is: ", R