Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
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] (текущий) |
||
---|---|---|---|
Строка 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; |