Различия

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

Ссылка на это сравнение

Следующая версия 		Предыдущая версия
sensors:p:ph_caddick_thompson [2016/02/09 14:18]
admin created 		sensors:p:ph_caddick_thompson [2018/11/12 15:08] (текущий)
Строка 5: Строка 5:
 === Подробнее === === Подробнее ===
  
-^ Информация о публикации ​| Caddick, M. J., Thompson, A. B. Quantifying the tectono-metamorphic evolution of pelitic rocks from a wide range of tectonic settings: mineral compositions in equilibrium ​ Contrib. Mineral. Petrol. 156, 2008, pp. 177―195| +^ Article  ​| <ref:caddick2008> ​| 
-^ Ссылка | ? | +^ Collibration ​|  | 
-^ Калибровка ​|  | +^ Accuracy ​|  | 
-^ Точность ​|  | +^ Ranges ​| | 
-^ Диапазон значений ​| | +^ Renew sensors ​| | 
-^ Обновляет сенсоры ​| | +<use:sensors.p.ph_caddick_thompson>​ 
-^[[:ppy:mod_sensors#​p_phe_caddick_thompson|Рассчитать]] ^ ^+<test:sensors.p.ph_caddick_thompson>​
  
-=== Код метода ===+<WRAP center round todo 60%> 
 +  * <​del>​заголовок</​del>​ 
 +  * <​del>​краткое описание</​del>​ 
 +  * <​del>​статья</​del>​ 
 +  * <​del>​ссылка</​del>​ 
 +  * карточка 
 +  * подробное описание 
 +  * <​del>​код</​del>​ 
 +  * <​del>​тест</​del>​ 
 +</​WRAP>​ 
 +=== Source ​===
  
 <Code linenums lang-r> <Code linenums lang-r>
 source('​recalc_common_oxygen.r'​);​ source('​recalc_common_oxygen.r'​);​
  
-sensors.p.ph_caddick_thompson <- function(Phe, Temp=600, usePFU = FALSE, ...){ +sensors.p.ph_caddick_thompson <- function(Ph, Temp=600, usePFU = FALSE, ...){ 
- +    if (!usePFU) ​Ph <- recalc.common_oxygen(Ph,11); 
-    if (!usePFU) ​Phe <- recalc.common_oxygen(Phe,12); +    Pcalc <- (4.19*Ph$Si_pfu + 0.0036*(Temp+273.15) - 15.15)*10; 
- +    return (data.frame(Name=Ph$Name,​T_seq=Temp,​P_calc_ph_caddick_thompson=Pcalc));
-    Pcalc <- 4.19*Phe$Si_pfu + 0.0036*(Temp+273.15) - 15.15; +
- +
-    return (data.frame(Name=Phe$Name,​T_seq=Temp,​P_calc_phe_caddick_thompson=Pcalc));+
 } }
  
 sensors.p.ph_caddick_thompson.args <- function() { sensors.p.ph_caddick_thompson.args <- function() {
     ars <- list();     ars <- list();
-    ars$minerals = c('Phe');+    ars$minerals = c('Ph');
     ars$ranges = c('​Temp'​);​     ars$ranges = c('​Temp'​);​
     return(ars);​     return(ars);​
 +}
 +
 +sensors.p.ph_caddick_thompson.test <- function () {
 +    src <- data.frame(Name='​test',​ Si_pfu=3.2);​
 +    result <- sensors.p.ph_caddick_thompson (src,​600,​usePFU = T);
 +    expect_equal(object = result$P_calc_ph_caddick_thompson,​ 14, tolerance = 0.1);
 } }
 </​Code>​ </​Code>​
  
  • sensors/p/ph_caddick_thompson.1455027511.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)