Различия
Здесь показаны различия между двумя версиями данной страницы.
Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
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); |