Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:wtp_comp_to_atp [2016/01/12 14:46] admin |
recalc:wtp_comp_to_atp [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Пересчет весовых процентов оксидов на атомные проценты ====== | + | ====== Common: Compound WTP to ATP ====== |
Пересчет весовых процентов оксидов на атомные проценты. | Пересчет весовых процентов оксидов на атомные проценты. | ||
- | === Подробнее === | + | === Details === |
- | ^ Информация о публикации | | | + | ^ Reference | | |
- | ^ Ссылка | | | + | ^ Input | wtp | |
- | ^ Учитываемые компоненты | | | + | ^ Results | atp | |
- | ^ Выводимые компоненты | | | + | <use:recalc.wtp_comp_to_atp> |
- | ^ [[:ppy:mod_recalc#wtp_comp_to_atp|Рассчитать]] | | | + | <test:recalc.wtp_comp_to_atp> |
- | === Код === | + | <WRAP center round todo 60%> |
+ | * заголовок | ||
+ | * краткое описание | ||
+ | * статья | ||
+ | * ссылка | ||
+ | * карточка | ||
+ | * подробное описание | ||
+ | * <del>код</del> | ||
+ | * тест | ||
+ | </WRAP> | ||
+ | |||
+ | === Source === | ||
<Code linenums lang-r> | <Code linenums lang-r> | ||
Строка 17: | Строка 28: | ||
oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F); | oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F); | ||
- | recalc.wtp_comp_to_atp <- function (wtp_data, cat_only = T, ...) | + | recalc.wtp_comp_to_atp <- function (wtp_data, cat_only = F, ...) |
{ | { | ||
| | ||
Строка 49: | Строка 60: | ||
data_atp$Name <- NULL; | data_atp$Name <- NULL; | ||
- | if(!cat_only) | + | data_atp$F <- cF; |
- | { | + | data_atp$Cl <- cCl; |
- | data_atp$F <- cF; | + | data_atp$O <- cO; |
- | data_atp$Cl <- cCl; | + | |
- | data_atp$O <- cO; | + | data_sum <- rowSums(data_atp)[1]; |
- | } | + | data_atp_ret <- rowApply('/',data_atp,data_sum)*100; |
- | else | + | |
- | { | + | |
- | data_atp$F <- NULL; | + | |
- | data_atp$Cl <- NULL; | + | |
- | data_atp$O <- NULL; | + | |
- | } | + | |
- | | + | |
- | data_sum <- rowSums(data_atp); | + | |
- | data_atp_ret <- rowApply('/',data_atp,c(data_sum)); | + | |
| | ||
names(data_atp_ret) <- paste0(names(data_atp_ret),'_atp'); | names(data_atp_ret) <- paste0(names(data_atp_ret),'_atp'); |