Править страницу Ссылки сюда Это старая версия документа! Opx-Cpx: Brey, Kohler, 1990 <B> Details This sensor from TPF collection Article Collibration Precision Ranges Renew sensors Использовать Проверить заголовок краткое описание статья ссылка карточка подробное описание код тест Source source("utilities_tpf.r"); sensors.t.opx_cpx_brey_kohler_1990_b <- function(Opx, Cpx, P, usePFU = FALSE, ...){ if(!usePFU){ Opx <- tpf.recalc_minaral("OPX",Opx); }; CAO <- Opx$Ca_pfu; T <- (6425 + 26.4 * P) / ( - log(CAO) + 1.843) - 273.15; warning(" ONLY FOR LHERZOLITES, EQ(10)"); return(data.frame(Name=paste0(Opx$Name),P=P,T_calc=T)); } sensors.t.opx_cpx_brey_kohler_1990_b.args <- function(){ ars <- list(); ars$minerals <- c("Opx", "Cpx"); ars$ranges <- c("P"); return(ars); } #sensors.t.opx_cpx_brey_kohler_1990_b.test <- function(){ # #} tpf, Opx sensors/t/opx_cpx_brey_kohler_1990_b.1494922428.txt.gz Последние изменения: 2018/11/12 15:08(внешнее изменение) Войти