home *** CD-ROM | disk | FTP | other *** search
/ The Unsorted BBS Collection / thegreatunsorted.tar / thegreatunsorted / misc / cooling.nlr < prev    next >
Text File  |  1994-01-23  |  2KB  |  107 lines
  1. Title "Time for a Hot Object to Cool";
  2. Variable Time;            // Cooling time in seconds
  3. Variable Temp;            // Temperature of object in degrees farenheit
  4. Constant Roomtemp = 73;        // Ambient (room) temperature was 73 degrees F
  5. Parameter InitTemp;        // Initial temperature of object above room temp
  6. Parameter Coolrate;        // Exponential cooling rate factor
  7. Constrain Coolrate = 1E-8,10;    // Make sure Coolrate is greater than 0
  8. Function Temp = Roomtemp + InitTemp * exp(-Coolrate * Time);
  9. Plot xlabel="Cooling time (seconds)",ylabel="Temperature";
  10. Data;
  11. 0 147.0
  12. 15 146.6
  13. 30 146.2
  14. 45 145.6
  15. 60 145.4
  16. 75 144.8
  17. 90 144.5
  18. 105 144.1
  19. 120 143.9
  20. 135 143.5
  21. 150 143.1
  22. 165 142.8
  23. 180 142.4
  24. 195 142.2
  25. 210 141.8
  26. 225 141.4
  27. 240 141.2
  28. 255 140.7
  29. 270 140.3
  30. 285 139.9
  31. 300 139.7
  32. 315 139.3
  33. 330 138.8
  34. 345 138.6
  35. 360 138.4
  36. 390 137.6
  37. 420 136.9
  38. 450 136.3
  39. 480 135.6
  40. 510 134.9
  41. 540 134.5
  42. 570 134.0
  43. 600 133.6
  44. 630 133.1
  45. 660 133.5
  46. 690 132.1
  47. 720 131.6
  48. 750 131.1
  49. 780 130.7
  50. 810 130.2
  51. 840 129.6
  52. 870 129.1
  53. 900 128.7
  54. 930 128.2
  55. 960 127.6
  56. 990 127.1
  57. 1020 126.6
  58. 1050 126.1
  59. 1080 125.8
  60. 1110 125.1
  61. 1140 124.7
  62. 1170 124.2
  63. 1200 123.8
  64. 1260 122.7
  65. 1320 121.8
  66. 1380 121.1
  67. 1440 120.3
  68. 1500 119.6
  69. 1560 118.8
  70. 1620 118.1
  71. 1680 117.4
  72. 1740 116.8
  73. 1800 116.1
  74. 1860 115.4
  75. 1920 114.7
  76. 1980 114.0
  77. 2040 113.2
  78. 2100 112.7
  79. 2160 111.9
  80. 2220 111.3
  81. 2280 110.5
  82. 2340 110.1
  83. 2400 109.6
  84. 2580 108.1
  85. 2820 106.0
  86. 3000 104.5
  87. 3180 102.6
  88. 3600 100.1
  89. 3840 98.5
  90. 4200 96.0
  91. 4680 93.9
  92. 5040 92.1
  93. 5460 90.2
  94. 5820 88.9
  95. 6180 87.7
  96. 6300 87.3
  97. 7080 84.9
  98. 7500 83.7
  99. 7860 82.8
  100. 8160 82.0
  101. 8640 80.8
  102. 9060 80.1
  103. 9360 79.7
  104. 9840 79.0
  105. 10200 78.6
  106. 10800 77.9
  107.