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

format A 26 2 0
format C 10 3 0
hide 205
hide 206
hide 207
define "Extr" B75
define "TTT" B88
define "SGR" B89
define "FSG" B105
define "OSG" B104
define "Woz" B179
define "aaa" B205
define "bbb" B206
define "ccc" B207
define "HRF" B203
define "Util" B202
define "GrF" B200
define "TmF" B201
define "BoG" B199
define "CoF" B198
define "FiF" B191
define "BagF" B189
define "PeF" B187
define "YeF" B185
define "IBU" B208
define "Elev" B184
define "Vol" B182
define "BVol" B181
define "AAp" B180
define "OrSG" B183
define "CAF" B204
define "OEx" B109
define "AEx" B110
define "REx" B111
define "Alcw" B116
define "VolB" B131
define "Temp" B132
define "CDv" B133
define "SpG" B62
leftstring A0 = "    Deduced Original Specific Gravity Calculation"
leftstring A1 = "    ---------------------------------------------"
leftstring A3 = "Entered Values"
rightstring B3 = "SG"
rightstring C3 = "Volume"
leftstring A4 = "--------------"
rightstring B4 = "--"
rightstring C4 = "------"
leftstring A5 = "First addition:"
let B5 = 1.05
fmt B5 "0.0000"
let C5 = 1
leftstring A6 = "Second addition:"
let B6 = 1.1
fmt B6 "0.0000"
let C6 = 0.3
leftstring A7 = "Third addition:"
fmt B7 "0.0000"
leftstring A8 = "Fourth addition:"
fmt B8 "0.0000"
leftstring A9 = "Fifth addition:"
fmt B9 "0.0000"
leftstring A10 = "Sixth addition:"
fmt B10 "0.0000"
leftstring A11 = "----------------------------------------------"
leftstring A13 = "Calculated Values"
leftstring A14 = "-----------------"
leftstring A15 = "Deduced original values:"
let B15 = ((B5-1)*C5+(B6-1)*C6+(B7-1)*C7+(B8-1)*C8+(B9-1)*C9+(B10-1)*C10)/C15+1
fmt B15 "0.0000"
let C15 = @sum(C4:C11)
leftstring A17 = "====================================================="
leftstring A19 = "    Beer Color Estimation "
leftstring A20 = "    ---------------------"
leftstring A22 = "Entered Values"
leftstring A23 = "--------------"
leftstring A24 = "Gallons of wort:"
let B24 = 9.5
leftstring A26 = "Malt Additions"
rightstring B26 = "Lovibond"
rightstring C26 = "Pounds"
leftstring A27 = "--------------"
rightstring B27 = "--------"
rightstring C27 = "------"
leftstring A28 = "First malt:"
let B28 = 1.8
let C28 = 20
leftstring A29 = "Second malt:"
let B29 = 10
let C29 = 1
leftstring A30 = "Third malt:"
let B30 = 75
let C30 = 1
leftstring A31 = "Fourth malt:"
leftstring A32 = "Fifth malt:"
leftstring A33 = "Sixth malt:"
leftstring A34 = "----------------------------------------------"
leftstring A36 = "Calculated Values"
leftstring A37 = "-----------------"
leftstring A38 = "Total Malt Color Units:"
let B38 = (B28*C28+B29*C29+B30*C30+B31*C31+B32*C32+B33*C33)/B24
leftstring C38 = " MCU"
leftstring A39 = "Predicted Color:"
let B39 = B38*0.2+8.4
fmt B39 "0.0"
leftstring C39 = " SRM"
leftstring A40 = "Color Range:"
let B40 = B38*13/50+4
fmt B40 "( 0.0"
let C40 = B38*8/50+13
fmt C40 " -  0.0 "
leftstring D40 = ") SRM"
leftstring A42 = "Color"
leftstring C42 = "Range"
leftstring A43 = "-----"
leftstring C43 = "-----"
leftstring A44 = "Straw"
let B44 = 1
fmt B44 "( 0.0"
let C44 = 4
fmt C44 " -   0.0 "
leftstring D44 = ") SRM"
leftstring A45 = "Pale"
let B45 = 4
fmt B45 "( 0.0"
let C45 = 7
fmt C45 " -   0.0 "
leftstring D45 = ") SRM"
leftstring A46 = "Light Amber"
let B46 = 7
fmt B46 "( 0.0"
let C46 = 9
fmt C46 " -   0.0 "
leftstring D46 = ") SRM"
leftstring A47 = "Amber"
let B47 = 9
fmt B47 "( 0.0"
let C47 = 12
fmt C47 " -  0.0 "
leftstring D47 = ") SRM"
leftstring A48 = "Dark Amber"
let B48 = 12
fmt B48 "( 0.0"
let C48 = 14
fmt C48 " -  0.0 "
leftstring D48 = ") SRM"
leftstring A49 = "Copper"
let B49 = 14
fmt B49 "( 0.0"
let C49 = 17
fmt C49 " -  0.0 "
leftstring D49 = ") SRM"
leftstring A50 = "Light Brown"
let B50 = 17
fmt B50 "( 0.0"
let C50 = 20
fmt C50 " -  0.0 "
leftstring D50 = ") SRM"
leftstring A51 = "Brown"
let B51 = 20
fmt B51 "( 0.0"
let C51 = 27
fmt C51 " -  0.0 "
leftstring D51 = ") SRM"
leftstring A52 = "Black"
let B52 = 27
fmt B52 "( 0.0"
let C52 = 35
fmt C52 " -  0.0 "
leftstring D52 = ") SRM"
leftstring A53 = "Opaque"
let B53 = 35
fmt B53 "( 0.0"
leftstring C53 = "  -  inf  )"
leftstring D53 = ") SRM"
leftstring A55 = "====================================================="
leftstring A57 = "    Specific Gravity to Extract Calculation"
leftstring A58 = "    ---------------------------------------"
leftstring A60 = "Entered Values"
leftstring A61 = "--------------"
leftstring A62 = "Specific Gravity:"
let SpG = 1.07
fmt SpG "0.0000"
leftstring A64 = "Calculated Values"
leftstring A65 = "-----------------"
leftstring A66 = "Extract:"
let B66 = -668.962+1262.45*SpG-776.43*SpG*SpG+182.94*SpG*SpG*SpG
leftstring C66 = " Plato"
leftstring A68 = "====================================================="
leftstring A70 = "    Extract to Specific Gravity Calculation"
leftstring A71 = "    ---------------------------------------"
leftstring A73 = "Entered Values"
leftstring A74 = "--------------"
leftstring A75 = "Extract:"
let Extr = 17.03
leftstring C75 = " Plato"
leftstring A77 = "Calculated Values"
leftstring A78 = "-----------------"
leftstring A79 = "Specific Gravity:"
let B79 = 1.00001+0.0038661*Extr+1.3488e-05*Extr*Extr+4.3074e-08*Extr*Extr*Extr
fmt B79 "0.0000"
leftstring A81 = "====================================================="
leftstring A83 = "    Specific Gravity Temperature Correction"
leftstring A84 = "    ---------------------------------------"
leftstring A86 = "Entered Values"
leftstring A87 = "--------------"
leftstring A88 = "Temperature:"
let TTT = 57
fmt TTT "0"
leftstring C88 = " F"
leftstring A89 = "Specific Gravity Reading:"
fmt A89 "0.0000"
let SGR = 1.06
fmt SGR "0.0000"
leftstring A91 = "Calculated Values"
leftstring A92 = "-----------------"
leftstring A93 = "Specific Gravity,"
leftstring A94 = "  corrected to 60F:"
let B94 = SGR*(1.00130346-0.000134722124*TTT+2.04052596e-06*TTT*TTT-2.32820948e-09*TTT*TTT*TTT)
fmt B94 "0.0000"
leftstring A96 = "====================================================="
leftstring A98 = "    Extract, Attenuation, Alcohol"
leftstring A99 = "    Content and Calorie Calculation"
leftstring A100 = "    -------------------------------"
leftstring A102 = "Entered Values"
leftstring A103 = "--------------"
leftstring A104 = "Original Specific Gravity:"
let OSG = 1.052
fmt OSG "0.000"
leftstring A105 = "Final Specific Gravity:"
let FSG = 1.009
fmt FSG "0.000"
leftstring A107 = "Calculated Values"
leftstring A108 = "-----------------"
leftstring A109 = "Original Extract:"
let OEx = -668.962+1262.45*OSG-776.43*OSG*OSG+182.94*OSG*OSG*OSG
leftstring C109 = " Plato"
leftstring A110 = "Apparent Extract:"
let AEx = -668.962+1262.45*FSG-776.43*FSG*FSG+182.94*FSG*FSG*FSG
leftstring C110 = " Plato"
leftstring A111 = "Real Extract:"
let REx = ((0.22+0.001*OEx)*OEx+AEx)/(1+0.22+0.001*OEx)
leftstring C111 = " Plato"
leftstring A113 = "Apparent Attenuation:"
let B113 = (OEx-AEx)/OEx*100
leftstring C113 = " %"
leftstring A114 = "Real Attenuation:"
let B114 = (OEx-REx)/OEx*100
leftstring C114 = " %"
leftstring A116 = "Alcohol by Weight:"
let Alcw = (OEx-REx)/(2.0665-0.010665*OEx)
leftstring C116 = " %"
leftstring A117 = "Alcohol by Volume:"
let B117 = Alcw*FSG/0.794
leftstring C117 = " %"
leftstring A119 = "Calories (Alcohol):"
let B119 = 3.55*FSG*7.1*Alcw
leftstring A120 = "Calories (Extract):"
let B120 = 3.55*FSG*3.8*REx
leftstring A121 = "Calories (Protein):"
let B121 = 3.55*FSG*4*0.07*REx
leftstring A122 = "Total Calories:"
let B122 = @sum(B119:B121)
leftstring A124 = "====================================================="
leftstring A126 = "    Priming Sugar Calculation"
leftstring A127 = "    -------------------------"
leftstring A129 = "Entered Values"
leftstring A130 = "--------------"
leftstring A131 = "Volume of beer:"
let VolB = 5.2
leftstring C131 = " gallons"
leftstring A132 = "Temperature of beer:"
let Temp = 64
fmt Temp "0"
leftstring C132 = " F"
leftstring A133 = "Desired volumes of CO2:"
let CDv = 2.3
leftstring A135 = "Calculated Values"
leftstring A136 = "-----------------"
leftstring A137 = "Priming sugar:"
let B137 = 15.195*VolB*(CDv-3.0378+0.050062*Temp-0.00026555*Temp*Temp)
leftstring C137 = " grams"
leftstring A139 = "====================================================="
leftstring A141 = "    Yield Calculation"
leftstring A142 = "    -----------------"
leftstring A144 = "Entered Values"
leftstring A145 = "--------------"
leftstring A146 = "Number of 12-oz bottles:"
let B146 = 15.5
leftstring A147 = "Number of mini-kegs:"
let B147 = 3
leftstring A148 = "Number of champagne bottles:"
leftstring B148 = "s:"
let B148 = 0
leftstring A149 = "Number of 16-oz bottles:"
let B149 = 0
leftstring A150 = "Number of 18.7-oz bottles:"
let B150 = 0
leftstring A151 = "  (big Sam Smith's)"
leftstring A153 = "Calculated Values"
leftstring A154 = "-----------------"
leftstring A155 = "Yield:"
let B155 = (B146*12+B147*169+B148*25.6+B149*16+B150*18.7)/128
leftstring C155 = " gallons"
leftstring A157 = "====================================================="
leftstring A159 = "    Degrees of Extract"
leftstring A160 = "    ------------------"
leftstring A162 = "Entered Values"
leftstring A163 = "--------------"
leftstring A164 = "Original Specific Gravity:"
let B164 = 1.052
fmt B164 "0.000"
leftstring A165 = "Volume of Wort:"
let B165 = 9.5
leftstring C165 = " gallons"
leftstring A166 = "Weight of Grain:"
let B166 = 22.57
leftstring C166 = " pounds"
leftstring A168 = "Calculated Values"
leftstring A169 = "-----------------"
leftstring A170 = "Degrees of Extract:"
let B170 = (B164-1)*1000*B165/B166
leftstring C170 = " pts/(lb/gal)"
leftstring A172 = "====================================================="
leftstring A174 = "    Hop Bittering Unit Calculation"
leftstring C174 = "(Unfinished)"
leftstring A175 = "    ------------------------------"
leftstring A177 = "Entered Values"
leftstring A178 = "--------------"
leftstring A179 = "Hop Weight:"
let Woz = 2
leftstring C179 = " ounces"
leftstring A180 = "Alpha Acid Content:"
let AAp = 5.1
leftstring C180 = " %"
leftstring A181 = "Boil Volume:"
let BVol = 12
leftstring C181 = " gallons"
leftstring A182 = "Final Volume:"
let Vol = 11.5
leftstring C182 = " gallons"
leftstring A183 = "Original Specific Gravity:"
let OrSG = 1.075
fmt OrSG "0.000"
leftstring A184 = "Elevation:"
let Elev = 7365
fmt Elev "0"
leftstring C184 = " feet"
leftstring A185 = "Yeast factor:"
let YeF = 1
leftstring C185 = " (.95 for fast flocculation, "
leftstring C186 = " 1.05 for slow flocculation)"
leftstring A187 = "Pellet factor:"
let PeF = 1
leftstring C187 = " (1.0 for leaf, .9 for pellets "
leftstring C188 = " boiled less than 30 minutes)"
leftstring A189 = "Bag factor:"
let BagF = 1
leftstring C189 = " (1.0 for no bag, 1.1 for loose"
leftstring C190 = " bag, 1.2 for stuffed bag)"
leftstring A191 = "Filter factor:"
let FiF = 1
leftstring C191 = " (1.0 for no filtration, up"
leftstring C192 = " to 1.025 for filtration)"
leftstring A193 = "Tinseth calculation only:"
leftstring A194 = "Boil Time:"
let B194 = 5
leftstring C194 = " minutes"
leftstring A196 = "Calculated Values"
leftstring A197 = "-----------------"
leftstring A198 = "Concentration factor:"
let CoF = Vol/BVol
fmt CoF "0.000"
leftstring A199 = "Boil Gravity:"
let BoG = CoF*(OrSG-1)+1
fmt BoG "0.000"
leftstring A200 = "Gravity factor:"
let GrF = @max(1,(BoG-1.05)*5+1)
fmt GrF "0.000"
leftstring A201 = "Temperature factor:"
let TmF = Elev/27500+1
fmt TmF "0.000"
leftstring A202 = "Utilization:"
let Util = 30
leftstring C202 = " %"
leftstring D202 = "<- Need to make a formula for this"
leftstring A203 = "Hopping rate factor:"
let HRF = CoF*IBU/260+1
fmt HRF "0.000"
leftstring A204 = "Combined Adjustment factor:"
let CAF = GrF*TmF*HRF*YeF*PeF*BagF*FiF
leftstring A205 = "a:"
let aaa = Vol*GrF*TmF*YeF*PeF*BagF*FiF*CoF/260
leftstring A206 = "b:"
let bbb = Vol*GrF*TmF*YeF*PeF*BagF*FiF
leftstring A207 = "c:"
let ccc = -Woz*Util*AAp*0.749
leftstring A208 = "Bittering:"
let IBU = (-bbb+@sqrt(bbb*bbb-4*aaa*ccc))/(2*aaa)
leftstring C208 = " IBUs"
leftstring A209 = "Overall utilization:"
let B209 = Util/CAF
leftstring C209 = " %"
leftstring A211 = "Tinseth calculation:"
leftstring A212 = "Utilization:"
let B212 = 1.65*@pow(0.000125,BoG-1)*(1-@exp(-0.04*B194))/4.15*100
leftstring C212 = " %"
leftstring A213 = "Bittering:"
let B213 = B212*AAp*Woz*0.749/Vol
leftstring C213 = " IBUs"
leftstring A215 = "====================================================="
goto B213