本帖最后由 hbghlyj 于 2021-1-27 14:24 编辑
回复 1# hbghlyj
用重心坐标算
不到1秒- ptD = {u, b, c};
- ptE = Ortocentro[{ptA, ptC, ptD}];
- ptF = Ortocentro[{ptA, ptB, ptD}];
- ptG = {0, 1, 1};
- EF = Recta[ptE, ptF];
- DG = Recta[ptD, ptG];
- SonPerpendiculares[EF, DG]
复制代码
--------------
下载Mathematica插件baricentricas.nb |