小编unk*_*gle的帖子

我试图在Mathematica中绘制一个在单位单位上定义的函数.举一个随机的例子,假设我想在所有x1,x2,x3上绘制sin(x1*x2*x3),使得x1,x2,x3> = 0和x1 + x2 + x3 = 1.是否有一个整洁的方式这样做,除了明显的写作方式之外

Plot3D[If[x+y<=1,Sin[x y(1-x-y)]],{x,0,1},{y,0,1}]

？

理想情况下,我想要的是一种仅在单纯形式上绘图的方式.我发现网站http://octavia.zoology.washington.edu/Mathematica/有一个旧包,但它不适用于我最新版本的Mathematica.