young engineer
Board Regular
- Joined
- Mar 3, 2009
- Messages
- 100
Hi All
My final function (bold) is using all the preceding functions to calculate and run. The function is extremely long, I would like to know if there is an easier way to write my last function. <!-- / message -->
Function brixcor(Brix)
A = 0.006222
B = 0.00023725
C = -0.0000018165
D = 0.000000018906
E = 0.00002328
brixcor = A * Brix + B * Brix ^ 2 + C * Brix ^ 3 + D * Brix ^ 4 + E * Brix ^ 2
End Function
Function brixFG(brixcor, dil)
brixFG = brixcor + dil
End Function
Function bxcorr2(brixFG, SG)
bxcorr2 = brixFG * SG
End Function
Function SG(dil)
SG = 1 + [(dil ^ 2 + 200 * dil) / 54000]
End Function
Function Gdil(bxcorr2, fruc)
Gdil = bxcorr2 - fruc
End Function
Function fruc(bxcorr2, angle1)
A = 52.5
B = 143.8
C = 50
fruc = ((A * bxcorr2) / B) - ((C * angle1) / B)
End Function
Function Frucpurity(Brix, dil, angle1)
Frucpurity = (fruc(bxcorr2(brixFG(brixcor(Brix), dil), SG(dil)), angle1) / bxcorr2(brixFG(brixcor(Brix), dil), SG(dil))) * 100
End Function
My final function (bold) is using all the preceding functions to calculate and run. The function is extremely long, I would like to know if there is an easier way to write my last function. <!-- / message -->
Function brixcor(Brix)
A = 0.006222
B = 0.00023725
C = -0.0000018165
D = 0.000000018906
E = 0.00002328
brixcor = A * Brix + B * Brix ^ 2 + C * Brix ^ 3 + D * Brix ^ 4 + E * Brix ^ 2
End Function
Function brixFG(brixcor, dil)
brixFG = brixcor + dil
End Function
Function bxcorr2(brixFG, SG)
bxcorr2 = brixFG * SG
End Function
Function SG(dil)
SG = 1 + [(dil ^ 2 + 200 * dil) / 54000]
End Function
Function Gdil(bxcorr2, fruc)
Gdil = bxcorr2 - fruc
End Function
Function fruc(bxcorr2, angle1)
A = 52.5
B = 143.8
C = 50
fruc = ((A * bxcorr2) / B) - ((C * angle1) / B)
End Function
Function Frucpurity(Brix, dil, angle1)
Frucpurity = (fruc(bxcorr2(brixFG(brixcor(Brix), dil), SG(dil)), angle1) / bxcorr2(brixFG(brixcor(Brix), dil), SG(dil))) * 100
End Function