mathematica 发表于 2017-7-4 16:49:47

王守恩 发表于 2017-7-4 14:35
简单一点,应该会有人做吗?

30°,直接用CAD就可以了,用mathematica太慢了

mathematica 发表于 2017-7-4 16:59:11

王守恩 发表于 2017-7-4 14:35
简单一点,应该会有人做吗?

Clear["Global`*"];(*Clear all variables*)
NSolve[{Sin/Sin
   ==SinSin/Sin/Sin[(50-x)*Degree]
      ,0<x<90}
      ,{x},200]


这类题目都很弱智,
求解结果:
\[\{\{x\to 30.00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000\}\}\]

王守恩 发表于 2017-7-4 18:59:01

mathematica 发表于 2017-7-4 16:59
这类题目都很弱智,
求解结果:
\[\{\{x\to 30.000000000000000000000000000000000000000000000000 ...

此题与18楼不是同一道题吗?!

王守恩 发表于 2017-7-5 08:24:14

王守恩 发表于 2017-7-4 18:59
此题与18楼不是同一道题吗?!

此题与18楼不是同一道题吗?!我要的是方法。

chyanog 发表于 2019-12-29 10:05:58

本帖最后由 chyanog 于 2019-12-29 17:07 编辑

这一类角格点问题很多都和正多边形的对角线交点联系紧密。对于本题,可以构造一个正18边形求解,下图两种方式都可以

再推荐个软件Geometry Expressions,限制约束条件后能直接测量出代数式,配合Mathematica使用更好
https://raw.githubusercontent.com/chyanog/Mathematica-snippets/master/images/triangle%20angle3.gif

dingjifen 发表于 2020-1-8 15:09:41

1、此类问题的解,分为公式解和特殊解两大类。
2、欧洲有位数学家早已公布此类问题的所有解。

mathematica 发表于 2021-3-11 16:46:31

sheng_jianguo 发表于 2014-12-9 10:35
找到本题解答,供参考:
我们首先从号称世界第二难的几何题“50-60三角形”(图一)入手。这个题目要稍微 ...

这种问题有通用的解法,
第一步:假设需要求的角=x,然后根据已知的角与x,表达出各个小三角形的内角,
第二步:从一个三个内角全部已知的三角形出发,假设第一个三角形的某一边=1,然后利用正弦定理求解出别的边长,
第三步:根据上面求解出来的边长,利用正弦定理与相邻三角形的内角,表达相邻三角形的其余边长,
想着目标要求内角的三角形不断出发,
第四步:在目标要求内角的三角形,根据正弦定理,列出方程,求解出角度.

mathematica 发表于 2021-3-11 17:04:03

在四边形中,
利用四边形角元塞瓦定理,
吊打你这个问题!

mathematica 发表于 2021-3-12 08:26:38

chyanog 发表于 2014-12-9 12:33


https://bbs.emath.ac.cn/data/attachment/forum/201412/09/123342xaucy4jil6646aqb.png

利用角元塞瓦定理,从A点开始,然后B点,然后C点,然后D点
Clear["Global`*"];(*mathematica11.2,win7(64bit)Clear all variables*)
(*利用四边形角元塞瓦定理来解决问题,从A点的两个角开始,然后依次BCD三点*)
ans=NSolve[{
    Sin/Sin*
    Sin/Sin*
    Sin/Sin*
    Sin[(130-x)*Degree]/Sin==1,
    0<x<130(*限制变量范围*)
},{x},100]

\(\{\{x\to 20.00000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000\}\}\)
页: 1 2 [3]
查看完整版本: 经典初等几何题?