Cpx: Nomenclature of the Ca-Mg-Fe clinopyroxenes, Morimoto et al., 1988

Composition ranges of the Ca-Mg-Fe clinopyroxenes with accepted names.

Использовать Проверить

source('recalc_cpx_4cat_norm.r');

classifydiag.cpx_ca_mg_fe <- function (wtp_data, annotate=T, labels=F, ...)
{  
ds <- selectNames(recalc.cpx_4cat_norm(wtp_data),
                  c('Name','Ca_pfu','Mg_pfu','Mn_pfu','Fe_pfu','Fe_p2_pfu','Fe_p3_pfu','Na_pfu'));

marks <- data.frame(Label=c('Diopside','Hedenbergite','Augite','Pigeonite','Clinoenstotite','Clinoferrosilite'),
                     X=c(0.48,0.12,0.33,0.44,0.78,0.18),
                     Y=c(0.55,0.55,0.33,0.12,0.03,0.03),
                     Z=c(0.12,0.48,0.33,0.44,0.18,0.78));

lines <- data.frame(X1 = c(0.50, 0.55, 0.80, 0.95, 0.25,  0.475),
                    Y1 = c(0.50, 0.45, 0.20, 0.05, 0.50,  0.05),
                    Z1 = c(0.00, 0.00, 0.00, 0.00, 0.25,  0.475),
                    X2 = c(0.00, 0.00, 0.00, 0.00, 0.275, 0.50),
                    Y2 = c(0.50, 0.45, 0.20, 0.05, 0.45,  0.00),
                    Z2 = c(0.50, 0.55, 0.80, 0.95, 0.275, 0.50));

pts <- data.frame (Name = ds$Name,
                   X = ds$Mg_pfu,
                   Y = ds$Ca_pfu,
                   Z = ds$Fe_pfu + ds$Mn_pfu);

labels <- c("En", "Wo", "Fs");

ret <- c();
 
ret$type <- "ternogram";
ret$points <- pts;
ret$marks <- marks;
ret$labels  <- labels;
ret$lines <- lines;

return (ret);
}