Различия
Здесь показаны различия между двумя версиями данной страницы.
| Предыдущая версия справа и слева Предыдущая версия Следующая версия | Предыдущая версия | ||
|
sensors:p:cpx_pl_perchuk [2016/01/29 13:55] admin |
sensors:p:cpx_pl_perchuk [2021/09/23 15:27] (текущий) f0ma |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Cpx-Pl-Qz, Perchuk, 2003 ====== | + | ====== Cpx-Pl-Qz: Perchuk, 2003 ====== |
| Ab ↔ Jd+Qz. | Ab ↔ Jd+Qz. | ||
| Строка 11: | Строка 11: | ||
| ^ Диапазон значений | 200 °C ≤ T ≤ 1400 °C, 5 kbar ≤ P ≤ 35 kbar | | ^ Диапазон значений | 200 °C ≤ T ≤ 1400 °C, 5 kbar ≤ P ≤ 35 kbar | | ||
| ^ Обновляет сенсоры | | | ^ Обновляет сенсоры | | | ||
| - | ^[[:ppy:mod_sensors#p_cpx_pl_perchuk|Рассчитать]] ^ ^ | + | |
| + | <use:sensors.p.cpx_pl_perchuk> | ||
| + | <test:sensors.p.cpx_pl_perchuk> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * <del>заголовок</del> | ||
| + | * краткое описание | ||
| + | * статья | ||
| + | * ссылка | ||
| + | * карточка | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| + | |||
| === Source === | === Source === | ||
| Строка 21: | Строка 36: | ||
| sensors.p.cpx_pl_perchuk <- function(Cpx, Pl, Temp=600, usePFU = FALSE, ...){ | sensors.p.cpx_pl_perchuk <- function(Cpx, Pl, Temp=600, usePFU = FALSE, ...){ | ||
| + | |||
| + | Name <- paste0(Cpx$Name,'-',Pl$Name); | ||
| if(!usePFU) | if(!usePFU) | ||
| Строка 33: | Строка 50: | ||
| X_Mg = Cpx_pfu$Mg_pfu/(Cpx_pfu$Mg_pfu+Cpx_pfu$Fe_p2_pfu); | X_Mg = Cpx_pfu$Mg_pfu/(Cpx_pfu$Mg_pfu+Cpx_pfu$Fe_p2_pfu); | ||
| X_Jd = Cpx_pfu$Na_pfu - Cpx_pfu$Fe_p3_pfu; | X_Jd = Cpx_pfu$Na_pfu - Cpx_pfu$Fe_p3_pfu; | ||
| - | X_Ab = Pl_pfu$Na_pfu/(Pl_pfu$Na_pfu+Pl_pfu$К_pfu+Pl_pfu$Ca_pfu); | + | X_Ab = Pl_pfu$Na_pfu/(Pl_pfu$Na_pfu+Pl_pfu$K_pfu+Pl_pfu$Ca_pfu); |
| X_Di = X_Mg*(1-X_Jd) | X_Di = X_Mg*(1-X_Jd) | ||
| Строка 85: | Строка 102: | ||
| )^0.5)/(6.2*10^-6) | )^0.5)/(6.2*10^-6) | ||
| - | return (data.frame(Name=paste0(Cpx$Name,'-',Pl$Name), T_seq=Temp, P_calc_cpx_pl_perchuk=X_Jd)) | + | return (data.frame(Name=Name, T_seq=Temp, P_calc_cpx_pl_perchuk=Pcalc, X_Jd = X_Jd, X_Ab = X_Ab)) |
| } | } | ||