Fhl-Electrum (unpublished)

Fhl-Electrum – termometer. Based on data from Origin of high-Ag fahlores from the Galena Mine, Wallace, Idaho, U.S.A. RICHARD O. SACK,1,2 ROB FREDERICKS,3 LISA S. HARDY,1,4 AND DENTON S. EBEL5

source('recalc_wtp_at_to_atp.r')

sensors.t.fhl_electrum_unpubl <- function(Fhl, Elect)
{
    FhlA = recalc.wtp_at_to_atp(Fhl);
    ElectA = recalc.wtp_at_to_atp(Elect);
    
    fhlcat <- selectNames(FhlA, c('Ag_atp', 'Cu_atp', 'Sb_atp','Fe_atp','As_atp','Zn_atp'));
    electcat <- selectNames(ElectA, c('Ag_atp','Au_atp'));
    
    X_Elect_Ag <- electcat$Ag_atp / (electcat$Ag_atp + electcat$Au_atp);
    
    X_Fhl_As <- fhlcat$As_atp / (fhlcat$Sb_atp + fhlcat$As_atp);
    X_Fhl_Zn <- fhlcat$Zn_atp / (fhlcat$Fe_atp + fhlcat$Zn_atp);
    X_Fhl_Ag <- fhlcat$Ag_atp / (fhlcat$Ag_atp + fhlcat$Cu_atp);
    
    Tcalc = 251.463 -131.234*X_Elect_Ag +174.371*X_Fhl_Ag -42.667*X_Fhl_As -6.262*X_Fhl_Zn;

    return(data.frame(Name=paste0(Fhl$Name,'-',Elect$Name), T_calc_fhl_electrum = Tcalc, X_Fhl_As =X_Fhl_As, X_Fhl_Ag =X_Fhl_Ag, 
                                                                                  X_Fhl_Zn =X_Fhl_Zn, X_Elect_Ag=X_Elect_Ag));

}

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