Различия
Здесь показаны различия между двумя версиями данной страницы.
| Следующая версия | Предыдущая версия | ||
|
recalc:spl_tpf_realc0 [2016/09/16 12:18] admin создано |
recalc:spl_tpf_realc0 [2018/11/12 15:08] (текущий) |
||
|---|---|---|---|
| Строка 30: | Строка 30: | ||
| { | { | ||
| return(tpf.recalc_minaral("SPL",wtp_data)); | return(tpf.recalc_minaral("SPL",wtp_data)); | ||
| + | } | ||
| + | |||
| + | recalc.spl_tpf_realc0.test <- function () { | ||
| + | |||
| + | src <- data.frame(Name='test',SiO2_wtp=c(46.920, 45.230), TiO2_wtp=c(0.500, 0.640), Al2O3_wtp=c(29.430, 30.630), | ||
| + | FeO_wtp=c(3.610, 4.220), MnO_wtp=c(0.180, 0.010), MgO_wtp=c(2.280, 1.490), CaO_wtp=c(0.0, 0.270), Na2O_wtp=c(0.640, 0.690), K2O_wtp=c(9.330,9.470)); | ||
| + | |||
| + | result <- recalc.spl_tpf_realc0 (src); | ||
| + | print(result); | ||
| } | } | ||
| </Code> | </Code> | ||
| {{tag> order71}} | {{tag> order71}} | ||