# This data file was generated by the Spreadsheet Calculator.
# You almost certainly shouldn't edit it.

format A 22 0 0
format B 15 8 0
format C 15 8 0
hide 23
hide 25
hide 26
hide 32
hide 34
hide 35
mdir ""
leftstring A0 = "Wort Chiller calculations"
leftstring A2 = "Instructions: Enter the desired input values, under the MKS units"
leftstring A3 = "column. Then, iterate on the guessed velocity until it matches"
leftstring A4 = "the velocity under the turbulent section. Then, use the turbulent"
leftstring A5 = "numbers if Re > 2300, and use the laminar numbers if Re < 2300."
leftstring A6 = "In general, I have found that the results are close no matter"
leftstring A7 = "which method is used. (Some rows have been hidden to improve"
leftstring A8 = "readability.)"
rightstring B10 = "MKS units"
rightstring C10 = "English units"
leftstring A11 = "Input values:"
leftstring A12 = "Tube diameter ="
let B12 = 0.0127
let C12 = B12/2.54*100
leftstring D12 = " inches"
leftstring A13 = "Siphon Height ="
let B13 = 0.5
let C13 = B13/2.54*100
leftstring D13 = " inches"
leftstring A14 = "Tube Length ="
let B14 = 9
let C14 = B14/2.54*100/12
leftstring D14 = " feet"
leftstring A15 = "Initial Temp ="
let B15 = 100
let C15 = B15*1.8+32
leftstring D15 = " F"
leftstring A16 = "Bath Temp = "
let B16 = 0
let C16 = B16*1.8+32
leftstring D16 = " F"
leftstring A17 = "----------------------------------------------------------------"
leftstring A18 = "Calculated values (Turbulent):"
leftstring A19 = "Final Temp ="
let B19 = B16-(B16-B15)*@exp(-@min(B25*B14,700))
let C19 = B19*1.8+32
leftstring D19 = " F"
leftstring A20 = "Velocity ="
let B20 = @sqrt(2*B42*B13/(1+0.184*B14/B12*@pow(B26,-0.2)))
let C20 = B20/2.54*100/12
leftstring D20 = " ft/second"
leftstring A21 = "Guessed velocity ="
let B21 = 0.59165243
let C21 = B21/2.54*100/12
leftstring D21 = " ft/second"
leftstring A22 = "Reynolds number ="
let B22 = B38*B20*B12/B41
leftstring A23 = "Prandtl number ="
let B23 = B39*B41/B40
leftstring A24 = "Heat Transfer Coeff ="
let B24 = 0.023*@pow(B22,0.8)*@pow(B23,0.4)*B40/B12
leftstring A25 = "Exponent ="
let B25 = 4*B24/B38/B20/B12/B39
leftstring A26 = "Guessed Re ="
let B26 = B38*B21*B12/B41
leftstring A27 = "----------------------------------------------------------------"
leftstring A28 = "Calculated values (Laminar):"
leftstring A29 = "Final Temp ="
let B29 = B16-(B16-B15)*@exp(-@min(B34*B14,700))
let C29 = B29*1.8+32
leftstring D29 = " F"
leftstring A30 = "Velocity ="
let B30 = -B35+@sqrt(B35*B35+2*B42*B13)
let C30 = B30/2.54*100/12
leftstring D30 = " ft/second"
leftstring A31 = "Reynolds number ="
let B31 = B38*B30*B12/B41
leftstring A32 = "Prandtl number ="
let B32 = B39*B41/B40
leftstring A33 = "Heat Transfer Coeff ="
let B33 = 0.023*@pow(B31,0.8)*@pow(B32,0.4)*B40/B12
leftstring A34 = "Exponent ="
let B34 = 4*B33/B38/B30/B12/B39
leftstring A35 = "Temporary value = "
let B35 = 32*B41*B14/B38/B12/B12
leftstring A36 = "----------------------------------------------------------------"
leftstring A37 = "Constants:"
leftstring A38 = "Density ="
let B38 = 1050
leftstring A39 = "Specific Heat ="
let B39 = 4180
leftstring A40 = "Thermal Conductivity ="
let B40 = 0.65
leftstring A41 = "Viscosity ="
let B41 = 0.003
leftstring A42 = "Gravity ="
let B42 = 9.8
goto B19