Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
recalc:oxygen_ptexl3 [2016/02/05 15:45] admin created |
recalc:oxygen_ptexl3 [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 1: | Строка 1: | ||
| - | ====== Recalculation by Oxygens from PTExl3 program ====== | + | ====== Common: PTExl3 ====== |
| + | Calculation from PTExl3 spreadsheet. | ||
| + | |||
| + | === Details === | ||
| + | |||
| + | ^ Reference | [[:about_tpf|TPF]] | | ||
| + | ^ Input | P2O5_wtp, SiO2_wtp, TiO2_wtp, Al2O3_wtp, Cr2O3_wtp, V2O3_wtp, Sc2O3_wtp, Fe2O3_wtp, FeO_wtp, MnO_wtp, MgO_wtp, NiO_wtp, CoO_wtp, CaO_wtp, SrO_wtp, Na2O_wtp, K2O_wtp, Li2O_wtp, Rb2O_wtp, CuO_wtp, ZnO_wtp, CdO_wtp, PbO_wtp, SnO2_wtp, ZrO2_wtp, CeO2_wtp, Y2O3_wtp, La2O3_wtp | | ||
| + | ^ Results | pfu | | ||
| + | <use:recalc.oxygen_ptexl3> | ||
| + | <test:recalc.oxygen_ptexl3> | ||
| + | |||
| + | <WRAP center round todo 60%> | ||
| + | * заголовок | ||
| + | * краткое описание | ||
| + | * статья | ||
| + | * ссылка | ||
| + | * <del>карточка</del> | ||
| + | * подробное описание | ||
| + | * <del>код</del> | ||
| + | * тест | ||
| + | </WRAP> | ||
| + | |||
| + | === Source === | ||
| <code> | <code> | ||
| recalc.oxygen_ptexl3 <- function (wtp_data, count=12, ...) | recalc.oxygen_ptexl3 <- function (wtp_data, count=12, ...) | ||
| Строка 33: | Строка 55: | ||
| ox_coeffs <- c(2.5, 2, 2 , | ox_coeffs <- c(2.5, 2, 2 , | ||
| 1.5, 1.5, 1.5, 1.5, 1.5, | 1.5, 1.5, 1.5, 1.5, 1.5, | ||
| - | 1, 1, 1, 1, 1 | + | 1, 1, 1, 1, 1, |
| 1, 1, 0.5, 0.5, 0.5, | 1, 1, 0.5, 0.5, 0.5, | ||
| 0.5, 1, 1, 1, 1, | 0.5, 1, 1, 1, 1, | ||
| Строка 39: | Строка 61: | ||
| 1.5, 1.5); | 1.5, 1.5); | ||
| - | oxsum <- rowApply(`*`, tempf, ox_coeffs) | + | oxsum <- rowApply(`*`, wtp_norm, ox_coeffs) |
| oxsum <- rowSums(oxsum) | oxsum <- rowSums(oxsum) | ||
| - | pfu <- wtp_norm * 4 / oxsum; | + | pfu <- wtp_norm * count / oxsum; |
| pfu_sum <- rowSums(pfu); | pfu_sum <- rowSums(pfu); | ||
| pfu$Sum <- pfu_sum; | pfu$Sum <- pfu_sum; | ||
| - | return(cbind(wtp_data$Name, pfu)); | + | return(cbind(data.frame(Name = wtp_data$Name), pfu)); |
| } | } | ||
| </code> | </code> | ||