home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / MINITK.ZIP / SHAFT.TK < prev   
Encoding:
Text File  |  1988-03-01  |  1.3 KB  |  174 lines
  1. TK!2
  2. =v
  3. #1
  4. :n
  5. OD
  6. :v
  7. .5
  8. :s
  9. i
  10. :u
  11. in
  12. :d
  13. in
  14. :c
  15. outside diameter
  16. #2
  17. :n
  18. ID
  19. :v
  20. 0
  21. :s
  22. i
  23. :u
  24. in
  25. :d
  26. in
  27. :c
  28. inside diameter
  29. #3
  30. :n
  31. L
  32. :v
  33. 8
  34. :s
  35. i
  36. :u
  37. in
  38. :d
  39. in
  40. :c
  41. length of shaft
  42. #4
  43. :n
  44. J
  45. :s
  46. b
  47. :u
  48. in^4
  49. :d
  50. in^4
  51. :c
  52. polar moment of inertia
  53. #5
  54. :n
  55. Txy
  56. :s
  57. b
  58. :u
  59. lb/in^2
  60. :d
  61. lb/in^2
  62. :c
  63. torsional shear stress
  64. #6
  65. :n
  66. theta
  67. :s
  68. b
  69. :u
  70. rad
  71. :d
  72. deg
  73. :c
  74. angle of twist
  75. #7
  76. :n
  77. G
  78. :v
  79. 11000000
  80. :s
  81. i
  82. :u
  83. lb/in^2
  84. :d
  85. lb/in^2
  86. :c
  87. torsional modulus of elasticity
  88. #8
  89. :n
  90. torque
  91. :v
  92. 300
  93. :s
  94. i
  95. :u
  96. lb*in
  97. :d
  98. lb*in
  99. :c
  100. torsional moment
  101. =u
  102. #1
  103. :f
  104. ft
  105. :t
  106. mm
  107. :m
  108. 304.8
  109. #2
  110. :f
  111. rad
  112. :t
  113. deg
  114. :m
  115. 57.2957795129
  116. #3
  117. :f
  118. lb/in^2
  119. :t
  120. mpascal
  121. :m
  122. .00689476
  123. #4
  124. :f
  125. ft
  126. :t
  127. in
  128. :m
  129. 12
  130. #5
  131. :f
  132. lb*ft
  133. :t
  134. lb*in
  135. :m
  136. 12
  137. =r
  138. #1
  139. :r
  140. "                      ***  SHAFT TORSION AND TWIST  ***
  141. :s
  142. C
  143. #2
  144. :r
  145. Txy = torque*OD/(2*J)        
  146. #3
  147. :r
  148. J = pi()*(OD^4-ID^4)/32      
  149. #4
  150. :r
  151. theta = torque*L/(G*J)     
  152. #6
  153. :r
  154. " Note: The 'user-defined list function' feature in TK Solver Plus may be
  155. :s
  156. C
  157. #7
  158. :r
  159. "       used for retrieving the value of  G  by automatically referencing a
  160. :s
  161. C
  162. #8
  163. :r
  164. "       data base of material properties when a shaft material is specified.
  165. :s
  166. C
  167. #9
  168. :r
  169. "     Use the  ;  key to switch the cursor from window to window
  170. :s
  171. C
  172. %Br,f,0,1,0,1,0
  173. %Ov,f,0,1,0,1,0
  174.