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

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