0
|
6431 Views
|
3 Replies
|
4 Total Likes
View groups...
Share

# Can Mathematica produce Ternary Plots ?

Posted 9 years ago
 Can Mathematica produce a Ternary Plots ?
3 Replies
Sort By:
Posted 9 years ago
 Please also see this: How to plot ternary density plots?
Posted 9 years ago
 Perfect!
Posted 9 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] ] `