surf_tens_water: Water Surface Tension for Liquid Water

In iemisc: Irucka Embry's Miscellaneous Functions

Water Surface Tension for Liquid Water

Description

This function solves for the surface tension of water using only the temperature of the water in either units of degrees Celsius, degrees Fahrenheit, or Kelvin.

Usage

surf_tens_water(Temp, units = c("SI", "Eng", "Absolute"))

Arguments

Temp	numeric vector that contains the temperature (degrees Celsius, degrees Fahrenheit, or Kelvin)
units	character vector that contains the system of units (options are SI for International System of Units, Eng for English units (United States Customary System in the United States and Imperial Units in the United Kingdom), or Absolute for Absolute Units)

Details

The simplified equation is expressed as

\\sigma = \frac{1}{a + bT + cT^2 + dT^3}

with

a = 0.075652711

b = -0.00013936956

c = -3.0842103 * 10 ^ -7

d = 2.7588435 * 10 ^ -10

\sigma

Water Surface Tension (N/m or lbf/ft)

T

the water temperature, degrees Celsius

Value

the surface tension as a numeric vector. The units are not returned.

Author(s)

Irucka Embry

References

C. O. Popiel & J. Wojtkowiak (1998). "Simple Formulas for Thermophysical Properties of Liquid Water for Heat Transfer Calculations (from 0C to 150C)". Heat Transfer Engineering, 19:3, 87-101, article from ResearchGate: https://www.researchgate.net/publication/239243539_Simple_Formulas_for_Thermophysical_Properties_of_Liquid_Water_for_Heat_Transfer_Calculations_from_0C_to_150C.

Examples

# Example (Compare to the tabulated values in the Reference paper)

install.load::load_package("iemisc", "data.table", "round")

Temp <- c(0, 0.01, 3.86, seq(5, 95, by = 5), 99.974, seq(100, 150, by = 5))

surface_tension <- data.table("Temperature (degrees C)" = Temp, "omega (N / m)"
= round_r3(surf_tens_water(Temp, units = "SI"), d = 5)); surface_tension

iemisc documentation built on Sept. 25, 2023, 5:09 p.m.