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