Различия

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

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