Различия

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

--- sensors:t:fhl_spf_unpubl [2016/05/17 12:44]
admin
+++ sensors:t:fhl_spf_unpubl [2018/11/12 15:07] (текущий)
@@ Строка 4: / Строка 4: @@
 === Details ===
+<WRAP center round important 60%>
+**Неопубликованный инструмент**
+Данный инструмент не опубликован в научной литературе.
+</WRAP>
 ^ Article |   |
@@ Строка 15: / Строка 21: @@
 <Code linenums lang-r>
 source('recalc_wtp_at_to_atp.r')
@@ Строка 23: / Строка 28: @@
     SpfA = recalc.wtp_at_to_atp(Spf);
-    fhlcat <- selectNames(FhlA, c('Sb_apt','Fe_apt','As_apt','Zn_apt'));
+    fhlcat <- selectNames(FhlA, c('Cu_atp', 'Sb_atp','Fe_atp','As_atp','Zn_atp'));
-    spfcat <- selectNames(SpfA, c('Fe_apt','Zn_apt'));
+    spfcat <- selectNames(SpfA, c('Fe_atp','Zn_atp'));
+    X_Fhl_As <- fhlcat$As_atp / (fhlcat$Sb_atp + fhlcat$As_atp);
-    X_Fhl_As = fhlcat$As_apt / (fhlcat$Sb_apt + fhlcat$Fe_apt + fhlcat$As_apt + fhlcat$Zn_apt);
+    X_Fhl_Fe <- fhlcat$Fe_atp / (fhlcat$Fe_atp + fhlcat$Zn_atp);
-    X_Fhl_Fe = fhlcat$Fe_apt / (fhlcat$Sb_apt + fhlcat$Fe_apt + fhlcat$As_apt + fhlcat$Zn_apt);
+    X_Fhl_Zn <- fhlcat$Zn_atp / (fhlcat$Fe_atp + fhlcat$Zn_atp);
-    X_Fhl_Zn = fhlcat$Zn_apt / (fhlcat$Sb_apt + fhlcat$Fe_apt + fhlcat$As_apt + fhlcat$Zn_apt);
+    X_Sph_FeS <- spfcat$Fe_atp / (spfcat$Fe_atp + spfcat$Zn_atp);
-    X_Sph_FeS = spfcat$Fe_apt / (spfcat$Fe_apt + spfcat$Zn_apt);
+    X_Sph_ZnS <- spfcat$Zn_atp / (spfcat$Fe_atp + spfcat$Zn_atp);
-    X_Sph_ZnS = spfcat$Zn_apt / (spfcat$Fe_apt + spfcat$Zn_apt);
     R = 1.987;
@@ Строка 41: / Строка 45: @@
         );
-#    return(data.frame(Name=paste0(Fhl$Name,'-',Spf$Name), T_calc_fhl_spf = Tcalc, X_Fhl_As = X_Fhl_As, X_Fhl_Fe =X_Fhl_Fe));
+    return(data.frame(Name=paste0(Fhl$Name,'-',Spf$Name), T_calc_fhl_spf = Tcalc-273, X_Fhl_As =X_Fhl_As, X_Fhl_Fe =X_Fhl_Fe,
-     return(SpfA);
+                                                                                  X_Fhl_Zn =X_Fhl_Zn, X_Sph_FeS=X_Sph_FeS, X_Sph_ZnS=X_Sph_ZnS));
 }