====== Spl: TPF, 1991 ======

Пересчет на 4 атома кислорода, коррекция на 3 катиона.

==== Details ====

^ Reference | [[:about_tpf|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 |

<use:recalc.spl_tpf_realc0>
<test:recalc.spl_tpf_realc0>

<WRAP center round todo 60%>
  * заголовок
  * краткое описание
  * <del>статья</del>
  * <del>ссылка</del>
  * <del>карточка</del>
  * подробное описание
  * <del>код</del>
  * тест
</WRAP>

==== Source ====
<Code linenums lang-r>
source('utilities_tpf.r');

recalc.spl_tpf_realc0 <- function (wtp_data, ...)
{
return(tpf.recalc_minaral("SPL",wtp_data));
}

recalc.spl_tpf_realc0.test <- function () {

  src <- data.frame(Name='test',SiO2_wtp=c(46.920, 45.230), TiO2_wtp=c(0.500, 0.640), Al2O3_wtp=c(29.430, 30.630),
  FeO_wtp=c(3.610, 4.220), MnO_wtp=c(0.180, 0.010), MgO_wtp=c(2.280, 1.490), CaO_wtp=c(0.0, 0.270), Na2O_wtp=c(0.640, 0.690), K2O_wtp=c(9.330,9.470));
 
  result <- recalc.spl_tpf_realc0 (src);
  print(result);
}
</Code>

{{tag> order71}}