梯形，知道上长、高度，想通过左下角的角度公式算出下长？

277283904

czb203 发表于 2024-6-22 13:32
大佬不是都提醒你了~
下长=2*高*ctan角度+上长

你有试过吗，我试过不行，是atan吧，ctan是什么函数，ctan角度是指那个角度？

ljpnb

ctan指的是余切，可能写的不对，应该是cot，但意思大家都知道的，值=cosA/sinA

277283904

ljpnb 发表于 2024-6-22 14:31
ctan指的是余切，可能写的不对，应该是cot，但意思大家都知道的，值=cosA/sinA

麻烦，怎么编写到角度1中

xyp1964

1. (defun c:tt ()
   
2.   ;; 等腰梯形，知道上长、高度，想通过左下角的角度公式算出下长
   
3.   (defun cot (a)(if(not (equal 0 (sin a) 1e-10))(/ (cos a) (sin a))))
   
4.   (setq l1 (getdist "\n上长: ")
   
5.         h1 (getdist "\n高度: ")
   
6.         r1 (getangle "\n左下角角度: ")
   
7.         dx (* (Cot r1) h1)
   
8.         l2 (+ l1 dx dx)
   
9.   )
   
10.   (princ "\n下长 = ")
    
11.   (princ l2)
    
12.   (princ)
    
13. )

(defun c:tt ()<br />   ;; 等腰梯形，知道上长、高度，想通过左下角的角度公式算出下长<br />   (defun cot (a)(if(not (equal 0 (sin a) 1e-10))(/ (cos a) (sin a))))<br />   (setq l1 (getdist "\n上长: ")<br />         h1 (getdist "\n高度: ")<br />         r1 (getangle "\n左下角角度: ")<br />         dx (* (Cot r1) h1)<br />         l2 (+ l1 dx dx)<br />   )<br />   (princ "\n下长 = ")<br />   (princ l2)<br />   (princ)<br /> )

277283904

xyp1964 发表于 2024-6-22 15:57

大师，怎么简化成公式写到角度1的表达式里

czb203

xyp1964 发表于 2024-6-22 15:57

e总数学天才

xyp1964

277283904 发表于 2024-6-22 16:00
大师，怎么简化成公式写到角度1的表达式里

上长+2*高度*Cot左下角角度

277283904

xyp1964 发表于 2024-6-23 17:11
上长+2*高度*Cot左下角角度

忘了跟您说，左下角角度也是不固定的，直接填:上长+2*高度*Cot吗？

飞的鱼儿

难道不应该要再给一个条件或者前提：这是一个等腰梯形。没有这个前提，这个问题就无从谈起。

277283904

飞的鱼儿 发表于 2024-6-24 08:19
难道不应该要再给一个条件或者前提：这是一个等腰梯形。没有这个前提，这个问题就无从谈起。

是的，是等腰梯形