Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
classifydiag:tas_ru_plutonic [2016/12/19 13:32] f0ma |
classifydiag:tas_ru_plutonic [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| ====== TAS диаграмма для плутонических пород ====== | ====== TAS диаграмма для плутонических пород ====== | ||
| - | TAS диаграмма для плутонических пород. | + | TAS диаграмма для плутонических пород. Сокращения: н/щ - низкощелочной, у/щ - умереннощелочной, щел. - щелочной, кв. - кварцевый. |
| === Details === | === Details === | ||
| Строка 24: | Строка 24: | ||
| Y=ds$K2O_wtp + ds$Na2O_wtp); | Y=ds$K2O_wtp + ds$Na2O_wtp); | ||
| - | marks <- data.frame(Label=c(""), | + | marks <- data.frame(Label=c("фойдовые\nпороды", |
| - | X=c(0.0), | + | "щелочные\nпороды разной\nосновности", |
| - | Y=c(0.0)); | + | "монцо-\nгаббро", |
| + | "габбро", | ||
| + | "н/щ\nгаббро", | ||
| + | "монцо-\nгаббро\nдиориты", | ||
| + | "габбро\nдиориты", | ||
| + | "н/щ\nгаббро\nдиориты", | ||
| + | "монцо-\nдиориты", | ||
| + | "диориты", | ||
| + | "н/щ\nдиориты", | ||
| + | "монцониты", | ||
| + | "кв. диориты", | ||
| + | "н/щ кв.\nдиориты", | ||
| + | "фоидовые\nсиениты", | ||
| + | "щел.\nсиениты", | ||
| + | "сиениты", | ||
| + | "грано-\nсиениты", | ||
| + | "грано-\nдиориты", | ||
| + | "н/щ грано-\nдиориты", | ||
| + | "щел.\nграниты", | ||
| + | "у/щ\nграниты", | ||
| + | "граниты", | ||
| + | "н/щ\nграниты", | ||
| + | "щел.\nлейко-\nграниты", | ||
| + | "у/щ\nлейко-\nграниты", | ||
| + | "лейко-\nграниты", | ||
| + | "н/щ\nлейко-\nграниты", | ||
| + | "ультраосновные", | ||
| + | "основные", | ||
| + | "средние", | ||
| + | "кислые", | ||
| + | "н/щ", | ||
| + | "норм.\nщел.", | ||
| + | "у/щ", | ||
| + | "щел." | ||
| + | ), | ||
| + | X=c( 42,47.5,47.5, 48.5, 49, 50.8, 53.5, 53.5, 54, 57, 57 , 58, 61.5, 61.5, 57.5, 61.5, 63, 65, 66.5, 66.5, 69, 70.5, 71, 71, 75, 75 , 75.5, 75.5, 40, 48.5, 57.5, 70, 79, 79, 79, 79), | ||
| + | Y=c(9.5, 8.5, 4.7, 2.8, 1.2, 6.3, 4, 2, 7.4, 4.8, 2.5 , 8.5, 5.5, 3, 13.5, 12.2, 10.3, 8.5, 6.5, 4.1, 11, 9, 6.8, 4.5, 10.7, 8.7, 7, 5, -0.5, -0.5, -0.5, -0.5, 5, 7, 8.5, 9.5)); | ||
| - | limits <- c(35,78,0,14); | + | limits <- c(35,79,-1,14); |
| - | sec <- data.frame(X1 = c(45, 52, 63), | + | sec <- data.frame(X1 = c( 45, 52, 63), |
| - | Y1 = c( 0, 0, 0), | + | Y1 = c( 0, 0, 0), |
| - | X2 = c(45, 52, 63), | + | X2 = c( 45, 52, 63), |
| - | Y2 = c(1, 1, 1)); | + | Y2 = c(0.5, 0.5, 0.5)); |
| rads <- data.frame(X1 = c(41, 41, 37, 35, 37, 41, 55, 69, 73, 45, 69, 73, 41, 45, 49, 61.25, 67, 72.5, 59.2), | rads <- data.frame(X1 = c(41, 41, 37, 35, 37, 41, 55, 69, 73, 45, 69, 73, 41, 45, 49, 61.25, 67, 72.5, 59.2), | ||
| Строка 41: | Строка 77: | ||
| Y2 = c( 7, 14, 14, 0.8, 1.5, 5.8, 7.7, 7.9, 8, 5.7, 6, 5.8, 0.2, 0.2, 4, 10, 10, 9, 12.2)); | Y2 = c( 7, 14, 14, 0.8, 1.5, 5.8, 7.7, 7.9, 8, 5.7, 6, 5.8, 0.2, 0.2, 4, 10, 10, 9, 12.2)); | ||
| - | pls <- data.frame(X1 = c(), | + | pls <- data.frame(X1 = c( 45, 52, 52, 55, 55, 59, 59, 64, 64, 57.7, 69, 69 , 73, 73, 72.5), |
| - | Y1 = c(), | + | Y1 = c(0.2, 0.9, 5, 1.3, 6, 1.8, 6.4, 2.4, 7, 11.7, 3, 7.7 , 3.5, 7.9, 10), |
| - | X2 = c(), | + | X2 = c( 45, 52, 47, 55, 50, 59, 53, 64, 57.7, 52.5, 69, 65.5, 73,72.5, 71.5), |
| - | Y2 = c()); | + | Y2 = c( 5, 5, 6, 6, 7.5, 6.4, 9.3, 7, 11.7, 14, 7.7, 12 , 7.9, 10, 11.7)); |
| labels <- c("SiO2", "K2O+Na2O"); | labels <- c("SiO2", "K2O+Na2O"); | ||
| Строка 53: | Строка 89: | ||
| ret$points <- pts; | ret$points <- pts; | ||
| ret$limits <- limits; | ret$limits <- limits; | ||
| - | ret$lines <- rbind(rads,sec); | + | ret$lines <- rbind(rads,sec,pls); |
| ret$labels <- labels; | ret$labels <- labels; | ||
| + | ret$marks <- marks; | ||
| return(ret); | return(ret); | ||