Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:amp_13ecnk [2017/03/21 14:03] admin |
recalc:amp_13ecnk [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 14: | Строка 14: | ||
<WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
- | * заголовок | + | * <del>заголовок</del> |
* <del>краткое описание</del> | * <del>краткое описание</del> | ||
* статья | * статья | ||
Строка 20: | Строка 20: | ||
* <del>карточка</del> | * <del>карточка</del> | ||
* подробное описание | * подробное описание | ||
- | * код | + | * <del>код</del> |
- | * тест | + | * <del>тест</del> |
</WRAP> | </WRAP> | ||
Строка 79: | Строка 79: | ||
rformula$Si_T_pfu <- rformula$Si_pfu; | rformula$Si_T_pfu <- rformula$Si_pfu; | ||
- | rformula$Al_c4_T_pfu <- ifelse(rformula$Al_pfu<Si_8m,rformula$Al_pfu,Si_8m); | + | rformula$Al_T_pfu <- ifelse(rformula$Al_pfu<Si_8m,rformula$Al_pfu,Si_8m); |
- | rformula$Al_c4_pfu <- rformula$Al_c4_T_pfu; | + | rformula$Al_c4_pfu <- rformula$Al_T_pfu; |
- | rformula$Sum_T <- rformula$Si_T_pfu + rformula$Al_c4_T_pfu; | + | rformula$Sum_T <- rformula$Si_T_pfu + rformula$Al_T_pfu; |
- | rformula$Al_c6_C_pfu <- ifelse(rformula$Al_pfu<Si_8m,0,Al_mSi_8m); | + | rformula$Al_C_pfu <- ifelse(rformula$Al_pfu<Si_8m,0,Al_mSi_8m); |
- | rformula$Al_c6_pfu <- rformula$Al_c6_C_pfu; | + | rformula$Al_c6_pfu <- rformula$Al_C_pfu; |
rformula$Ti_C_pfu <- rformula$Ti_pfu; | rformula$Ti_C_pfu <- rformula$Ti_pfu; | ||
rformula$Cr_C_pfu <- rformula$Cr_pfu; | rformula$Cr_C_pfu <- rformula$Cr_pfu; | ||
rformula$Fe_p2_C_pfu <- rformula$Fe_p2_pfu; | rformula$Fe_p2_C_pfu <- rformula$Fe_p2_pfu; | ||
rformula$Fe_p3_C_pfu <- rformula$Fe_p3_pfu; | rformula$Fe_p3_C_pfu <- rformula$Fe_p3_pfu; | ||
+ | rformula$Fe_C_pfu <- rformula$Fe_pfu; | ||
rformula$Mn_C_pfu <- rformula$Mn_pfu; | rformula$Mn_C_pfu <- rformula$Mn_pfu; | ||
rformula$Mg_C_pfu <- rformula$Mg_pfu; | rformula$Mg_C_pfu <- rformula$Mg_pfu; | ||
- | rformula$Sum_C <- rformula$Al_c6_C_pfu+rformula$Ti_C_pfu+rformula$Cr_C_pfu+rformula$Fe_p2_C_pfu+rformula$Fe_p3_C_pfu+rformula$Mn_C_pfu+rformula$Mg_C_pfu; | + | rformula$Sum_C <- rformula$Al_C_pfu+rformula$Ti_C_pfu+rformula$Cr_C_pfu+rformula$Fe_pfu+rformula$Mn_C_pfu+rformula$Mg_C_pfu; |
rformula$Ca_B_pfu <- rformula$Ca_pfu; | rformula$Ca_B_pfu <- rformula$Ca_pfu; | ||
Строка 104: | Строка 105: | ||
return(result); | return(result); | ||
} | } | ||
+ | # избыточная выдача; невозможно прочитать всю строку | ||
+ | # или удвоить строку или вывести необходимые величины вперед | ||
+ | # достаточно SiT/ AlT/ Al6/ Fe3/ Ti/ Cr/ Fe2/ Mn/ Mg/ Ca/ Na/ K/ TOTAL | ||
recalc.amp_13ecnk.test <- function (){ | recalc.amp_13ecnk.test <- function (){ |