Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
recalc:px_macgreg [2016/04/29 09:39] admin [Source] |
recalc:px_macgreg [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 75: | Строка 75: | ||
| pCat_MOi$CaO_wtp + pCat_MOi$Na2O_wtp + pCat_MOi$K2O_wtp; | pCat_MOi$CaO_wtp + pCat_MOi$Na2O_wtp + pCat_MOi$K2O_wtp; | ||
| - | return(pCat_MOi); | ||
| - | | ||
| pCat_MOi2<- pCat_MOi; | pCat_MOi2<- pCat_MOi; | ||
| pCat_MOi2$FeO_wtp <- 0.0; | pCat_MOi2$FeO_wtp <- 0.0; | ||
| Строка 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('*', 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; | ||