Electrum-Sp: Shikazono, 1985

Это старая версия документа!

Electrum – sphalerite termometer and fugometer.

Details

Calculate
Article	Shikazono N. A comparison of temperatures estimated from the electrum – sphalerite – pyrite – argentite assemblage and filling temperatures of fluid implications from epithermal Au – Ag vein –type deposits in Japan Econ. Geol. 1985. V. 80. No 5. P. 1415 – 1424.
Reference	shikazono1985.pdf
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
Accuracy	T ±20 °C (for T > 300 °C)

Source

sensors.t.electrum_sp_shikazono <- function(Elect, Spf)
{
    dElect <- selectNames(Elect,c('Au_wtp','Ag_wtp')) / 100;
    dSpf <- selectNames(Spf,c('Fe_wtp')) / 100;
    
    dElect <- rowApply('/',dElect,c(196.96657,107.8682));
    names(dElect) <- c('Au_moles','Ag_moles');
    dSpf <- dSpf / 55.845;

    N_Ag = dElect$Ag_moles/(dElect$Ag_moles+dElect$Au_moles);
    X_FeS = dSpf;

    N = 28765 + 22600*(1 - N_Ag)^2 - 6400*(1 - N_Ag)^3;
    D = 49.008 - 9.152*log10(X_FeS) + 18.2961*log10(N_Ag)+ 5.5*(1 - N_Ag)^2;
    Tcalc6 = N / D - 273.15;

    N = 25196 + 22600*(1 - N_Ag)^2 - 6400*(1 - N_Ag)^3;
    D = 44.38 - 9.152*log10(X_FeS) + 18.296*log10(N_Ag)+ 5.5*(1 - N_Ag)^2;
    Tcalc7 = N / D - 273.15;

    Temp = Tcalc7 + 273.15;
    
    log_f_S = (1/(4.576*Temp))*
              (-41980 + 16.52*Temp - 18.296*Temp*log10(N_Ag)+
              (4*(1 - N_Ag)^2*(5650 - 1600*(1 - N_Ag) - 1.375*Temp))); 

    return(data.frame(Name=paste0(Elect$Name,'-',Spf$Name), N_Ag=N_Ag,X_FeS =X_FeS, T_calc_ElectSp_Shikazono_eq6 = Tcalc6, T_calc_ElectSp_Shikazono_eq7 = Tcalc7,log_f_S=log_f_S));
}

sensors.t.elect_spf_shikazono.args <- function() {
    ars <- list();
    ars$minerals = c('Elect','Sp');
    ars$ranges = c();
    return(ars);
}

sensors.t.electrum_sp_shikazono.test <- function () {
  
  Elect <- data.frame(Name='Elect',Au_wtp=2, Ag_wtp=8);
  Spf <- data.frame(Name='Sp',Fe_wtp=21.23);
 
  result <- sensors.t.elect_spf_shikazono(Elect, Spf);
  
  expect_equal(result$T_calc_ElectSp_Shikazono_eq6, 312, tolerance = 3);
  expect_equal(result$T_calc_ElectSp_Shikazono_eq7, 297, tolerance = 3);
}