|
本帖最后由 朱裕德 于 2022-6-4 17:52 编辑
内切的话,这玩意在数学上叫“布洛卡椭圆”,Mathematica里有一个专门的库函数算这个,比如- pts = {{0, 1}, {-1, 0}, {1, 0}};
- Inellipse = ResourceFunction["BrocardInellipse"][tri]
- Graphics[{FaceForm[], {EdgeForm[Black], Triangle[tri]}, {EdgeForm[Red], Inellipse}}]
复制代码
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|