MMA如何绘制三相图

Question

想绘制如图所示的三相图，可是不知道该用MMA的哪些函数做出类似效果。

Answer 1

http://mathematica.stackexchange.com/q/66168/1871

http://mathematica.stackexchange.com/q/39733/1871

Comments

没有TernaryPlot真是个败笔~

Answer 2

实质执行的是坐标变换，至于读数标0到1还是1到0，取决于你这个轴向是看两个端点的哪个的成分，我这里假设x轴看的是$H_{2}O$，y轴看的是PES-C，有如下成分：

SeedRandom[1]
data = SortBy[#/Total[#] & /@ RandomReal[1, {7, 3}], Last]

{{0.379475, 0.487694, 0.132832}, {0.354376, 0.397371,
  0.248253}, {0.463694, 0.197668, 0.338638}, {0.421729, 0.127533,
  0.450738}, {0.475687, 0.0648416, 0.459471}, {0.270826, 0.192391,
  0.536783}, {0.256659, 0.150223, 0.593118}}

画图如下：

ListLinePlot[{Most /@ data, 
  Transpose[
   Transpose[{{1, 0}, {.5, Sqrt[3]/2}}].Transpose[Most /@ data]]}, 
 AxesOrigin -> {0, 0}, Axes -> False, AspectRatio -> Automatic, 
 Epilog -> {{ColorData[97, 2], Thickness[.025], Arrowheads[0.1], 
    Arrow[{{0, 0}, {1, 0}}], Arrow[{{1/2, Sqrt[3]/2}, {0, 0}}], 
    Arrow[{{1, 0}, {1/2, Sqrt[3]/2}}]}, {ColorData[97, 1], 
    Thickness[.01], Arrow[{{0, 0}, {1, 0}}], 
    Arrow[{{0, 0}, {0, 1}}]}}, 
 PlotRange -> {{-.05, 1}, {-.05, Sqrt[3]/2 + .2}}, 
 PlotMarkers -> {\[FilledCircle], \[FilledUpTriangle]}, 
 PlotLegends -> {"标准坐标系下成分点", "三元相图坐标系"}]

Comments

最好把箭头去掉，标上刻度，要不不太好看哎