Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
classifydiag:cpx_morimoto_kitamura [2016/02/19 13:06] admin |
classifydiag:cpx_morimoto_kitamura [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Q-J diagram Morimoto and Kitamura, 1983 ====== | + | ====== Px: Q-J Diagram, Morimoto, 1988 ====== |
| Classifiaction of pyroxene in Q-J system. | Classifiaction of pyroxene in Q-J system. | ||
| Строка 5: | Строка 5: | ||
| === Details === | === Details === | ||
| - | ^ Article | Morimoto, N., Kitamura, M., 1983. Q–J diagram for classification of pyroxens. Journal of the Japanese Association of Mineralogy, Petrology, and Economic Geology 78, 141. | | + | | Reference | <ref:morimoto1988> | |
| - | ^[[:ppy:mod_classifydiag#cpx_morimoto_kitamura|Построить]] ^ ^ | + | | Data | mineral | |
| + | | Input | wtp | | ||
| + | |||
| + | <use:classifydiag.cpx_morimoto_kitamura> | ||
| + | <test:classifydiag.cpx_morimoto_kitamura> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * <del>заголовок</del> | ||
| + | * <del>краткое описание</del> | ||
| + | * <del>статья</del> | ||
| + | * <del>ссылка</del> | ||
| + | * <del>карточка</del> | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| === Код метода === | === Код метода === | ||
| <Code linenums lang-r> | <Code linenums lang-r> | ||
| - | require('ggplot2'); | ||
| - | source('recalc_cpx_sturm.r'); | ||
| - | classifydiag.cpx_morimoto_kitamura <- function (wtp_data, annotate=T, ...) | + | source("recalc_cpx_sturm.r"); |
| - | { | + | |
| - | ds <- selectNames(recalc.cpx_sturm(wtp_data),c("Name", "Ca_pfu", "Mg_pfu", "Fe_M2_pfu", "Na_pfu")); | + | |
| - | pts <- data.frame(Name=ds$Name, X=2*ds$Na_pfu, Y=ds$Ca_pfu + ds$Fe_M2_pfu + ds$Mg_pfu); | + | classifydiag.cpx_morimoto_kitamura <- function (wtp_data, annotate=T, ...){ |
| - | marks <- data.frame(Label=c("Quad", "Ca-Na", "Na", "Other", "Jo,Ka,\nPe,Es", "En,Fs,Df,\nHd,Wo"), | + | ds <- selectNames(recalc.cpx_sturm(wtp_data), |
| + | c("Name", "Ca_pfu", "Mg_pfu", "Fe_M2_pfu", "Na_pfu")); | ||
| + | |||
| + | pts <- data.frame(Name=ds$Name, | ||
| + | X=2 * ds$Na_pfu, | ||
| + | Y=ds$Ca_pfu + ds$Fe_M2_pfu + ds$Mg_pfu); | ||
| + | |||
| + | marks <- data.frame(Label=c("Quad", "Ca-Na", "Na", "Other", | ||
| + | "Jo,Ka,\nPe,Es", "En,Fs,Df,\nHd,Wo"), | ||
| X=c(0.1, 0.9, 1.5, 0.3, 0.0, 0.0), | X=c(0.1, 0.9, 1.5, 0.3, 0.0, 0.0), | ||
| Y=c(1.5, 0.9, 0.2, 0.5, 1.0, 2.0)); | Y=c(1.5, 0.9, 0.2, 0.5, 1.0, 2.0)); | ||
| Строка 35: | Строка 54: | ||
| ret <- c(); | ret <- c(); | ||
| + | ret$type <- "diagram"; | ||
| ret$points <- pts; | ret$points <- pts; | ||
| ret$limits <- limits; | ret$limits <- limits; | ||
| Строка 44: | Строка 64: | ||
| } | } | ||
| </Code> | </Code> | ||
| + | |||
| + | {{tag>classifydiag mineral}} | ||