三角形外心坐标公式

hujunhua

参照35楼的公式，如果没有什么内部矩阵函数，就用下述过程： A(x1,y1),B(x2,y2),C(x3,y3) x1=x1-x3 /*先平移C到原点*/ y1=y1-y3 x2=x2-x3 y2=y2-y3 Area=2*(x1*y2-x2*y1) /*计算三角形的4倍面积*/ a=x2^2+y2^2 /*计算两个边长平方*/ b=x1^2+y1^2 xc=x3-(a*y1-b*y2)/Area /*计算圆心坐标*/ yc=y3-(a*x1-b*x2)/Area

mathematica

参照35楼的公式，如果没有什么内部矩阵函数，就用下述过程： A(x1,y1),B(x2,y2),C(x3,y3) /*先平移C到原点,并且计算平移后A和B的坐标*/ x1=x1-x3 y1=y1-y3 x2=x2-x3 y2=y2-y3 /*计算平移后的外心的坐标,最后再把C点平移回去*/ Area=2*(x1*y2-x2*y1) /*计算三角形的4倍面积*/ a=x2^2+y2^2 /*计算两个边长平方*/ b=x1^2+y1^2 xc=x3-(a*y1-b*y2)/Area /*计算圆心坐标*/ yc=y3-(a*x1-b*x2)/Area hujunhua 发表于 2012-7-24 18:08

我在35起初贴的公式有问题,现在我已经修正过了, 本来是在后面跟帖修正的,结果被郭以为是重复贴删除了, 现在我重新编辑了一下, 35楼的链接http://bbs.emath.ac.cn/viewthrea ... romuid=865#pid44437 参照35楼的公式，如果没有什么内部矩阵函数，就用下述过程： A(x1,y1),B(x2,y2),C(x3,y3) x1=x1-x3 /*先平移C到原点*/ y1=y1-y3 x2=x2-x3 y2=y2-y3 Area=2*(x1*y2-x2*y1) /*计算三角形的4倍面积,不是两倍,是平行四边形面积的两倍*/ a=x2^2+y2^2 /*计算两个边长平方*/ b=x1^2+y1^2 xc=x3-(a*y1-b*y2)/Area /*计算圆心坐标*/ yc=y3+(a*x1-b*x2)/Area /*这行代码修正后的结果*/

mathematica

参照35楼的公式，如果没有什么内部矩阵函数，就用下述过程： A(x1,y1),B(x2,y2),C(x3,y3) x1=x1-x3 /*先平移C到原点*/ y1=y1-y3 x2=x2-x3 y2=y2-y3 Area=2*(x1*y2-x2*y1) /*计算三角形的4倍面积*/ a=x2^2+ ... hujunhua 发表于 2012-7-24 18:08

你可以看着32楼编程的 http://bbs.emath.ac.cn/viewthrea ... romuid=865#pid44434

mathematica

就为了扣这几步乘法,在这边使劲******************

mathematica

(*计算三角形的外心的坐标*) (*http://bbs.emath.ac.cn/viewthrea ... romuid=865#pid44434*) (*A(x1,y1),B(x2,y2),C(x3,y3)*) (*先把A平移到原点,计算平移后的B和C两点的坐标*) x2=x2-x1;y2=y2-y1;(*平移后B的坐标*) x3=x3-x1;y3=y3-y1;(*平移后C的坐标*) (*计算平移后的外心的坐标*) xy2=x2^2+y2^2; xy3=x3^2+y3^2; s=2*(x2*y3-x3*y2);(*三角形面积的四倍,平行四边形的两倍*) xc=(-y2*xy3+y3*xy2)/s;(*平移后外心的横坐标*) yc=-(-x2*xy3+x3*xy2)/s;(*平移后外心的纵坐标,注意负号*) (*把三角形再平移回去*) xc=xc+x1; yc=yc+y1; mathematica语言版本的代码,很容易转化成C语言的!!!!!!!

mathematica

上面的帖子是1001帖,号称一千零一!

mathematica

我已经将郭的计算量下降到原来的76%了,算是下降了1/4,应该还不错吧

gxqcn

(*计算三角形的外心的坐标*) (*http://bbs.emath.ac.cn/viewthrea ... romuid=865#pid44434*) (*A(x1,y1),B(x2,y2),C(x3,y3)*) (*先把A平移到原点,计算平移后的B和C两点的坐标*) x2=x2-x1;y2= ... mathematica 发表于 2012-7-24 19:21

还可再优化的： 将s取倒数，可将后面的两次除法转化为乘法，从而在整体上增加一次乘法但减少了一次除法。 另外，这个题除了要得到圆心坐标外，还同时需得到半径，只是没特别指明而已。 不过，在得到圆心后，再求半径已毫无悬念。

mathematica

还可再优化的： 将s取倒数，可将后面的两次除法转化为乘法，从而在整体上增加一次乘法但减少了一次除法。 另外，这个题除了要得到圆心坐标外，还同时需得到半径，只是没特别指明而已。 不过，在得到圆心后， ... gxqcn 发表于 2012-7-25 09:04

两次除法能够变成一次乘法????????

gxqcn

请仔细读贴后再回复。。。 应该是：增加两次乘法，减少1次除法。还是划算的。