Различия

Здесь показаны различия между двумя версиями данной страницы.

--- recalc:px_macgreg [2016/04/28 15:27]
admin [Source]
+++ recalc:px_macgreg [2018/11/12 15:08] (текущий)
@@ Строка 45: / Строка 45: @@
   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);
@@ Строка 88: / Строка 88: @@
   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 +
@@ Строка 104: / Строка 104: @@
   pCat_Ei2$Fe2O3_wtp <- pCat_MOi2$Fe2O3_wtp/3;
   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);
-  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;