Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:common_cation [2015/09/04 11:06] 127.0.0.1 внешнее изменение |
recalc:common_cation [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Пересчет на катионы ====== | + | ====== Common: Cation method ====== |
| Наиболее примитивный метод расчета на заданное число катионов. | Наиболее примитивный метод расчета на заданное число катионов. | ||
| - | === Подробнее === | + | === Details === |
| - | В качестве основы взят катионный метод по Бронеман-Старынкевич [[sources:bs1964]]. Анионы делятся на 1. | + | ^ Reference | | |
| + | ^ Input | wtp | | ||
| + | ^ Results | pfu | | ||
| - | <note> | + | <use:recalc.common_cation> |
| - | * Описание: 80% | + | <test:recalc.common_cation> |
| - | * Код: 100% | + | |
| - | * Тест: :?: | + | |
| - | </note> | + | |
| - | === Код === | + | <WRAP center round todo 60%> |
| + | * <del>заголовок</del> | ||
| + | * краткое описание | ||
| + | * статья | ||
| + | * ссылка | ||
| + | * карточка | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| + | |||
| + | === Source === | ||
| + | |||
| + | <Code linenums lang-r> | ||
| + | elements <- read.csv("constants_elements.csv",stringsAsFactors=F); | ||
| + | oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F); | ||
| - | <code> | ||
| recalc.common_cation <- function (wtp_data, count=12, ...) | recalc.common_cation <- function (wtp_data, count=12, ...) | ||
| { | { | ||
| - | + | | |
| - | elements <- read.delim("constants_elements.csv", dec=".",sep = ";",stringsAsFactors=F) | + | |
| - | oxides <- read.delim("constants_oxides.csv", dec=".", sep = ";",stringsAsFactors=F) | + | |
| - | + | ||
| data <- wtp_data[,grep("_wtp", names(wtp_data))]; | data <- wtp_data[,grep("_wtp", names(wtp_data))]; | ||
| Строка 54: | Строка 64: | ||
| return(cbind(Name=wtp_data$Name,data)); | return(cbind(Name=wtp_data$Name,data)); | ||
| } | } | ||
| - | </code> | + | </Code> |
| {{tag> order11}} | {{tag> order11}} | ||