求折角
求折角这是管道求折角的计算
已知管道直径 D，右下角管道倾角 J ,两根管道底端点的高差 H 和平距 L ,现在补一根红管将其连接
求原两白管的切除角 ? (阴影部分）
不知怎么推算出切除角
请老师指导
谢谢
我觉得很奇怪，这是非常基础的作图题啊？希望我没有理解错。
做一个在下面管角点上做R=219的圆，然后从上面管角点做此圆切线，切线offset 219就完了。
(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度（弧度）
咏郡 发表于 2025-5-12 09:44
(setq j10(atan(/ l(+ h d))));角10的弧度
(setq djx (/ l(sin j10)));中间管对角线的长度
(setq zjjcd ( ...
可以算，不是那么很好“算”：
我觉的你的这个是有问题的。 咏郡 发表于 2025-5-11 19:50
我觉的你的这个是有问题的。
我怎么不会发图片:lol；后加的红管的断面应该是垂直的，所以应该计算两个垂直管端面的角度 这是我计算风管s弯的，记得当年我研究了小半年才计算出来的，和你这个差不多，但是你下面的角度又多了15度，我这个里面没有，具体是怎么算的，好几年了忘记了。希望代码对你有所帮助。图片我不会发，就做了个GIF文件，在附件里，可以用点开看看，lsp文件我就收点币子 咏郡 发表于 2025-5-11 20:22
这是我计算风管s弯的，记得当年我研究了小半年才计算出来的，和你这个差不多，但是你下面的角度又多了15度 ...
谢谢您的回复
两管相平的没我问的这个复杂
这个当然也可兼容两管相平的情况
谢谢您了 列三角函数方程组。 (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 还有待研究 不知道对不对{:1_1:}