Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:px_macgreg [2016/04/29 09:31] admin |
recalc:px_macgreg [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 45: | Строка 45: | ||
| pOx_FC <- 6/pOx_S; | pOx_FC <- 6/pOx_S; | ||
| | | ||
| - | pOx_AEi <- rowApply('*', rowApply('*', pOx_Ei, pOx_Ci), pOx_FC); | + | pOx_AEi <- rowApply('*', pOx_Ei, pOx_Ci) * pOx_FC; |
| pOx_AS <- rowSums(pOx_AEi); | pOx_AS <- rowSums(pOx_AEi); | ||
| - | | ||
| - | return(pOx_AEi); | ||
| | | ||
| # part 2 | # part 2 | ||
| Строка 90: | Строка 88: | ||
| pCat_FC2 <- 6/pCat_totEi; | pCat_FC2 <- 6/pCat_totEi; | ||
| | | ||
| - | pCat_U <- rowApply('*', rowApply('*', pCat_Ei2, pCat_Ci), pCat_FC2); | + | pCat_U <- rowApply('*', pCat_Ei2, pCat_Ci) * pCat_FC2; |
| | | ||
| pCat_Utot <- 4 - (pCat_U$SiO2_wtp + pCat_U$TiO2_wtp + pCat_U$Al2O3_wtp + | pCat_Utot <- 4 - (pCat_U$SiO2_wtp + pCat_U$TiO2_wtp + pCat_U$Al2O3_wtp + | ||
| Строка 106: | Строка 104: | ||
| pCat_Ei2$Fe2O3_wtp <- pCat_MOi2$Fe2O3_wtp/3; | pCat_Ei2$Fe2O3_wtp <- pCat_MOi2$Fe2O3_wtp/3; | ||
| pCat_Ei2$FeO_tot_wtp <- 0.0; | pCat_Ei2$FeO_tot_wtp <- 0.0; | ||
| - | | + | |
| - | pCat_AEi <- rowApply('*', rowApply('*', pCat_Ei, pCat_Ci), pCat_FC1); | + | pCat_AEi <- rowApply('*', pCat_Ei, pCat_Ci) * pCat_FC1; |
| - | pCat_pfu <- rowApply('*', rowApply('*', pCat_Ei2, pCat_Ci), pCat_FC2); | + | pCat_pfu <- rowApply('*', pCat_Ei2, pCat_Ci) * pCat_FC2; |
| pResEnd <- data.frame(Name=wtp_data$Name); | pResEnd <- data.frame(Name=wtp_data$Name); | ||
| - | pCat_pfu$f_1 <- ifelse(pCat_pfu$FeO_wtp<0,1.0,0.0); | + | pCat_pfu$f_1 <- ifelse(pCat_pfu$FeO_wtp<0,1,0); |
| - | pCat_pfu$f_2 <- ifelse(pCat_pfu$FeO_wtp>=0 && pCat_pfu$Fe2O3_wtp<0,1.0,0.0); | + | pCat_pfu$f_2 <- ifelse(pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp<0,1,0); |
| - | pCat_pfu$f_3 <- ifelse(pCat_pfu$FeO_wtp>=0 && pCat_pfu$Fe2O3_wtp>=0,1.0,0.0); | + | pCat_pfu$f_3 <- ifelse(pCat_pfu$FeO_wtp>=0 & pCat_pfu$Fe2O3_wtp>=0,1,0); |
| pResEnd$Si_pfu <- pCat_pfu$f_1*pOx_AEi$SiO2_wtp+pCat_pfu$f_2*pCat_AEi$SiO2_wtp+pCat_pfu$f_3*pCat_pfu$SiO2_wtp; | pResEnd$Si_pfu <- pCat_pfu$f_1*pOx_AEi$SiO2_wtp+pCat_pfu$f_2*pCat_AEi$SiO2_wtp+pCat_pfu$f_3*pCat_pfu$SiO2_wtp; | ||