Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
classifydiag:tas [2016/03/07 22:32] admin создано |
classifydiag:tas [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| ====== TAS Classification ====== | ====== TAS Classification ====== | ||
| - | TAS | + | TAS Daigram. |
| === Details === | === Details === | ||
| + | | Reference | | | ||
| + | | Data | bulk | | ||
| + | | Input | K2O_wtp, Na2O_wtp, SiO2_wtp | | ||
| + | |||
| + | <use:classifydiag.tas> | ||
| + | <test:classifydiag.tas> | ||
| <WRAP center round todo 60%> | <WRAP center round todo 60%> | ||
| Строка 10: | Строка 16: | ||
| * статья | * статья | ||
| * ссылка | * ссылка | ||
| - | * карточка | + | * <del>карточка</del> |
| * подробное описание | * подробное описание | ||
| * код | * код | ||
| Строка 45: | Строка 51: | ||
| "Trachyte", | "Trachyte", | ||
| "Rhyolite"), | "Rhyolite"), | ||
| - | X=c( 43, 39, 45, 48, 49, 50, 55, 54, 54, 60, 58, 58, 67, 66, 65, 73), | + | X=c( 43, 39, 44, 48, 49, 49, 55, 53, 53, 60, 58, 58, 67, 66, 65, 73), |
| - | Y=c(2.0, 8.5, 6.5, 3.0, 6.0, 9.0, 3.0, 6.0, 12.0, 4.0, 8.0, 14.0, 4.5, 8.0, 11.0, 8.0)); | + | Y=c(2.0, 8.5, 6.5, 3.0, 6.0, 9.0, 3.0, 7.0, 12.0, 4.0, 8.0, 14.0, 4.5, 9.0, 11.0, 8.0)); |
| limits <- c(35,77,0,16); | limits <- c(35,77,0,16); | ||
| - | lines <- data.frame(X1 = c(53, 57, 63, 53, 53, 53), | + | |
| - | Y1 = c(0, 0, 0, 0.5, 1.6, 2.6), | + | rads <- data.frame(X1 = c( 41, 41, 45, 45, 45, 52), |
| - | X2 = c(53, 57, 63, 63, 63, 63), | + | Y1 = c(0.5, 7, 0.5, 5, 5, 5), |
| - | Y2 = c(2.6, 3.15, 4, 1.0, 2.3, 4)); | + | X2 = c( 41, 52.3, 45, 61, 52, 69), |
| + | Y2 = c( 7, 14, 5, 13.5, 5, 8)); | ||
| + | |||
| + | pls <- data.frame(X1 = c( 41, 52, 52, 49.2, 57, 57, 53, 63, 63, 57.5, 73.5, 69), | ||
| + | Y1 = c( 3, 0.5, 5, 7.3, 1.5, 6, 9.3, 2.0, 7.0, 11.7, 3, 8), | ||
| + | X2 = c( 45, 52, 49.2, 45, 57, 53, 48.5, 63, 57.5, 49, 69, 69), | ||
| + | Y2 = c( 3, 5, 7.3, 9.5, 6, 9.3, 11.5, 7.0, 11.7, 15.5, 8, 13)); | ||
| labels <- c("SiO2", "K2O+Na2O"); | labels <- c("SiO2", "K2O+Na2O"); | ||
| Строка 63: | Строка 75: | ||
| ret$limits <- limits; | ret$limits <- limits; | ||
| ret$marks <- marks; | ret$marks <- marks; | ||
| + | ret$lines <- rbind(rads,pls); | ||
| ret$labels <- labels; | ret$labels <- labels; | ||
| Строка 69: | Строка 81: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag>classifydiag wholerock}} | ||