brown_code: Form the digital code for brown coals 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 brown coal using results of laboratory measurements.

Usage

brown_code(r, sok, wmaxaf, tscdaf)

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].
wmaxaf	maximum moisture-holding capacity, [%], measured in accordance with ISO 1018. Type: [double].
tscdaf	yield of tar, [%], measured in accordance with ISO 647 and recalculated on dry ash-free basis. Type: [double].

Value

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

Examples

 # Consider four samples of brown coals with the next laboratory
 # measurement results:
 r0   <- c(.24, .39, .43, .56)
 sok  <- c(6, 78, 47, 79)
 wmaxaf <- c(53.4, 63.9, 19.2, 24.6)
 tscdaf <- c(7.2, 20.9, 5.3, 11.7)

 x <- brown_code(r0, sok, wmaxaf, tscdaf)
 print(x)
 # [1] "0205005" "0376020" "0441005" "0572010"

 # Unit test:
 stopifnot(
   x %in% c(
     coal.state:::g25543db()$brown$G1Ex$code,
     coal.state:::g25543db()$brown$S3EFx$code
   )
 )

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