# See demo(trifield)
## Not run:
# 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()
# ## End(Not run)
Run the code above in your browser using DataLab