Andrew1979 发表于 2022-7-5 18:14:57

如何计算三角的TAN

我搜索了论坛,试图找出这个问题。我怎样锻炼谭?
为什么AutoLISP甚至没有这个功能?
 
我曾尝试阅读过各种帖子,但都没有任何意义,很惊讶在这个论坛的搜索中没有找到一条帖子
 
我想做的就是算出三角形的另一边。
 
我有相邻的长度和角度,但有这么多弧度和度数以及其他垃圾,我就是无法让它工作。
 
当我使用计算器时,我会在一秒钟内解决它。但不能使用AutoLISP。
 
https://www.cadtutor.net/forum/image/png;base64,Ivborw0kgoaaaansuheugaaacuaaaaekcaiaadshdmyaafnuleqvr4no2dz47usjfferwvquwehjcathqre9ysglrsecibtxal5faqmgk1vmaskupzpj5nqn5gvkjgjbzepvz08/hwqdhex4jribsnxmekruh6zpicdp4ybf+Hb00/3slqj7fvy0rupnhukkg2i5diqk2o7mbinubtudnzlgouiwzyfghgkisdgaujmodiu/j07bbbjliqko3a0gqzqqzqqzqo4 Qpetp2icaswqjidmbpggwg8pq8hteeiksbgq7sdrbbhb5sp6ohskirbycsh1ymiadidwlt8coeuqicwhzdixnkafenpkny4ciipggwghlibiacjpydoxqwsryejatgnLE2QAkafk6dghgkhkISDbgaUJMoDI0548vfvgUVG79/axpusx334vlsdbeuhkisdb0dknko3ajqbmzywuchaofju5kkngg1jnqsulmzfgriu1a75klmbzuawkkkxk6doggelkiyzgayimipkup07rbcjlarko7a0qqyqeqejh0iieqwaridwjoga4ju/hdhfeigsb2q4stzabr6sp2ohckrybybx6rmez7neege1doit8ntsumekxw6/w48+n0c9q2csszzzz T+SoyFPylDwdO8S+kifPXvjoMcuTZy+GS5Paa5Syvpyldwdo8SokrpzixHmzj2Fofvj7H9i9VwoyjpyVpyDowqe0LCMBpu2HDYKDRltvpnwcxbvBoj8pq8ju/HDrGL5M27D5Y7B9598EOWP1PDFBRBYCGOHS5SP6OHQlyFntoqlyFcPshn4SQ3AFSRZUZDPU3NDHRGQNKKXLKNO4DYLNJ8GJDVQJJJ0XIBIRXY76LS8UZI00RF5MM7KKXK6DOINJE6H+tuwf76RDcIWrwcj8OT/M7SICVPYDOXQ6WUWYDM8NBCRJDPU/CSANCI2TQOGAJJJtrcNPE/L05PB9OVBZNV8JFCEPI6VONL5+vxVkDVPn79arPn2/CFG7ARPN2 Q34i7prbt2qdwcpjzr3fhildqgcfuotijwe1oohgontcdvuenmu/rDUbXa1xPlT/539w6daj5cgqbijmbju45pebw/dohbJO7xuF3Ozi9We7FnV13sps+fBhHWLgHbnYCkOR0F34Q8JU/J07FD3CLxSZrZy2r96eRc34/vazrkwcemakarhzgnwuaekdjh7hfysepi4tfob3yiaql5ciedwc7pan8ozfccmcas23+u5gn5cl5onaiwyr2mlk4w5rtiz8tysvxf5ix3p80qn3suy6dnctpbt8vimnmtpgnfindoxq9wosebz60mzewleyhix9wlulo4sdnjgny2+seSp38hT8nTsEDdKgnX7J7fv+8PPYEF+Yr6+xals21etnuaqvnxlpmpeq8f4 DV/0D7DKSEKQDJH7HR4S8DNUBKJKRT9WP84DOXCJFASB00DS1TRZ4UGNLKNO4KBJ4SZM6IG8P/DMDGH7+NTI0QDkIpU8JU/J07FD3C5X5UUN+0Kmcf+mTwV2HGFaAAiT91GnpKnY4e4XeJWPpnl7fuP/mqrN+MnQrBELr2+l0bwrkmrym4heukqdjh7haoecezsvdum/efYhJ0vNF3X3wKHaXamy2qsS2+STV/eclvospbeqpetplxvz7cc+zmoftonj2ugc3ra2p1odnqylti5fu8wmtvzknjk/JU/j0vbbxh4tnijxzoru7fkxiytz0txr4l7we0itvpmdlvwrp6arp+TpYCH6D8KzbXHknt/l5eho8je HID3PNP1053+/2+C7+kEckiq+YekVPM8K6FKKXK6UOJJKLBUIV/ppK6CbiH/H4IwXKrWMnqpFVMSp6qdUSecj7pkSaRPRz/zwDo9PPX2Drn376bdc6/fa+egAX64XC1JQTzJrAfqEw1JyeoHs4O55NGRgHnk97aUWJs6DZ71G8OyesmYN/cl5nkdkh0xmt2tocgkamkbtr4dns+CMh2YFEQlJCnZR0lzl0GVzNfbwG1E5LEc/pWQ/B/CWA/ujnq7onhpuhftkoewqigkcf2/JUMD41F7sOh6vgq4uRb34IsTE17AcqU5Gn5Cl5ChGiX0/qV+a76yQu8iwOyfPtLGqeFq+6dqxb2hbenjnj2a/ujmkpcvdp+ic7xzsfje800cz5d5ci7i7 FHMPv2toh5imkfghklozbiqqimyhpcvpbwsxzz6n0m2zqjoglbwtrmpixgxpkkns8a9upijpyvpytfui7ipve5x5mzx2pvnnwav23crxhjkalo9r/A9UprK7QX4OyHbIU/J0pBBtoWhwuiaD1NJts6NLe/2.2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。4。2。2。2。2。2。4。2。2。2。4。2。2。2。2。2。2。2。2。4。2。2。2。2。2。2。2。2。2。2。2。2。4。2。2。2。2。2。4。2。2。2。2。2。2。4。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。2。在8。H0VPZIWPXYI6GJMASEQCQEFFFVGC3IDFNIV9MULJBVYP18TD8EKUKKEXO24HTUOEKD9JHZQ+vxK0un6EXq6fMq9Zyl9X7/f72i5o79ymhfbuwfjtsnpypyldzdkpfvk4/3tkcriwillftik7tixbzkl14fzxvecrom3i6xzafn5gk8gcthimyhpb2mpyeqm2yxsk4/fzUkMvPh57d/fpmnhz1ha2lwffm1lfvp7ovws6ffv5q/3axnue/hvopztzy8umtnez15qvtyann83n5ko5yfn/pzd5dikkn5zslxdl3ynsh6mkmzjb5m27 D2K7WQGVILSJ41OOTZK+5fH+DOMSKTR0TDGDGWT3CUM086SNLV50UNEIRPZAR0JNRD2SFYDMOLQELOUFYFHP/alRc8Tc8DvbCTw27yVKYiT8lT8nSrRFZJajtanffethhPzTvEHoJi7axidEtoE3m6lkAwfGQ75Cl52kEiqyQ9O78wHblD1MwHQy3On6ZHtSflxaTkqUxFnpKn5GkFiYvO/ErS089fzX+6/E1c1BJc+ColqTiBiTzNe8LrQHbIU/K0j+R49aclnayS1P3P4FH/4inq82uqfanju/JU/KUPK0g+bf/+C/3md09hhqhsbadiwttyp6/HOskzcmJU9xeDp5SEW2Q56Sp91CnK8vgkpSf6I/f7GnCIItOHolT8lTtY7IU t/K0TohVKkmn5Ix/T569iG1bolPyFIqn03WkItshT8nTbiFWqSS1LVZSuti2HHyTp+spwkfkxlalcttlat525yzctzmycjpsxkwnx2yhfkupo0z4vzk0pxtyyepzgiteuqfkad0q21wstorfpostewekqfkaeuqq1esturfposptfwugoyqtyreuqevg4xv5l07fupq++cvh6fk8benpkn5cnk64iwwi6879hftop39nd2rwgyubpwscbes+n3sszfombifzsm+aaafpqrmttvvskpqqdybygihicze6t3sdrzo8lrb2fbmdt6crqa9t2zlptepotljrkm0a6hbht6hyxdc4wqvgnpkn/upmvzyfm4asbgq75cl5sp4ofmlvx7kbgqhintro0kpuperj6sp31clcubyeek jdtkkfkxk6qij4xatkquwltqd1mypabuqpeaox4ijfposptewekqfkquaiwan7wdvkquy1jyf8pciddwltxuggxkqu5gn5cl52 teoytjyvozammc7wrm1hIjt8nTyihuojiupjwpyPyldytfujuiknju5mkpcvpydmkp0vk5knmtx2bhl2imqakafk6sajiwnheeeke3lknpkn5kly4o5jyvnzcmh2etgkxwvmtdziu/k0tbisgsjpzseg2yfpbehr3waidu/h444Se2jvt19++720l+526kpkisdbeahjrdbzzttdewaxi5oarw2bzjx6erlprscn3j8wi+b9m6gpkdt2qfu7aw2psvzfmhchknodyvhybybybybyfyjgzjgzjgjgzjgjgzvybyfyy9NENSDMODI05VL0/RTOELUOSPRAKO+QpeUqeZknSt9ULiknJU1kIyHa606TitA9quZGnN46n8/XFF2MSEEKSHCQ7XSNCXNA3C5YKNDM6RXA3JDGDBFEIGSB2Q4CTYJIRQYQEXpTeBqEaXCUOlaIIBJZCMh2EGhCnva1MxYKlHiaJqm/y44VIohEFgKyHRCaVNk/1xijt3fo01wykqdvjliqko2a0iq87whnlbs05wkosxm8x00sicwhzdghnynodsquofsgupn0ukywabehjtv3t7xcynmd8lrm0hfdbjhickc2g0mt8rsxnbfquj+nyoogykirbych0omrg7ltkaynp98hjrgneuqicwhzdhrnynmudnikl4ejc5nj1z+97ftjaykhsltrrbbjj liqko2g0wtecl+JWm474+nb9x9dmFweju6rn06/xlbzdn6hb6cot9pjunjdsg3byfpyvc23pfe0xsonz15mszgkfqhpye37xe1n+/8av8ODkXTEkEvme3ew8elErVt05HIQkC2o7MbFPVidnI1O4AJqNk5HK4SrHz6/JX9++37j67w3//zv+1Lp5+/atrZND71h6K9fscmjk+lISDb0dkNinoxO7yaHcAEdOy4Y8/Y/8F4C9D5DHWOOCRA2XQ8T57ISGQHINVBPMKSUIGLTS+eGpQeHk4+PI37Z5YVR559YGFTUE4JO+QPKE3JHIU5MKPN0BT588E2FQ+ON0S1CSHNUABNW3K4XRUKL O1bsnp98ttkw8y0su3hfduhvogjazaangt30/avenmvsnynbxi645gjbiqko3a0oq8bwrnrvn0avawspkupjwp1bikibx2i4dg0xt9vd+rpxgswqjidmbpqp62tpn5pcoogytsjuai12pcv13yx0rokjhsbjZCMh2YGlCnra2c3Z+ka6xshzyd1wvzrt52l0icwhzdixnjkqbbfbecetslb2c8pr3s4749ax77+w76UebBfy07N+VBiuxfsbqS2beQpeaqW2254Oq3db+qoynlh/tNKyZCnvaVyEJAtgNLEyspQirsFwGWp5M3H8oCkQmkDjwfim3B3Qt2N1LbNvKUPFXLbWc8zZEsSLqH+fqssv65k6eyejdtwnleqffalmdpptydqa9uazm9/iekchqlydsx00iekcqlydydxxxxx PyVM3OWCGGT0H3CFJUPQSQCZSYB8I5GMTBSNPQFCJ8LSMIK/J013xdKrxMMixQgSRyEJAtgNLE1+Sg1TYLwJ5WmvbNs3PH2vz9Yn6YaclV9s2zs+/m/n5Y5I58nAK/dx2MD+/rZE6HK7GQkGT8em0+WGQAGNHP7IQKO3O7AA17KWOWG/CGqfTqbEvUO/9KYJWQK17JCnoDQhT2Uq8nR/PJ2z5zQRJ1DLTiueTtseBkmekqcyVd8E0kiF/SLA8vTycDz/9t3+3S6BWNBIU1CAKCYVC/X6A1B861BIDVJUATLXADHJYDNJWMKWLT2WQPVST27NT26ZP7RNTRPXQ4S0NNA4 F/OQPYUNPJWFGGWHLIZWYKLQ/9KKKWKQ 9T13Y1LTF7CCXQU6WP5P0YZDKKXKQU+NNJ32DPKARP1UKMZ5O3KB1DS0JTZRAQMF7E3MQKJGGGWHKYZBKTQUUE2B56AZMFPDXC7DXQMT+cGtx015+KKEHGKEUQeylRNE7AKJV7FJ09RSFZ5ALQQRFB67wpitxdbesplarkozg0wyxjydomdj5ulg5n61j8/Sk/OFl5Cl5KlPVTeBHCZRHSfK0qZ0invoq8rRCL+splarkox1pkjjjmtgw8rskrmztnwh3vmccpy5qq9sht0fpqp7kvnstjm0vhkarxjd4mxt6f2t9oht2uhintrpkkosdmbbrp5wkajdk49zh5ckot8lsmkiwqt9l0hpgnvstkazykh6nkkqu5umuers9iarp1ruka/p0rhhw1tljzlzljzl 1xL5xPWHYCSP2MU4EHAV075G375RAD+aTbJeBf/a+7BARJ06NLK3Y4PPWFGYN0W6QWWWQ2DCOTXEKIQR8NTBDNVIUDJ8GT2WQ1HEPSJHUSGKKYLKBVF0AVBKMVJUFGYNVQ7GAYYVLBH5CMCHDXTG2JTOZGSWQJIDRBVBLUKSQUS8HRBUSTTUEQ09X14ORV50G55KGS2C6W3WB7MALAQP4ISEWCPJCVD0FYTCZELNZAJLIQKO3IDONAXAQCCXMKIINXLZU3LY+PJ0APLMMPJWFGGYNVW3MFQGIU8RJAUE2VV3YDPIEHVZQZDIQKC2K6+YJO38FFPYFEASS2DPJ2SSCVPYDMCLV8CRZ6SP+RPWXDV7HSXYEJATPNQQ7TYVPYTJSNC73HHKNOPSEE pu+SkqfkabgGObnU2raePJ3iSCVPyVNflXO5iTwlT8nTViEq2+krkYWAbMeq8i/ck6d75Wni6XtmuTwcEwncCJ5OEaSSp+SpUZWWQJGnO+Pp0+ev0ij0l+PVn6tv62OHPL3WyFNZCLB2ZMWk5OmeeHp2flEKU7t8Ov2SeOfd8rSWN/JUFGGNDXH3MMMQJ5WLLGWFFLSHFVSK2CV3EP1V/O/vvhPNnXXbGFHdT7pWJu9eaY5n/QNnE/AFPNU6AHVAPXPK7FUPHON/+PLP2DRN376BDFWELFLFV8Y/qRqMKf/fNKZPxeCXjg+lYWAYCd2aK+ZG10W/FpLYmZu2T1eSdmtcU4dHG/afiT2vHxvm+PPL0hPK0+Myl5ugoe2sp5t6df0hl7pcn3hibjwnydvhn3ifbj7zunc4fk6e552mhuvj0bzy1lhzz7kna4pj3kudwpb8/KfI03chTWQj6dprOTEqe3kyeuof8f8+BG78qtX+euibJ013yVGFmUvJ0TzzNP973x6cTeUqebpHIQtDZNrWZScnTHfB0+guFq9ejbE2Ve5KUx/tLk+TpPnjqlkDpfDrk6T54akF5/u17bB07OF3A0SRgn25yQ69HuT7J09F5uv0Z9zIVeboPnroV+0Emuq8uRqAvX/9hx7i39fvyfvinbiu1a4jsvtws+4l6nI033wdLo+/ewsi9oji1cxn1a5q7wwa8dty5u8hzgnognnmur1f//cq0xhmj/j0tnshcqq BNVQ5SBYTG5H3RNQS3NY+36QqrHpTgxPg+DMR31SN4ENQBERJTYVHBX2ZIV3JONDTVQNOCANUYJKCVQUXLZ5C8LSQBIK/RDTQ9ATU75GKSLSYVNZCJJFU/JiUvK0bkfdE1CzQ57WkZCnAjtNv0tbiknJ07oddU9AzQ55Wk1ShFTyVBZCTkfbi0nJU7XcdsBTWym1en+UOIFWWPL374FFRU/fwsZpknud8yS+//V7AI7KD1HJZCOMODOL72RGOQIDQJPGZ0S9NJ4GMDV7L47+6l/JbJOC/bRU70OPT4M/Ilh+L7NAASMQHJJZAFYTJOT5VY00NGAZ2/Er+1fqn0gRu4vF+0PAWELVBASQRHEB31KYLDXVY2PPL081DHOWJ3JSOSUKE8DTOH4HGPZ2/Er 51EFSK1QJSVK5KNARNTJKCNT+/BMFYTZFYLCZCNFUJESNOIGVHX6W/xsWk5Klabvvj6ZQxPUppAuTpSiNPBSHYEihMO7A0IU+b2old33efIJ2gKnm6IslBKnlaFMKWZ9yTp+RPUZJEIN/Xn5/+n3ydEVCnma2rD2pRzEpeaqW2755app7RtU/tUqerktWkUqepkOY57nWzKTkKXna1E5mPX+QqrFB6/KTIk/TEvI0EcKP86ShDJHtwNKEPG1qp+j+qNVpp2/u8/jskjrsydngco6yldxtbyc8rskr3w8aayt5sp5w4gnw6lbtidixnynomdrbfv++eCiBP4/trhknkqq0huqjfnja1q55wkw8hpoidks8jtrcopjdomdsjtlyve8v SQ+pN5qnFqGBPArSzRUWekqfkaYGEPL2WxvUBaRWeuntzxwRkKvKUPCVPyyRBpN40ngYP7fP3JHuS3u/ipgxx3nsxrcp5sp6q2sfpm0tuoe8tj0kzqcrsu4/f42tZoYJ/l3S5Cl5qmZnMJ6e3L5f1H6+8yuCZJ7nxf/ce/i4tBccO5kS+/imWMsMYZ7nw+hkpwpszcph6vtz1y4jyfs3acinfsno5obtgjdhol4o/zVbZtyPFp8Odl3+PTzFmgCuZDmed5np88e/H2/Ufzd3C2nsvD0S/f00lApuL4dH/j08vD0f3tX50C1SRgS1BZf0qe/pcuzdxytm37z786ci055m5fpzdlzlzwlt3xsjo7qt0ybsp5kjitedszwbskrshyn3q7bxzyzyzy SBP/2YnRzOUp/QRkKvJ0NzxNwDQByok8lUn2ylPxM+6LQpjn+fJwXNSj+JNLBkcB5Cl52tqOuysuikzcw/9g/Ql5KpS4oeyAp+6YVIGnZkAKlcB2FXm6D57ao6Vg/UmCthN5Kpbshqf+0X1rnk5/HfI/ff4kiyfakvj0hzy1rexiykgn8jr96qcwnbf5ojlihznsfokojydfrqzylozx7o/8uQpedrUjh1+uuf3w4ghzqwsp3ljudxnx3fs46np6oz8wl7hxzz1zb8ckkvavm79n5tw3+sad5sydnnehphqdznuxavnzgt8l5ukfhrdkoclu5oln4+nksnkmcwlnt8ntdykt4uksrv4aqiz9fxn5xeluqjzdxd3hknte2nrywpnm3ydyd4 SNLA0SWEEMQSQEARZJPTJXNPTZ1/n0HwIZ+cXdoi6KOwnT8nTpnbyz5/6knmeX77+YyJPt0hgeSouJtXh6eQd2ttmdkd3tcSUVI3swNKEPG1tx8IuX2IBerz6cyJPN0qCg6yO27axmFSTp3PoJihzUtX+0z2FSp6Sp63tWBqef/ue//72Uurl4UiebpLg8LRKMakyTxfpGZi6d+6bk6cGu+Qpeapgx0We/3sfa351iltKRZ7mtrsPHgmQWnfbKhaTavI0+kdd2ot8mnzgauktjxd8vvmomo179sz5ulftlafviuk2emj/c26ITk/do2oglcxmqy2cxour6t3qtid0vogbtwnznu/ab/cepp7j8yi32jzbaowqwil0luhs3diffnoetvz851f7rs9t5+/KkrATJp+/u373x+Qt9S1s6vx6VR+FlW8bUUlUDoJTBvOn8ZedQcIvL6/KuH4FEGSSKD5+BQzEWSe6hSTqvHU/gjhxr08ho1blv2bpvp1eyqp51dlejqueax4plwxvs/OL8jTtIQ8RZCkEyBPy0JswVP9YlIQnn46/eJO1896qbSEP

eldon 发表于 2022-7-5 18:30:40

I tried to Google your problem, and the first one was this site.
 
I am sure there are many more sources of information.
 
P.S. if you are using whole angles, the hypotenuse length is 662.03

Andrew1979 发表于 2022-7-5 18:36:25

thanks, yeah i saw that. Just can't get any of the code to work the way i want it to. I know the info is there, I just don't understand why my code doesn't work

rlx 发表于 2022-7-5 18:41:47

See this one : https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/sin-cos-tan/td-p/868027
 
 
(btw radians instead of degrees)
 
gr. Rlx

Lee Mac 发表于 2022-7-5 18:52:27

Using my Trigonometric Functions:
 

_$ (* 600.0 (tan (* pi (/ 25.0 180.0))))279.785

Andrew1979 发表于 2022-7-5 18:58:51

Ok, I think I have it sorted out. I don't understand why this works exactly or even understand the formula but this is how to work out the opposite side of a right angled triangle when you know the adjacent side and angle
 

(setq AngInDegrees 25); In this example, I set the angle to 25 degrees (not radians)(setq SIDE 600); In this example I set the opposite side to 600mm)(setq AngInDegrees-90 (- AngInDegrees 90));I then minus 90 from the the 25 (setq c (/ SIDE (sin (* AngInDegrees-90 (/ pi 180)))));Do some formula (setq b (sqrt (- (* c c) (* SIDE SIDE))));Do some formulaWhat you end up with is a triangle where the opposite side equals 279.78mm. The value of SETQ b = 279.78mm
 
So it works and if you need to work out this type of triangle this formula will work. Just replace the variable names to suit your own needs.
 
I wrote all that out so if someone searches for it i the future it may be helpful....and someone might even find it from a google search

Andrew1979 发表于 2022-7-5 19:07:03

thanks Lee, you posted as I was writing my last response. i will have to look at that. Than ks everyone.

Lee Mac 发表于 2022-7-5 19:18:31

 
Your code is essentially calculating the length of the hypotenuse using the known adjacent side & angle, and then using Pythagoras' Theorem to calculate the remaining unknown side length.
 
You can omit the subtraction of 90 degrees by simply replacing sin with cos.
页: [1]
查看完整版本: 如何计算三角的TAN