Generate a matrix of Standing-Katz pseudo-reduced pressure and tenperature by giving vector values

getStandingKatzMatrix(ppr_vector = NULL, tpr_vector = NULL,
  pprRange = "lp")

Arguments

ppr_vector

a vector of pseudo-reduced pressure

tpr_vector

a vector of pseudo-reduced temperatures

pprRange

Takes one of two values: "lp": low pressure, or "hp" for high pressure. Default: "lp"

Examples

# if we want to know all digitized values of Ppr at a Tpr curve tpr_vec <- c(2.0) getStandingKatzMatrix(tpr_vector = tpr_vec, pprRange = "lp")
#> 0.3 0.4 0.5 0.7 0.8 1 1.2 1.5 1.6 1.8 2 2.1 #> [1,] 0.989 0.985 0.982 0.977 0.974 0.969 0.963 0.956 0.954 0.95 0.947 0.945 #> 2.2 2.5 2.9 3 3.1 3.5 3.6 3.8 4 4.4 4.5 4.6 #> [1,] 0.944 0.941 0.937 0.937 0.937 0.937 0.937 0.938 0.939 0.944 0.945 0.947 #> 5 5.1 5.4 5.5 5.7 6 6.3 6.5 6.8 7 7.2 7.5 #> [1,] 0.955 0.957 0.966 0.969 0.976 0.986 0.996 1.003 1.014 1.021 1.028 1.039 #> 8 #> [1,] 1.059
# or to extract at a Ppr=1.5 getStandingKatzMatrix(tpr_vector = tpr_vec, pprRange = "lp")[1, "1.5"]
#> 1.5 #> 0.956
# for two vectors ppr <- c(0.5, 1.5, 2.5, 3.5, 4.5, 5.5, 6.5) tpr <- c(1.3, 1.5, 1.7, 2) sk <- getStandingKatzMatrix(ppr_vector = ppr, tpr_vector = tpr) print(sk)
#> 0.5 1.5 2.5 3.5 4.5 5.5 6.5 #> 1.30 0.916 0.756 0.638 0.633 0.684 0.759 0.844 #> 1.50 0.948 0.859 0.794 0.770 0.790 0.836 0.892 #> 1.70 0.968 0.914 0.876 0.857 0.864 0.897 0.942 #> 2.00 0.982 0.956 0.941 0.937 0.945 0.969 1.003