Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия Следующая версия Следующая версия справа и слева | ||
|
recalc:cpx_4cat_norm [2015/09/08 16:47] admin |
recalc:cpx_4cat_norm [2015/09/24 13:57] admin |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Пересчет для клинопироксена на кислород с нормированием на катионы ====== | + | ====== Cpx: Пересчет для клинопироксена на кислород с нормированием на катионы ====== |
| - | В расчет берутся: SiO2 TiO2 Al2O3 FeO MnO MgO CaO Na2O. Расчет валентного железа - по кристалохимии. | + | В расчет берутся: SiO2, TiO2, Al2O3, FeO, MnO, MgO, CaO, Na2O. Рассчитывается также содержание валентных форм железа и алюминия в IV и VI координациях. |
| - | По статье Ravna, 2001. | + | === Подробнее === |
| - | <code> | + | ^ Информация о публикации | По статье Krogh Ravna, The garnet–clinopyroxene Fe2+–Mg geothermometer: an updated calibration, J. metamorphic Geol., 2000, 18, 211–219 | |
| + | ^ Ссылка | {{:sources:ravna2000.pdf}} | | ||
| + | ^ Учитываемые компоненты | SiO2, TiO2, Al2O3, FeO, MnO, MgO, CaO, Na2O | | ||
| + | ^ Рассчитываемые компоненты | Fe_p2_pfu, Fe_p3_pfu, Al_c4_pfu, Al_c6_pfu | | ||
| + | |||
| + | <Code linenums lang-r> | ||
| source('recalc_common_cation.r') | source('recalc_common_cation.r') | ||
| Строка 13: | Строка 18: | ||
| ox_group <-c('Name','SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp', 'Na2O_wtp'); | ox_group <-c('Name','SiO2_wtp','TiO2_wtp', 'Al2O3_wtp', 'FeO_wtp', 'MnO_wtp', 'MgO_wtp', 'CaO_wtp', 'Na2O_wtp'); | ||
| - | wtp_group <- wtp_data[,ox_group]; | + | wtp_group <- selectNames(wtp_data,ox_group); |
| cat_normed <- recalc.common_cation (wtp_group, 4); | cat_normed <- recalc.common_cation (wtp_group, 4); | ||
| Строка 19: | Строка 24: | ||
| pfu_group <-c('Si_pfu','Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu', 'Na_pfu'); | pfu_group <-c('Si_pfu','Ti_pfu', 'Al_pfu', 'Fe_pfu', 'Mn_pfu', 'Mg_pfu', 'Ca_pfu', 'Na_pfu'); | ||
| - | ox_calc <- rowSums(rowApply('*',cat_normed[,pfu_group],c(2,2,1.5,1,1,1,1,0.5))); | + | anion_summ <- rowSums(rowApply('*',cat_normed[,pfu_group],c(2,2,1.5,1,1,1,1,0.5))); |
| - | cat_normed$Fe_p3_pfu <- (6-ox_calc)*2; | + | |
| + | cat_normed$Fe_p3_pfu <- (6-anion_summ)*2; | ||
| cat_normed$Fe_p2_pfu <- cat_normed$Fe_pfu - cat_normed$Fe_p3_pfu; | cat_normed$Fe_p2_pfu <- cat_normed$Fe_pfu - cat_normed$Fe_p3_pfu; | ||
| Строка 28: | Строка 34: | ||
| return (cat_normed); | return (cat_normed); | ||
| } | } | ||
| - | </code> | + | </Code> |