Opx: Opx components Thompson 1982

Oxide end members, Thompson’s (1982) : Fm6O6, Ca2Si2O6, Na4Si2O6, Ti3O6, Si3O6, Al4O6 and Cr4O6.

source('recalc_px_putirka.r');

interpmin.opx_thompson <- function (wtp_data, ...)
{
p <- recalc.px_putirka(wtp_data);
comps <- data.frame(Name=p$Name);

comps$X_NaAlSi2O6 <- p$Na_pfu;
comps$X_FmTiAlSiO6 <- p$Ti_pfu;
comps$X_CrAl2SiO6 <- p$Cr_pfu;
comps$X_FmAl2SiO6 <- p$Al_6_pfu - comps$X_NaAlSi2O6 - comps$X_CrAl2SiO6;
comps$X_CaFmSi2O6 <- p$Ca_pfu;


return(comps);
}