Различия

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

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

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
sensors:t:cpx_opx_fonarev_graphchikov_1991_a [2017/05/26 03:45]
admin
sensors:t:cpx_opx_fonarev_graphchikov_1991_a [2018/11/12 15:08] (текущий)
Строка 11: Строка 11:
 </​WRAP>​ </​WRAP>​
  
-^ Article | <​fonarev1991b>​ |+^ Article | <ref:fonarev1991b>​ |
 ^ Callibration |  | ^ Callibration |  |
 ^ Precision | ±50-100 °C | ^ Precision | ±50-100 °C |
-^ Ranges |  900-1250 °C |+^ Ranges | 900-1250 °C |
 ^ Renew sensors |  | ^ Renew sensors |  |
  
Строка 49: Строка 49:
     Y2 <- (Opx$Fe_p2_pfu + Opx$Fe_p3_pfu) / (Opx$Mg_pfu + Opx$Fe_p2_pfu + Opx$Fe_p3_pfu + Opx$Ca_pfu);​     Y2 <- (Opx$Fe_p2_pfu + Opx$Fe_p3_pfu) / (Opx$Mg_pfu + Opx$Fe_p2_pfu + Opx$Fe_p3_pfu + Opx$Ca_pfu);​
     OZ <- Opx$Al2O3_wtp + Opx$TiO2_wtp + Opx$MnO_wtp + Opx$Na2O_wtp;​     OZ <- Opx$Al2O3_wtp + Opx$TiO2_wtp + Opx$MnO_wtp + Opx$Na2O_wtp;​
-    if (Z<OZ) { + 
-    X <- X2; +    X <- ifelse(Z<​OZ,​X2,X)
-    Y <- Y2; +    Y <- ifelse(Z<​OZ,​Y2,Y)
-    }+
     A <-  - 15.9135 * X + 112.8452 * X^2 - 232.7006 * X^3 + 156.3120 * X^4 - Y * (1 - (0.5 - X) * 0.01 * P);     A <-  - 15.9135 * X + 112.8452 * X^2 - 232.7006 * X^3 + 156.3120 * X^4 - Y * (1 - (0.5 - X) * 0.01 * P);
     B <- 44.2986 * X - 313.6564 * X^2 + 660.4657 * X^3 - 446.5655 * X^4;     B <- 44.2986 * X - 313.6564 * X^2 + 660.4657 * X^3 - 446.5655 * X^4;
  • sensors/t/cpx_opx_fonarev_graphchikov_1991_a.1495770307.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)