Различия

Здесь показаны различия между двумя версиями данной страницы.

--- 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)
 oxides <- read.csv("constants_oxides.csv",stringsAsFactors=F)
@@ Строка 66: / Строка 77: @@
   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}}