Ms: TPF, 1991

Это старая версия документа!

Пересчет на 11 атомов кислорода, 4 иона в IV координации.

Details

Reference	TPF
Input	SiO2_wtp, Al2O3_wtp, TiO2_wtp, Cr2O3_wtp, Fe2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp, BaO_wtp, NiO_wtp, ZnO_wtp, BeO_wtp, P2O5_wtp, V2O5_wtp, CoO_wtp, GeO2_wtp, ZrO2_wtp, Cs2O_wtp, PbO_wtp, SO3_wtp, CO2_wtp, F_wtp, Cl_wtp
Output	Fe_p3_pfu, Fe_p2_pfu, Al_c4_pfu, Al_c6_pfu

Использовать Проверить

заголовок
краткое описание
~~статья~~
~~ссылка~~
~~карточка~~
подробное описание
~~код~~
тест

Source

source('utilities_tpf.r')

recalc.ms_tpf_realc0 <- function (wtp_data, ...)
{
rn <- tpf.rename(wtp_data);
clk <- tpf.omesod(rn,11,4);
return(tpf.unrename(clk,wtp_data$Name));
}

recalc.ms_tpf_realc0.test <- function () {
  src <- data.frame(Name='test',SiO2_wtp=46.920, TiO2_wtp=0.500, Al2O3_wtp=29.430,
  FeO_wtp=3.610, MnO_wtp=0.180, MgO_wtp=2.280, Na2O_wtp=0.640, K2O_wtp=9.330);
 
  src <- rbind(src,src);
  
  result <- recalc.ms_tpf_realc0 (src);
 
  expect_equal(object = result$Si_pfu, 3.231, tolerance = 0.05);
  expect_equal(object = result$Al_pfu, 2.388, tolerance = 0.05);
  expect_equal(object = result$Al_c6_pfu, 1.619, tolerance = 0.05);
}

order71