Править страницу Ссылки сюда Это старая версия документа! Cpx-Opx: Kretz, 1982 <A> For Fe-free pyroxenes. Details This sensor from TPF collection Article Callibration Experimetal and data from Skaergaard and Bushveld Precision ±60°C Ranges T: 750-1400 Renew sensors Использовать Проверить заголовок краткое описание статья ссылка карточка подробное описание код тест Source source("utilities_tpf.r"); sensors.t.cpx_opx_kretz_1982_a <- function(Cpx, usePFU = FALSE, ...){ row_names = Cpx$Name; if(!usePFU) Cpx <- tpf.recalc_minaral("CPX",Cpx); X <- Cpx$Fe_p2_pfu / (Cpx$Fe_p2_pfu + Cpx$Mg_pfu); Y <- Cpx$Ca_pfu / (Cpx$Ca_pfu + Cpx$Mg_pfu + Cpx$Fe_p2_pfu); TH <- (1000 / (0.468 + 0.246 * X - 0.123 * log(1 - 2 * Y))) - 273.15; TL <- (1000 / (0.054 + 0.608 * X - 0.304 * log(1 - 2 * Y))) - 273.15; T <- c(); for (i in 1:nrow(Cpx)){ if (TH<1080.0 && TL>1080.0) { T <- c(T,NA); next; } if (TH>1080.0) { T <- c(T,TH); next; } if (TL<1080.0) { T <- c(T,TL); next; } } return(data.frame(Name=paste0(Cpx$Name),T_calc=T)); } sensors.t.cpx_opx_kretz_1982_a.args <- function(){ ars <- list(); ars$minerals <- c("Cpx"); ars$ranges <- c(); return(ars); } #sensors.t.cpx_opx_kretz_1982_a.test <- function(){ # #} tpf, Cpx sensors/t/cpx_opx_kretz_1982_a.1495120224.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти