Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:px_macgreg [2016/04/29 09:40] admin [Source] |
recalc:px_macgreg [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 105: | Строка 105: | ||
| pCat_Ei2$FeO_tot_wtp <- 0.0; | pCat_Ei2$FeO_tot_wtp <- 0.0; | ||
| - | return(pCat_MOi2); | ||
| - | | ||
| pCat_AEi <- rowApply('*', pCat_Ei, pCat_Ci) * pCat_FC1; | pCat_AEi <- rowApply('*', pCat_Ei, pCat_Ci) * pCat_FC1; | ||
| pCat_pfu <- rowApply('*', pCat_Ei2, pCat_Ci) * pCat_FC2; | pCat_pfu <- rowApply('*', pCat_Ei2, pCat_Ci) * pCat_FC2; | ||
| Строка 113: | Строка 111: | ||
| - | 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; | ||