Различия

Здесь показаны различия между двумя версиями данной страницы.

--- classifydiag:la_y_nb_cabanis [2016/03/06 23:27]
admin
+++ classifydiag:la_y_nb_cabanis [2018/11/12 15:07] (текущий)
@@ Строка 1: / Строка 1: @@
-====== La-Y-Nb: Continental crust magmatic mixtures, Cabanis ======
+====== La-Y-Nb: Continental crust magmatic mixtures, Cabanis, 1989 ======
-Continental crust magmatic mixtures
+Continental crust magmatic mixtures. NMORB - Normal mid-ocean-rige basalt, EMORB - Enriched mid-ocean-rige basalt, VAC - volcanic arc tholeiites, * - back arc basin, Cont. - continental.
 ==== Details ====
-<data plot>
+| Reference | <ref:cabanis1989> |
-Reference [wiki]: <ref:cabanis1989>
+| Data | bulk |
-Data: bulk
+| Input | La_ppm, Y_ppm, Nb_ppm |
-Input: La_gpt, Y_gpt, Nb_gpt
-</data>
+<use:classifydiag.la_y_nb_cabanis>
+<test:classifydiag.la_y_nb_cabanis>
 <WRAP center round todo 60%>
@@ Строка 29: / Строка 30: @@
 classifydiag.la_y_nb_cabanis <- function (wtp_data, ...)
 {
-ds <- selectNames(wtp_data,c('Name','La_gpt', 'Y_gpt', 'Nb_gpt'))
+ds <- selectNames(wtp_data,c('Name','La_ppm', 'Y_ppm', 'Nb_ppm'))
 pts <- data.frame(Name=ds$Name,
-                  X = ds$La_gpt/10,
+                  X = ds$La_ppm/10,
-                  Y = ds$Y_gpt/15,
+                  Y = ds$Y_ppm/15,
-                  Z = ds$Nb_gpt/8);
+                  Z = ds$Nb_ppm/8);
-labels <- c("La_gpt/10", "Y_gpt/15", "Nb_gpt/8");
+labels <- c("La/10", "Y/15", "Nb/8");
 lines <- data.frame(X1 = c(0.00, 0.32, 0.43, 0.27, 0.12, 0.16, 0.22, 0.29),
                     Y1 = c(1.00, 0.68, 0.57, 0.56, 0.80, 0.68, 0.50, 0.28),
-                    Z1 = c(0.00, 0.00, 0.00, 0.17, 0.08, 0.17, 0.38, 0.43),
+                    Z1 = c(0.00, 0.00, 0.00, 0.17, 0.08, 0.17, 0.28, 0.43),
                     X2 = c(0.62, 0.24, 0.34, 0.19, 0.38, 0.00, 0.00, 0.00),
                     Y2 = c(0.00, 0.62, 0.47, 0.60, 0.00, 0.76, 0.60, 0.42),
                     Z2 = c(0.38, 0.15, 0.20, 0.21, 0.62, 0.24, 0.40, 0.58));
-marks  <- data.frame(Label=c("VAT", "NMORB", "*", "EMORB", "Calc-alkali", "Cont.", "Alkaline", "Intercont. rifts"),
+marks  <- data.frame(Label=c("VAT", "NMORB",  "*", "EMORB", "Calc-alkali", "Cont.", "Alkaline", "Intercont. rifts"),
-                     X=c(0.24, 0.07, 0.20, 0.11, 0.70, 0.45, 0.17, 0.18),
+                          X=c(0.24,    0.07, 0.20,    0.10,          0.70,    0.45,       0.17,              0.18),
-                     Y=c(0.70, 0.80, 0.63, 0.45, 0.10, 0.10, 0.20, 0.10),
+                          Y=c(0.70,    0.80, 0.63,    0.45,          0.10,    0.10,       0.20,              0.10),
-                     Z=c(0.07, 0.13, 0.17, 0.43, 0.20, 0.45, 0.63, 0.72));
+                          Z=c(0.07,    0.17, 0.17,    0.43,          0.20,    0.45,       0.63,              0.72));
 ret <- c();
 ret$type <- "ternogram";
@@ Строка 59: / Строка 60: @@
 }
 </Code>
+{{tag>classifydiag wholerock}}