角与弦，两个问题

奇数的世界

自己顶上来。

风花飘飘

技术员（江山）好久不来了，我借他读的书也没有给我邮寄过来，呵呵，，

风花飘飘

王守恩 发表于 2017-6-18 03:46
我画了图，发不上来。已经熟悉题目的人，没有图也是可以看得明白的。
1，基本解：（180 - A - B）/360 ...

a=1.7,b=0.6
问r=？

王守恩

风花飘飘 发表于 2026-8-7 09:56
a=1.7,b=0.6
问r=？

a = 6,    b = 17,   弧长 = 6 + 17,    问 R = ？

1. Module[{a = 6, b = 17, x, R}, x = x /. FindRoot[Sin[x]/x == Sqrt[a^2 + b^2]/(a + b), {x, 1.0}, WorkingPrecision -> 20]; R = (a + b)/(2 x); {x, R}]

复制代码

{1.1792640145024005937, 9.7518450987860528680}

风花飘飘

{1.15,9.97}

真的不懂CAD语言，这是AI告诉我的…

王守恩

风花飘飘 发表于 2026-8-7 15:35
{1.15,9.97}

真的不懂CAD语言，这是AI告诉我的…

要不换一个。

N[Solve[{(6 + 17)/(2 x) == (2 Pi R)/(2 Pi), Sqrt[6^2 + 17^2]/(2 Sin[x]) == R/Sin[Pi/2], Pi > x > 0}, {x, R}], 20]

{{x -> 1.1792640145024005937, R -> 9.7518450987860528680}}

a = 6,    b = 17,   弧长 = 6 + 17,    问 R = ？——没这个条件：弧长 = 6 + 17, 是算不了的。

风花飘飘

王守恩 发表于 2026-8-7 16:15
要不换一个。

N[Solve[{(6 + 17)/(2 x) == (2 Pi R)/(2 Pi), Sqrt[6^2 + 17^2]/(2 Sin[x]) == R/Sin,  ...

我看不懂，真的，要是几何作图的话我可以