home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / GEAR.TK < prev    next >
Encoding:
Text File  |  1988-03-01  |  2.9 KB  |  337 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5.  
  6. :s
  7. b
  8. :c
  9.   ****  CHORDAL TOOTH THICKNESS  ****
  10. #3
  11. :n
  12. n
  13. :v
  14. 25
  15. :s
  16. i
  17. :c
  18. Number of teeth
  19. #4
  20. :n
  21. pn
  22. :s
  23. b
  24. :u
  25. 1/in
  26. :d
  27. 1/in
  28. :c
  29. Normal diametral pitch
  30. #5
  31. :n
  32. npa
  33. :s
  34. b
  35. :u
  36. rad
  37. :d
  38. deg
  39. :c
  40. Normal pressure angle
  41. #6
  42. :n
  43. ha
  44. :v
  45. .40142572796
  46. :s
  47. i
  48. :u
  49. rad
  50. :d
  51. deg
  52. :c
  53. Nominal helix angle
  54. #7
  55. :n
  56. od
  57. :v
  58. 2.75
  59. :s
  60. i
  61. :u
  62. in
  63. :d
  64. in
  65. :c
  66. Design outside diameter
  67. #8
  68. :n
  69. hc
  70. :v
  71. .09
  72. :s
  73. i
  74. :u
  75. in
  76. :d
  77. in
  78. :c
  79. Chordal height
  80. #9
  81. :n
  82. ntc
  83. :v
  84. .1172
  85. :s
  86. i
  87. :u
  88. in
  89. :d
  90. in
  91. :c
  92. Chordal tooth thickness
  93. #10
  94. :n
  95. pd
  96. :s
  97. b
  98. :u
  99. in
  100. :d
  101. in
  102. :c
  103. Ref pitch diameter
  104. #11
  105. :n
  106. pt
  107. :v
  108. 10
  109. :s
  110. i
  111. :u
  112. 1/in
  113. :d
  114. 1/in
  115. :c
  116. Transverse diametral pitch
  117. #12
  118. :n
  119. tpa
  120. :v
  121. .3926990817
  122. :s
  123. i
  124. :u
  125. rad
  126. :d
  127. deg
  128. :c
  129. Transverse pressure angle
  130. #14
  131. :n
  132. ntt
  133. :s
  134. b
  135. :u
  136. in
  137. :d
  138. in
  139. :c
  140. Normal tooth thickness at ref pd
  141. #15
  142. :n
  143. ttt
  144. :s
  145. b
  146. :u
  147. in
  148. :d
  149. in
  150. :c
  151. Transverse tooth thickness at ref pd
  152. #17
  153. :n
  154.  
  155. :s
  156. b
  157. :c
  158.  Type  =R  to get to the Rule Sheet
  159. #18
  160. :n
  161.  
  162. :s
  163. b
  164. :c
  165.        /WR to window it in
  166. #19
  167. :n
  168.  
  169. :s
  170. b
  171. :c
  172.        =U  to get to the Unit Sheet
  173. #20
  174. :n
  175.  
  176. :s
  177. b
  178. :c
  179.        /WU to window it in
  180. #21
  181. :n
  182.  
  183. :s
  184. b
  185. #22
  186. :n
  187. rc
  188. :s
  189. b
  190. :c
  191. tooth radius         at chordal height
  192. #23
  193. :n
  194. ha_c
  195. :s
  196. b
  197. :c
  198. helix angle          "     "      "
  199. #24
  200. :n
  201. ttc
  202. :s
  203. b
  204. :c
  205. trns tooth thickness "     "      "
  206. #25
  207. :n
  208. ac
  209. :s
  210. b
  211. :c
  212. | intermediate
  213. #26
  214. :n
  215. ab
  216. :s
  217. b
  218. :c
  219. | values
  220. =u
  221. #1
  222. :f
  223. rad
  224. :t
  225. deg
  226. :m
  227. 57.2957795129
  228. #2
  229. :f
  230. deg
  231. :t
  232. min
  233. :m
  234. 60
  235. #3
  236. :f
  237. min
  238. :t
  239. sec
  240. :m
  241. 60
  242. #4
  243. :f
  244. in
  245. :t
  246. mm
  247. :m
  248. 25.4
  249. #5
  250. :f
  251. in
  252. :t
  253. cm
  254. :m
  255. 2.54
  256. #6
  257. :f
  258. in
  259. :t
  260. m
  261. :m
  262. .0254
  263. #7
  264. :f
  265. ft
  266. :t
  267. in
  268. :m
  269. 12
  270. =r
  271. #1
  272. :r
  273. "                 ****  CHORDAL TOOTH THICKNESS  ****
  274. :s
  275. C
  276. #3
  277. :r
  278. pt=pn*cos(ha)                       " transverse pitch
  279. #4
  280. :r
  281. tpa=atan(tan(npa)/cos(ha))          " transverse pressure angle
  282. #5
  283. :r
  284. pd=n/pt                             " reference pitch diameter
  285. #6
  286. :r
  287. rc+hc=od/2                          " radius on tooth       at chordal height
  288. #7
  289. :r
  290. ha_c=atan((2*rc/pd)*tan(ha))        " helix angle            "    "      "
  291. #8
  292. :r
  293. ttc=ntc/cos(ha_c)                   " trnsvs tooth thickness "    "      "
  294. #9
  295. :r
  296. ac=atan(ttc/(2*rc))                 " | intermediate values
  297. #10
  298. :r
  299. ab=acos(pd*cos(tpa)*sin(ac)/ttc)    " |
  300. #11
  301. :r
  302. ttt=pd*(ac+tan(ab)-ab-tan(tpa)+tpa) " trnsvs tooth thickness at ref pd
  303. #12
  304. :r
  305. ntt=ttt*cos(ha)                     " normal tooth thickness at ref pd
  306. #14
  307. :r
  308. " Universal Technical Systems has been creating and marketing highly
  309. :s
  310. C
  311. #15
  312. :r
  313. " sophisticated gear design and manufacturing software using the expert
  314. :s
  315. C
  316. #16
  317. :r
  318. " systems approach for over a decade.  Some of this software is now
  319. :s
  320. C
  321. #17
  322. :r
  323. " available in models for the full TK Solver Plus.  Contact UTS for
  324. :s
  325. C
  326. #18
  327. :r
  328. " further information on our complete line of gear software.
  329. :s
  330. C
  331. #20
  332. :r
  333. "  Type  =V  to get to the Rule Sheet,  /WV to window it in
  334. :s
  335. C
  336. %Tr,f,0,1,0,1,0
  337.