Различия

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

Ссылка на это сравнение

Предыдущая версия справа и слева Предыдущая версия
Следующая версия
Предыдущая версия
classifydiag:amf [2016/03/06 17:51]
admin
classifydiag:amf [2018/11/12 15:07] (текущий)
Строка 1: Строка 1:
 ====== Alk-MgO-FeO:​ Thoeliitic - Calc-Alkaline ====== ====== Alk-MgO-FeO:​ Thoeliitic - Calc-Alkaline ======
  
-Thoeliitic - Calc-Alkaline+Thoeliitic - Calc-Alkaline ​for bulk composition.
  
 === Details === === Details ===
  
-<data plot> +Reference ​| |  
-Reference ​[wiki]: ​ +Data | | 
-Data: bulk +Input K2O_wtp, Na2O_wtp, MgO_wtp, FeO_wtp, Fe2O3_wtp ​
-InputK2O_wtp, Na2O_wtp, MgO_wtp, FeO_wtp, Fe2O3_wtp + 
-</data>+<use:​classifydiag.amf>​ 
 +<​test:​classifydiag.amf>
  
 <WRAP center round todo 60%> <WRAP center round todo 60%>
-  * заголовок +  * <del>заголовок</​del>​ 
-  * краткое описание+  * <del>краткое описание</​del>​
   * статья   * статья
   * ссылка   * ссылка
-  * карточка+  * <del>карточка</​del>​
   * подробное описание   * подробное описание
-  * код+  * <del>код</​del>​
   * тест   * тест
 </​WRAP>​ </​WRAP>​
  
-=== Код метода ​===+=== Source ​===
  
 <Code linenums lang-r> <Code linenums lang-r>
Строка 36: Строка 37:
                   Z = ds$MgO_wtp);​                   Z = ds$MgO_wtp);​
    
-labels <- c("K2O + Na2O", "FeO+Fe2O3", "​MgO"​);​ +labels <- c("Alk", "FeO*", "​MgO"​); 
- + 
 +lines <- data.frame(X1 = c(0.68, 0.63, 0.59, 0.46, 0.37, 0.30, 0.25, 0.22, 0.20, 0.19, 0.18, 0.17), 
 +                    Y1 = c(0.29, 0.32, 0.35, 0.44, 0.50, 0.53, 0.55, 0.55, 0.55, 0.52, 0.47, 0.40), 
 +                    Z1 = c(0.03, 0.05, 0.06, 0.10, 0.15, 0.17, 0.20, 0.23, 0.25, 0.29, 0.36, 0.43), 
 +                    X2 = c(0.63, 0.59, 0.46, 0.37, 0.30, 0.25, 0.22, 0.20, 0.19, 0.18, 0.17, 0.15), 
 +                    Y2 = c(0.32, 0.35, 0.44, 0.50, 0.53, 0.55, 0.55, 0.55, 0.52, 0.47, 0.40, 0.35), 
 +                    Z2 = c(0.05, 0.06, 0.10, 0.15, 0.17, 0.20, 0.23, 0.25, 0.29, 0.36, 0.43, 0.50)); 
 + 
 +marks  <- data.frame(Label=c("​Tholeiitic",​ "​Calc-Alcaline"​),​ 
 +                     ​X=c(0.18,​ 0.57), 
 +                     ​Y=c(0.60,​ 0.15), 
 +                     ​Z=c(0.22,​ 0.28)); 
 ret <- c(); ret <- c();
 ret$type <- "​ternogram";​ ret$type <- "​ternogram";​
 ret$points <- pts; ret$points <- pts;
 ret$labels ​ <- labels; ret$labels ​ <- labels;
 +ret$lines <- lines;
 +ret$marks <- marks;
    
 return(ret);​ return(ret);​
 } }
 </​Code>​ </​Code>​
 +
 +{{tag>​classifydiag}}
  • classifydiag/amf.1457286682.txt.gz
  • Последние изменения: 2018/11/12 15:08
  • (внешнее изменение)