|
如果用mma的话直接输入条件就行- ins = RandomInstance[
- GeometricScene[{a, b, c, d, o, p,
- q}, {GeometricAssertion[Polygon[{a, b, c, d}], "Regular"],
- EuclideanDistance[a, b] == 20, o == Midpoint[{a, b}],
- GeometricAssertion[Line[{c, p, b}], "Vertical"],
- GeometricAssertion[{CircleThrough[{a, b}, o],
- Line[{d, p}]}, {"Tangent", q}]}]]
复制代码
- Area[Triangle[{p, c, d}] /. ins["Points"]]
复制代码 |
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?注册
x
|