Ol: MacGregor, 2015

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

FeO only.

Details

Reference	Ian D. MacGregor Empirical geothermometers and geothermobarometers for spinel peridotite phase assemblages, 2015 [ref]
Input	SiO2_wtp, TiO2_wtp, Al2O3_wtp, Cr2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, NiO_wtp, CaO_wtp, Na2O_wtp, K2O_wtp
Output	Si_pfu, Ti_pfu, Al_pfu, Cr_pfu, Fe_pfu, Mn_pfu, Mg_pfu, Ni_pfu, Ca_pfu, Na_pfu, K_pfu

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

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

Source

recalc.ol_macgreg <- function (wtp_data, ...) {

nms  =c('SiO2_wtp', 'TiO2_wtp', 'Al2O3_wtp', 'Cr2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'NiO_wtp', 'CaO_wtp', 'Na2O_wtp', 'K2O_wtp');
wct  =c(    15.021,      19.97,     16.9935,     25.3317,    35.923,    35.469,    20.156,    29.347,     28.04,    30.9895,   47.098);
hd   =c(         4,          4,           3,           3,         2,         2,         2,         2,         2,          1,        1);

ds <- selectNames(wtp_data, nms);
dsDiv <- rowApply('/', ds, wct);
dDiv <- rowSums(dsDiv)*hd;
dRes <-  8*rowApply('/', ds, wct) / dDiv;

return(dRes);
}

recalc.ol_macgreg.test <- function () {
}