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