求折角

ynhh

求折角

这是管道求折角的计算
已知管道直径 D，右下角管道倾角 J ,两根管道底端点的高差 H 和平距 L ,现在补一根红管将其连接
求原两白管的切除角 ? (阴影部分）
不知怎么推算出切除角
请老师指导
谢谢

咏郡

(setq j10(atan(/ l(+ h d))));角10的弧度
(setq djx (/ l(sin j10)));中间管对角线的长度
(setq zjjcd (sqrt(-(* djx djx)(* d d))));中间节长度
(setq j8 (atan (/ d zjjcd)));j8的弧度
(setq j1 (* 0.5(- (* pi 0.5)j10 j8)));角1=90-jiao8-角10 后的一半
(setq j2 (+ j1 (* 0.5 0.261799)));0.261799 是15度（弧度）

yimin0519

咏郡 发表于 2025-5-12 09:44
(setq j10(atan(/ l(+ h d))));角10的弧度
(setq djx (/ l(sin j10)));中间管对角线的长度
(setq zjjcd ( ...

可以算，不是那么很好“算”：

guosheyang

  

说说我的思路：先计算没有旋转15度时候的P点（因为P点是不确定的点）。利用直角三角形PNS和直角三角形PQM相似，设PN为未知数X，MN，MQ，NS为已知数，利用勾股定理，PQ可以用X表达出来，利用NP/PQ=NS/QM，解一个一元二次方程就可以计算出X的值，这样就可以准确地画出PQ线，然后再将UV、NP线绕N点旋转15度，再求出旋转后的UV和PQ的交点W点，连接N点和旋转后的U点和W点，则∠UNW为所求值（见图二）。旋转可以调用旋转命令即可实现，解一元二次方程用代码也不难

咏郡

我觉的你的这个是有问题的。

咏郡

咏郡 发表于 2025-5-11 19:50
我觉的你的这个是有问题的。

我怎么不会发图片；后加的红管的断面应该是垂直的，所以应该计算两个垂直管端面的角度

咏郡

这是我计算风管s弯的，记得当年我研究了小半年才计算出来的，和你这个差不多，但是你下面的角度又多了15度，我这个里面没有，具体是怎么算的，好几年了忘记了。希望代码对你有所帮助。图片我不会发，就做了个GIF文件，在附件里，可以用点开看看，lsp文件我就收点币子

ynhh

咏郡 发表于 2025-5-11 20:22
这是我计算风管s弯的，记得当年我研究了小半年才计算出来的，和你这个差不多，但是你下面的角度又多了15度 ...

谢谢您的回复
两管相平的没我问的这个复杂
这个当然也可兼容两管相平的情况
谢谢您了

mahuan1279

列三角函数方程组。

咏郡

(setq j10(atan(/ l(+ h d))));角10的弧度
(setq djx (/ l(sin j10)));中间管对角线的长度
(setq zjjcd (sqrt(-(* djx djx)(* d d))));中间节长度
(setq j8 (atan (/ d zjjcd)));j8的弧度
(setq j1 (* 0.5(- (* pi 0.5)j10 j8)));角1=90-jiao8-角10 后的一半 弧度值
研究了半宿，才把我发你的算法想起来（是从新推算的），这样就能算出角1的度数了
角2 还有待研究

咏郡

不知道对不对