Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:t:amp_pl_holland_blundy [2015/10/20 11:25] admin |
sensors:t:amp_pl_holland_blundy [2018/11/12 15:07] (текущий) |
||
|---|---|---|---|
| Строка 5: | Строка 5: | ||
| === Details === | === Details === | ||
| - | ^ Article | Holland, T. , Blundy, J. Non-ideal interactions in calcic amphiboles and their bearing on amphibole-plagioclase thermometry | | + | ^ Article | <ref:holland1994> | |
| - | ^ Reference | {{:sources:holland1994.pdf}} | | + | |
| ^ Collibration | | | ^ Collibration | | | ||
| - | ^ Presition | ± 50 °C | | + | ^ Precision | ± 50 °C | |
| ^ Ranges | 1 < P < 16 kbar, 400 °C < T < 1100 °C | | ^ Ranges | 1 < P < 16 kbar, 400 °C < T < 1100 °C | | ||
| ^ Renew sensors | Blundy and Holland (1990), Kohn and Spear (1989, 1990). | | ^ Renew sensors | Blundy and Holland (1990), Kohn and Spear (1989, 1990). | | ||
| - | ^[[:ppy:mod_sensors#t_amp_pl_holland_blundy|Calculate]] ^ ^ | + | <use:sensors.t.amp_pl_holland_blundy> |
| + | <test:sensors.t.amp_pl_holland_blundy> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * <del>заголовок</del> | ||
| + | * <del>краткое описание</del> | ||
| + | * <del>статья</del> | ||
| + | * <del>ссылка</del> | ||
| + | * карточка | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| Строка 18: | Строка 29: | ||
| <Code linenums lang-r> | <Code linenums lang-r> | ||
| source('recalc_amp_holland_blundy.r'); | source('recalc_amp_holland_blundy.r'); | ||
| - | source('recalc_pl_8ox.r'); | + | source('recalc_pl_nm.r'); |
| source('interpmin_amp_holland_blundy.r'); | source('interpmin_amp_holland_blundy.r'); | ||
| Строка 26: | Строка 37: | ||
| Amp2 <- interpmin.amp_holland_blundy(Amp); | Amp2 <- interpmin.amp_holland_blundy(Amp); | ||
| Amp <- cbind(Amp1,Amp2); | Amp <- cbind(Amp1,Amp2); | ||
| - | Pl <- recalc.pl_8ox(Pl); | + | Pl <- recalc.pl_nm(Pl); |
| Pl$X_An <- Pl$Ca_pfu; | Pl$X_An <- Pl$Ca_pfu; | ||
| - | Pl$X_Ab <- 1 - X_An; | + | Pl$X_Ab <- 1 - Pl$X_An; |
| K_ed_tr <- (27/256)*(Amp$X_vac_A*Amp$X_Si_T1*Pl$X_Ab)/(Amp$X_Na_A*Amp$X_Al_T1); | K_ed_tr <- (27/256)*(Amp$X_vac_A*Amp$X_Si_T1*Pl$X_Ab)/(Amp$X_Na_A*Amp$X_Al_T1); | ||
| Строка 46: | Строка 57: | ||
| ) | ) | ||
| )-273.15; | )-273.15; | ||
| - | return (data.frame(Name=paste0(Amp$Name,'-',Pl$Name), P_seq=P, T_calc_Holland_Blundy_A=T_A, T_calc_Holland_Blundy_B=T_B,Pl$X_An,Pl$X_Ab)); | + | return (data.frame(Name=paste0(Amp$Name,'-',Pl$Name), P_seq=P, T_calc_Holland_Blundy_A=T_A, T_calc_Holland_Blundy_B=T_B)); |
| } | } | ||