Function density(specificgravity As Single, Optional moisturecontent As Single = 12#, Optional waterdensity As Single = 62.43)
' Function to calculate the density of a cubic unit of wood.
' waterdensity must in in the unit desired for output.
' by David R. Larsen, Copyright June 2, 2015
' Creative Commons http://creativecommons.org/licenses/by-nc/3.0/us/
'
' "Specific gravity G  is defined as the ratio of the density of a substance
' to the density of water pw at a specified reference temperature, typically
' 4 C (39 F), where pw  is 1.000 g cm-3(1,000 kg m-3 or 62.43 lb ft-3)." (Wood Handbook)
' Equation from Wood Handbook Chapter 4, page 10-12,  General Technical Report FPL-GTR 190

density = waterdensity * specificgravity * (1 + (moisturecontent / 100#))

End Function