Различия

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

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
sensors:t:electrum_sp_shikazono [2016/05/17 15:06]
admin
sensors:t:electrum_sp_shikazono [2018/11/12 15:08] (текущий)
Строка 7: Строка 7:
 ^ Article | <​ref:​shikazono1985>​ | ^ Article | <​ref:​shikazono1985>​ |
 ^ Collibration | In this study, sphalerite and electrum from Sanru, Chitose, Sado, Takatama, Seigoshi, Yugashima, Toi, Nebazawa, Takeno, and Kushikino were analyzed by an electron microprobe analyzer ​ | ^ Collibration | In this study, sphalerite and electrum from Sanru, Chitose, Sado, Takatama, Seigoshi, Yugashima, Toi, Nebazawa, Takeno, and Kushikino were analyzed by an electron microprobe analyzer ​ |
 +^ Ranges | N_Ag > 0.3 |
 ^ Input | atomic wtp | ^ Input | atomic wtp |
 ^ Accuracy | T ±20 °C (for T > 300 °C)  | ^ Accuracy | T ±20 °C (for T > 300 °C)  |
Строка 25: Строка 26:
 sensors.t.electrum_sp_shikazono <- function(Elect,​ Spf) sensors.t.electrum_sp_shikazono <- function(Elect,​ Spf)
 { {
-    aElect ​recalc.wtp_at_to_atp(Elect) +    aElect ​<- recalc.wtp_at_to_atp(Elect); 
-    aSpf recalc.wtp_at_to_atp(Spf)+    aSpf <- recalc.wtp_at_to_atp(Spf);
  
     dElect <- selectNames(aElect,​c('​Au_atp','​Ag_atp'​));​     dElect <- selectNames(aElect,​c('​Au_atp','​Ag_atp'​));​
-    dSpf <- selectNames(aSpf,​c('​Fe_atp'​));​+    dSpf <- selectNames(aSpf,​c('​Fe_atp','​Zn_atp'));
    
     N_Ag = dElect$Ag_atp/​(dElect$Ag_atp+dElect$Au_atp);​     N_Ag = dElect$Ag_atp/​(dElect$Ag_atp+dElect$Au_atp);​
Строка 64: Строка 65:
   ​   ​
   Elect <- data.frame(Name='​Elect',​Au_wtp=2,​ Ag_wtp=8);   Elect <- data.frame(Name='​Elect',​Au_wtp=2,​ Ag_wtp=8);
-  Spf <- data.frame(Name='​Sp',​Fe_wtp=21.23);​+  Spf <- data.frame(Name='​Sp',​Fe_wtp=21.23,​Zn_wtp=21.23);
    
   result <- sensors.t.electrum_sp_shikazono(Elect,​ Spf);   result <- sensors.t.electrum_sp_shikazono(Elect,​ Spf);
  • sensors/t/electrum_sp_shikazono.1463497589.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)