demo/trifield.R

In trifield: Some basic facilities for ternary fields and plots

grid.size = 128
par(mar = rep(2, 4), oma = rep(0, 4))
tg = ternary.grid(grid.size)
f = function(x)
	sin(2 * pi * x[1]) +
	sin(3 * pi * x[2]) +
	sin(4 * pi * x[3])
z = ternary.apply(tg, f)
tf = ternary.field(tg, z)
plot(tf)
ternary.legend()