下面是引用綠島於2006-02-8 13:39發表的 : 原來你是要寫程式的~剛去網路找找了一下外心的公式相關算法~寫程式就可以去想公式囉!不必用我這種數學解法~程式的東西~是有公式就套~.......
XXX = ((X2 * X2 - X3 * X3) * (Y1 - Y2) - (X1 * X1 - X2 * X2) * (Y2 - Y3) - (Y1 - Y3) * (Y1 - Y2) * (Y2 - Y3)) / (2 * ((X2 - X3) * (Y1 - Y2) - (X1 - X2) * (Y2 - Y3))) YYY = (Y2 * Y2 * (X1 - X3) - Y3 * Y3 * (X1 - X2) - Y1 * Y1 * (X2 - X3) - (X1 - X2) * (X1 - X3) * (X2 - X3)) / (2 * (X1 * (Y2 - Y3) + X3 * (Y1 - Y2) + X2 * (Y3 - Y1))) R = ((XXX - X1) ^ 2 + (YYY - Y1) ^ 2) ^ 0.5 Circle (XXX, YYY), R, vbBlue