Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
recalc:common_oxygen [2015/09/04 11:06] 127.0.0.1 внешнее изменение |
recalc:common_oxygen [2018/11/12 15:08] (текущий) |
||
---|---|---|---|
Строка 1: | Строка 1: | ||
- | ====== Пересчет на кислород ====== | + | ====== Common: Oxygen method ====== |
Наиболее примитивный метод расчета на заданное число атомов кислорода. | Наиболее примитивный метод расчета на заданное число атомов кислорода. | ||
- | === Подробнее === | + | === Details === |
- | <note> | + | ^ Reference | | |
- | * Описание: 100% | + | ^ Input | wtp | |
- | * Код: 100% | + | ^ Results | pfu | |
- | * Тест: :?: | + | <use:recalc.common_oxygen> |
- | </note> | + | <test:recalc.common_oxygen> |
- | === Исходный код === | + | <WRAP center round todo 60%> |
+ | * <del>заголовок</del> | ||
+ | * краткое описание | ||
+ | * статья | ||
+ | * ссылка | ||
+ | * карточка | ||
+ | * подробное описание | ||
+ | * <del>код</del> | ||
+ | * тест | ||
+ | </WRAP> | ||
- | <code> | + | === Source === |
+ | |||
+ | <Code lang-r linenums> | ||
elements <- read.csv("constants_elements.csv",stringsAsFactors=F) | elements <- read.csv("constants_elements.csv",stringsAsFactors=F) | ||
oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F) | oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F) | ||
Строка 66: | Строка 77: | ||
return(cbind(Name=wtp_data$Name,ds[,grep("_pfu", names(ds))])); | return(cbind(Name=wtp_data$Name,ds[,grep("_pfu", names(ds))])); | ||
} | } | ||
- | </code> | + | |
+ | |||
+ | recalc.common_oxygen.test <- function () { | ||
+ | src <- data.frame(Name='test',SiO2_wtp=37.50,TiO2_wtp=0.3,Al2O3_wtp=20.21,FeO_wtp=26.30,MnO_wtp=2.94,MgO_wtp=3.25,CaO_wtp=9.94); | ||
+ | |||
+ | result <- recalc.common_oxygen (src, count = 12); | ||
+ | |||
+ | expect_equal(object = result$Si_pfu, 2.978, tolerance = 0.001); | ||
+ | expect_equal(object = result$Ti_pfu, 0.018, tolerance = 0.001); | ||
+ | expect_equal(object = result$Al_pfu, 1.891, tolerance = 0.001); | ||
+ | expect_equal(object = result$Fe_pfu, 1.746, tolerance = 0.001); | ||
+ | expect_equal(object = result$Mn_pfu, 0.195, tolerance = 0.001); | ||
+ | expect_equal(object = result$Mg_pfu, 0.385, tolerance = 0.001); | ||
+ | expect_equal(object = result$Ca_pfu, 0.846, tolerance = 0.001); | ||
+ | } | ||
+ | </Code> | ||
{{tag> order10}} | {{tag> order10}} |