Править страницу Ссылки сюда Это старая версия документа! Opx: Opx components Thompson 1982 Oxide end members, Thompson’s (1982) : Fm6O6, Ca2Si2O6, Na4Si2O6, Ti3O6, Si3O6, Al4O6 and Cr4O6. Details Article Recalc method px_putirka Calculated components NaAlSi2O6, FmTiAlSiO6, CrAl2SiO6, FmAl2SiO6, CaFmSi2O6, Fm2Si2O6 Calculate Код 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; comps$X_Fm2Si2O6 <- = ((p$Fe_pfu+p$Mg_pfu+p$Mn_pfu)-comps$X_FmTiAlSiO6-comps$X_FmAl2SiO6-comps$X_CaFmSi2O6)/2; return(comps); } interpmin/opx_thompson.1444135938.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти