anthracite_code: Form the digital code for anthracite in accordance with GOST...

In coal-coke/coal.state: Classification, basis recalculation and conventional qualimetry of fossil solid fuels

Description

In accordance with GOST 25543 (part 7) form the digital code for anthracite using results of laboratory measurements.

Usage

anthracite_code(r, sok, vnudaf, ar)

Arguments

r	reflectance of vitrinite, [%], measured in accordance with ISO 7404-5. Type: [double].
sok	total volume of all fusinite fractions, [%]. The next fusinite fractions may be considered: inertinite determined in accordance with ISO 7404-3 two thirds of semivitrinite determined in accordance with GOST R 55662 Type: [numeric].
vnudaf	volatile matter volume yield, [cm^3/g], measured in accordance with GOST 7303. Type: [double].
ar	anisotropy of vitrinite reflectance, [%], calculated in accordance with formula 4 in GOST R 55659. Type: [double].

Value

Digital code according to Part 7 of GOST 25543. Type: [character].

Examples

# Consider two samples of anthracite with the next laboratory
# measurement results:
r0   <- c(3.51, 3.64)
sok  <- c(12, 2)
vnudaf <- c(270.3, 174.6)
ar <- c(0, 46.8)

x <- anthracite_code(r0, sok, vnudaf, ar)
print(x)
# [1] "3512020" "3601540"

# Unit test:
stopifnot(
  x %in% with(coal.state:::g25543db()$anthracite, {
    c(
      S1ABx$code, S2ABx$code
    )
  })
)

coal-coke/coal.state documentation built on Feb. 12, 2021, 10:02 a.m.