Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
interpmin:opx_thompson [2015/10/06 12:53] admin |
interpmin:opx_thompson [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Opx: Opx components Thompson 1982 ====== | + | ====== Opx: Opx components, Thompson, 1982 ====== |
| Oxide end members, Thompson’s (1982) : Fm6O6, Ca2Si2O6, Na4Si2O6, Ti3O6, Si3O6, Al4O6 and Cr4O6. | Oxide end members, Thompson’s (1982) : Fm6O6, Ca2Si2O6, Na4Si2O6, Ti3O6, Si3O6, Al4O6 and Cr4O6. | ||
| Строка 6: | Строка 6: | ||
| ^ Article | | | ^ Article | | | ||
| - | ^ Recalc method | [[recalc:px_putirka]] | | + | ^ Recalc | [[recalc:px_putirka]] | |
| - | ^ Calculated components | NaAlSi2O6, FmTiAlSiO6, CrAl2SiO6, FmAl2SiO6, CaFmSi2O6, Fm2Si2O6 | | + | ^ Results | En, Di, NaAlSi2O6, FmTiAlSiO6, CrAl2SiO6, FmAl2SiO6, CaFmSi2O6, Fm2Si2O6 | |
| - | ^[[:ppy:mod_interpmin#grt_tpf_recalc0 |Calculate]] ^ ^ | + | |
| + | <use:interpmin.opx_thompson> | ||
| + | <test:interpmin.opx_thompson> | ||
| ==== Код ==== | ==== Код ==== | ||
| Строка 22: | Строка 24: | ||
| comps$X_FmTiAlSiO6 <- p$Ti_pfu; | comps$X_FmTiAlSiO6 <- p$Ti_pfu; | ||
| comps$X_CrAl2SiO6 <- p$Cr_pfu; | comps$X_CrAl2SiO6 <- p$Cr_pfu; | ||
| - | comps$X_FmAl2SiO6 <- p$Al_6_pfu - comps$X_NaAlSi2O6 - comps$X_CrAl2SiO6; | + | comps$X_FmAl2SiO6 <- p$Al_c6_pfu - comps$X_NaAlSi2O6 - comps$X_CrAl2SiO6; |
| comps$X_CaFmSi2O6 <- p$Ca_pfu; | 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; | comps$X_Fm2Si2O6 <- ((p$Fe_pfu+p$Mg_pfu+p$Mn_pfu)-comps$X_FmTiAlSiO6-comps$X_FmAl2SiO6-comps$X_CaFmSi2O6)/2; | ||
| + | |||
| + | comps$X_En <- comps$X_Fm2Si2O6*(p$Mg_pfu/(p$Mg_pfu+p$Mn_pfu+p$Fe_pfu)); | ||
| + | comps$X_Di <- comps$X_CaFmSi2O6*(p$Mg_pfu/(p$Mg_pfu+p$Mn_pfu+p$Fe_pfu)); | ||
| return(comps); | return(comps); | ||
| + | } | ||
| + | |||
| + | interpmin.opx_thompson.test <- function (){ | ||
| + | warning("No test routine!"); | ||
| } | } | ||
| </Code> | </Code> | ||