home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 9 / 09.iso / e / e004 / 1.img / HEATTRAN.MCD < prev    next >
Encoding:
Text File  |  1987-10-23  |  3.4 KB  |  183 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. .TXT 1 1 1 44 
  11. a1,44,42,43
  12. HEAT TRANSFER -- FLAT WALL WITH TWO LAYERS
  13. .TXT 2 2 1 27 
  14. a1,27,25,26
  15. First, define unit system
  16. .EQN 2 6 1 9 
  17. ft~1L
  18. .EQN 0 11 3 9 
  19. in~ft/12
  20. .EQN 0 12 1 10 
  21. sec~1T
  22. .EQN 0 13 1 9 
  23. lb~1M
  24. .TXT 0 10 1 15 
  25. a1,15,13,14
  26. (pounds mass)
  27. .EQN 2 -23 1 15 
  28. hr~3600*sec
  29. .EQN 2 -23 4 17 
  30. g~32.174*ft/sec^2
  31. .EQN 0 23 1 12 
  32. lbf~lb*g
  33. .EQN 0 20 3 21 
  34. Btu~20.031*ft*lbf/sec
  35. .EQN 3 -20 1 20 
  36. J~0.07376*ft*lbf
  37. .EQN 1 -23 3 9 
  38. W~J/sec
  39. .EQN 1 23 1 10 
  40. degF~1
  41. .TXT 0 18 3 26 
  42. a3,26,24,68
  43. (for convenience, define 
  44. Fahrenheit degree as 
  45. dimensionless unit)
  46. .EQN 5 -41 4 28 
  47. σ~1.713*10^-9*Btu/(ft^2*hr*degF)
  48. .TXT 1 31 1 29 
  49. a1,29,27,28
  50. (Stefan-Boltzmann constant)
  51. .TXT 4 -37 1 24 
  52. a1,24,22,23
  53. Parameters of problem:
  54. .EQN 2 6 2 16 
  55. Area:25*ft^2
  56. .TXT 1 24 1 15 
  57. a1,15,13,14
  58. ... wall area
  59. .TXT 2 -25 2 27 
  60. a2,27,25,53
  61. First layer of wall: wood 
  62. -------------------------
  63. .EQN 3 7 1 14 
  64. t1:.25*in
  65. .TXT 0 28 1 15 
  66. a1,15,13,14
  67. ... thickness
  68. .EQN 2 -28 4 23 
  69. h1:4.1*Btu/(hr*ft^2*degF)
  70. .TXT 1 28 1 30 
  71. a1,30,28,29
  72. ... inside convection coeff.
  73. .EQN 4 -28 3 23 
  74. k1:0.06*Btu/(hr*ft*degF)
  75. .TXT 1 28 1 36 
  76. a1,36,34,35
  77. ... conductive coefficient of wood
  78. .EQN 3 -28 1 15 
  79. T0:75*degF
  80. .TXT 0 28 1 32 
  81. a1,32,30,31
  82. ... maximum inside temperature
  83. .TXT 2 -35 2 44 
  84. a2,44,42,87
  85. Second layer of wall: rock-wool insulation 
  86. ------------------------------------------
  87. .EQN 3 7 1 14 
  88. t2:.25*in
  89. .TXT 0 28 1 15 
  90. a1,15,13,14
  91. ... thickness
  92. .EQN 2 -28 4 24 
  93. h2:21.8*Btu/(hr*ft^2*degF)
  94. .TXT 3 28 1 31 
  95. a1,31,29,30
  96. ... outside convection coeff.
  97. .EQN 2 -28 3 24 
  98. k2:0.017*Btu/(hr*ft*degF)
  99. .TXT 1 28 2 31 
  100. a2,31,29,45
  101. ... conductive coefficient of 
  102.     rock-wool
  103. .EQN 3 -28 1 16 
  104. T4:-20*degF
  105. .TXT 0 28 1 33 
  106. a1,33,31,32
  107. ... minimum outside temperature
  108. .TXT 2 -40 1 21 
  109. a1,21,19,20
  110. Compute resistances
  111. .EQN 2 7 3 16 
  112. Rh1:1/(h1*Area)
  113. .TXT 1 30 2 28 
  114. a2,28,26,47
  115. ... convective resistance, 
  116.     inside surface
  117. .EQN 3 -30 3 16 
  118. Rk1:t1/(k1*Area)
  119. .TXT 1 30 2 28 
  120. a2,28,26,45
  121. ... conductive resistance, 
  122.     inside layer
  123. .EQN 3 -30 3 16 
  124. Rk2:t2/(k2*Area)
  125. .TXT 1 30 2 28 
  126. a2,28,26,46
  127. ... conductive resistance, 
  128.     outside layer
  129. .EQN 3 -30 3 16 
  130. Rh2:1/(h2*Area)
  131. .TXT 1 30 2 28 
  132. a2,28,26,46
  133. ... convective resistance, 
  134.     outside layer
  135. .EQN 4 -30 1 31 
  136. Rtot:Rh1+Rk1+Rk2+Rh2
  137. .TXT 0 30 1 22 
  138. a1,22,20,21
  139. ... total resistance
  140. .TXT 2 -40 1 25 
  141. a1,25,23,24
  142. Heat flow, temperatures
  143. .EQN 2 4 3 14 
  144. Q:(T0-T4)/Rtot
  145. .EQN 0 22 3 19 
  146. Q=?Btu/hr
  147. .TXT 1 21 3 26 
  148. a3,26,24,67
  149. ... heat flow at time of 
  150.     maximum temperature  
  151.     difference
  152. .EQN 4 -21 1 14 
  153. T0=?degF
  154. .TXT 0 21 1 32 
  155. a1,32,30,31
  156. ... inside temperature (given)
  157. .EQN 2 -44 1 18 
  158. T1:T0-Q*Rh1
  159. .EQN 0 23 1 18 
  160. T1=?degF
  161. .TXT 0 21 1 32 
  162. a1,32,30,31
  163. ... temperature of inside wall
  164. .EQN 2 -44 1 18 
  165. T2:T1-Q*Rk1
  166. .EQN 0 23 1 18 
  167. T2=?degF
  168. .TXT 0 21 1 32 
  169. a1,32,30,31
  170. ... temperature between layers
  171. .EQN 2 -44 1 18 
  172. T3:T2-Q*Rk2
  173. .EQN 0 23 1 18 
  174. T3=?degF
  175. .TXT 0 21 1 33 
  176. a1,33,31,32
  177. ... temperature of outside wall
  178. .EQN 2 -21 1 15 
  179. T4=?degF
  180. .TXT 0 21 1 33 
  181. a1,33,31,32
  182. ... outside temperature (given)
  183.