home *** CD-ROM | disk | FTP | other *** search
/ Piper's Pit BBS/FTP: ibm 0020 - 0029 / ibm0020-0029 / ibm0028.tar / ibm0028 / MCAD254.ZIP / STAIR.MCD < prev    next >
Encoding:
Text File  |  1989-06-21  |  2.7 KB  |  150 lines
  1. .MCD 25000 0
  2. .CMD SURFACEFORMAT rot=10 tilt=35 vScale=20 size=15,30
  3. .CMD SKETCHFORMAT mag=1.000000,1.000000 center=0.500000,0.500000 size=15,30 box=y
  4. .CMD PLOTFORMAT logs=0,0 subdivs=1,1 size=5,15 type=l
  5. .CMD FORMAT  rd=d ct=10 im=i et=3 zt=15 pr=3 mass length time charge
  6. .CMD SET ORIGIN 0
  7. .CMD SET TOL 0.001000
  8. .CMD MARGIN 0
  9. .CMD LINELENGTH 78
  10. .CMD SET PRNCOLWIDTH 8
  11. .CMD SET PRNPRECISION 4
  12. .TXT 1 0 1 19 
  13. a1,18,16,17
  14. STAIRCASE DESIGN
  15. .TXT 0 26 3 44 
  16. a3,44,42,114
  17. Based on equations in "Building Design and 
  18. Construction Handbook, 4th Edition," 
  19. edited by S. Frederick Merritt.
  20. .TXT 4 -26 1 42 
  21. a1,41,39,40
  22. (Enter your values on lines marked "*")
  23. .TXT 2 7 1 8 
  24. a1,8,6,7
  25. Units:
  26. .EQN 0 14 1 10 
  27. in:1L
  28. .EQN 0 11 1 13 
  29. ft:12*in
  30. .TXT 3 -31 1 4 
  31. a1,3,1,2
  32. *
  33. .TXT 0 6 1 19 
  34. a1,19,17,18
  35. Enter total rise:
  36. .EQN 0 23 1 22 
  37. rise:12*ft+6*in
  38. .TXT 2 -29 1 3 
  39. a1,3,1,2
  40. *
  41. .TXT 0 6 2 17 
  42. a2,17,15,31
  43. Enter guess for 
  44. riser height:
  45. .EQN 1 23 1 18 
  46. rh_guess:8*in
  47. .TXT 2 -30 1 33 
  48. a1,32,30,31
  49. Determine actual riser height:
  50. .EQN 2 8 3 26 
  51. stairs_guess:rise/rh_guess
  52. .EQN 4 0 1 32 
  53. stairs1:floor(stairs_guess)
  54. .EQN 0 33 1 31 
  55. stairs2:ceil(stairs_guess)
  56. .EQN 2 -33 1 16 
  57. stairs1=?
  58. .EQN 0 33 1 16 
  59. stairs2=?
  60. .EQN 2 -33 3 16 
  61. rh1:rise/stairs1
  62. .EQN 0 33 3 16 
  63. rh2:rise/stairs2
  64. .EQN 4 -33 1 16 
  65. rh1=?in
  66. .EQN 0 33 1 16 
  67. rh2=?in
  68. .TXT 2 -34 1 60 
  69. a1,60,58,59
  70. (Equations below select answer closest to original guess.)
  71. .EQN 2 1 1 46 
  72. which:|(rh2-rh_guess)>|(rh1-rh_guess)
  73. .EQN 2 0 1 25 
  74. rh:if(which,rh1,rh2)
  75. .EQN 2 0 1 37 
  76. stairs:if(which,stairs1,stairs2)
  77. .EQN 2 0 1 15 
  78. rh=?in
  79. .EQN 0 19 1 15 
  80. stairs=?
  81. .TXT 2 -27 1 50 
  82. a1,50,48,49
  83. Estimate tread depth, using empirical equations:
  84. .EQN 2 7 1 20 
  85. d1:25*in-2*rh
  86. .EQN 0 23 4 14 
  87. d3:(75*in^2)/rh
  88. .EQN 0 24 1 15 
  89. d1=?in
  90. .EQN 2 -47 1 20 
  91. d2:17.5*in-rh
  92. .EQN 0 47 1 15 
  93. d2=?in
  94. .EQN 2 0 1 13 
  95. d3=?in
  96. .TXT 2 -54 1 63 
  97. a1,63,61,62
  98. Enter a tread depth, based on values of d1, d2, and d3 above:
  99. .TXT 2 1 1 3 
  100. a1,3,1,2
  101. *
  102. .EQN 0 6 1 17 
  103. depth:9.5*in
  104. .TXT 3 -7 1 27 
  105. a1,27,25,26
  106. Calculate horizontal run:
  107. .EQN 2 6 1 22 
  108. treads:stairs-1
  109. .EQN 2 0 1 21 
  110. run:treads*depth
  111. .EQN 0 23 1 14 
  112. run=?in
  113. .EQN 2 -23 1 25 
  114. run_in:mod(run,1*ft)
  115. .EQN 0 29 1 24 
  116. run_ft:run-run_in
  117. .EQN 2 -29 1 16 
  118. run_ft=?ft
  119. .TXT 0 16 3 3 
  120. a3,3,1,8
  121. \ 
  122. |
  123. /
  124. .TXT 1 5 1 26 
  125. a1,25,23,24
  126. Run, in feet and inches
  127. .EQN 1 -21 1 15 
  128. run_in=?in
  129. .TXT 3 -6 1 22 
  130. a1,22,20,21
  131. Picture of staircase
  132. .EQN 2 7 1 17 
  133. i:1;stairs
  134. .EQN 2 0 2 21 
  135. x[i:(i-1)*depth
  136. .EQN 0 23 2 12 
  137. y[i:i*rh
  138. .EQN 3 -23 20 52 
  139. rise&0L&y[i{1,1,18,45,s}@run&0L&x[i
  140. .EQN 0 53 1 15 
  141. rise=?in
  142. .EQN 2 0 1 14 
  143. run=?in
  144. .EQN 2 0 1 15 
  145. stairs=?
  146. .EQN 2 0 1 15 
  147. rh=?in
  148. .EQN 2 0 1 16 
  149. depth=?in
  150.