# Can Mathematica produce Ternary Plots ?

Posted 8 years ago
6104 Views
|
3 Replies
|
4 Total Likes
|
 Can Mathematica produce a Ternary Plots ?
3 Replies
Sort By:
Posted 8 years ago
 Please also see this: How to plot ternary density plots?
Posted 8 years ago
 Do you mean ternary plots like this?That was produced with the Ternary Plots graphics in my Presentations package, which can be purchased through my web site. The various commands are:TernaryScale, ToTernaryCoordinates, FromTernaryCoordinates, TernaryReplacementRules, DrawTernaryGrid, TernaryTriangle, TernaryPlotRange, TernaryPadding, TernaryPlot, TernaryLocator, TernaryContourDraw, TernaryRegionDraw, TernaryDraw3D.The actual code for the above plot was: << Presentations Module[ {data1, data2, temp1, temp2}, data1 = Table[{temp1 = RandomReal[NormalDistribution[20, 2]], temp2 = RandomReal[NormalDistribution[30, 4]], TernaryScale - temp1 - temp2}, {40}]; data2 = Table[{temp1 = RandomReal[NormalDistribution[25, 8]], temp2 = RandomReal[NormalDistribution[50, 1]], TernaryScale - temp1 - temp2}, {40}]; plot1 = TernaryPlot[ DrawTernaryGrid[5, TGBackground -> LightBlue, TGLabels -> {1.4, {"x", "y", "z"}, "side"}], CirclePoint[ToTernaryCoordinates[#], 3, Black, Orange] & /@ data1, CirclePoint[ToTernaryCoordinates[#], 3, Black, Green] & /@ data2] ] `
Posted 8 years ago
 Perfect!