Calculate the concrete Temperature

[shakti255]

Please calculate the theoretical concrete temperature for the below mix design using ACI 305 equations and send to me.



Use the equation A1,

MIX without Ice

Material​	Design Mass, Kg/m3​	Individual Material Temp , °C​	Water Absorption, %​	Moisture Content, %​	Comments​
20mm Aggregate	620​	33.8​	0.5​	0.1​	​
10mm Aggregate	340​	34.2​	0.5​	0.1​	​
0-5mm Aggregate	580​	30.8​	0.4​	3.1​	​
Dune Sand	270​	32.6​	0.7​	1.1​	​
Cement (OPC+GGBS+MS)	450​	55.6​	--​	--​	​
Water	153​	11.8​	--​	--​	​
Ice	0​	--​	--​	--​	​
Admixture G119	4.0​	--​	--​	--​	​
Total​	2417​	--​	--​	--​	​

 

[Rhodie72]

This is a homework question for civil engineering, mate. We are not all capabale of answering this effectively without you telling us what each variable is related to. Fortunately I am vaguely familiar with how civil engineering equations work. Unfortunately I have never seen this equation before so I have no idea what each variable relates to, so here is how we understand what the variables represent:
Ta= Temperature of Aggregate
Wa=Weight of Aggregate
Tc= Temperature of Cement
Wc=Weight of Cement
Tw= Temperature of Water
Ww=Weight of Water
Ta= Temperature of
Wwa=Weight of Water + Aggreagte

If that assumption is incorrect then the VBA code will be wrong.

Sub Theoretical_Concrete_Temp()

    Dim Denominator As Long, i As Integer, Numerator As Long, ValueCheck As Variant, _
        T, Ta, Tc, Tw, _
        Wa, Wc, Ww, Wwa
    
0:    Ta = InputBox("Temperature of Aggregate?", "Theoretical concrete temperature", Ta)
1:    Wa = InputBox("Weight of Aggregate", "Theoretical concrete temperature", Wa)
2:    Tc = InputBox("Temperature of Cement", "Theoretical concrete temperature", Tc)
3:    Wc = InputBox("Weight of Cement", "Theoretical concrete temperature", Wc)
4:    Tw = InputBox("Temperature of Water", "Theoretical concrete temperature", Tw)
5:    Ww = InputBox("Weight of Water", "Theoretical concrete temperature", Ww)
6:    Wwa = InputBox("Weight of Water + Aggreagte", "Theoretical concrete temperature", Wwa)
    
    ValueCheck = Array(Ta, Wa, Tc, Wc, Tw, Ww, Wa, Wwa)
    For i = 0 To 7
        If ValueCheck(i) = 0 Then GoTo 0
    Next i
    
    Numerator = 0.22 * (Ta * Wa + Tc * Wc) + Tw * Ww + Ta * Tw
    Denominator = 0.22 * (Wa + Wc) + Ww + Wwa
    T = Round(Numerator / Denominator, 5)
    MsgBox "Calculated theoretical concrete temperature for the mix design using ACI 305 equations" & Chr(10) & _
    "T= " & T, vbApplicationModal + vbInformation, "Homework cheatcode"
End Sub

 

[shakti255]

 

[Fluff]

@shakti255 in future please do not mark a post as the solution when it does not contain one. Thanks