====== Electrum-Sp: Shikazono, 1985 ======

Electrum – sphalerite fugacity sensor.

=== Details ===

^ Article | <ref:shikazono1985> |
<use:sensors.f.electrum_sp_shikazono>
<test:sensors.f.electrum_sp_shikazono>

<WRAP center round todo 60%>
  * <del>заголовок</del>
  * краткое описание
  * <del>статья</del>
  * <del>ссылка</del>
  * карточка
  * подробное описание
  * <del>код</del>
  * тест
</WRAP>


=== Source ===

<Code linenums lang-r>
source('sensors_t_electrum_sp_shikazono.r');

sensors.f.electrum_sp_shikazono <- function(Elect, Sp)
{
    log_f_S = sensors.t.elect_sf_shikazono(Elect, Sp)$log_f_S; 
    return(data.frame(Name=paste0(Elect$Name,'-',Sfa$Name), log_f_S=log_f_S));
}

sensors.f.electrum_sp_shikazono.args <- function() {
    ars <- list();
    ars$minerals = c('Elect','Sp');
    ars$ranges = c();
    return(ars);
}
</Code>