Re: Plotting with a simplex

*To*: mathgroup at smc.vnet.net*Subject*: [mg5842] Re: [mg5518] Plotting with a simplex*From*: Sherman Reed <Sherman.Reed at worldnet.att.net>*Date*: Sun, 2 Feb 1997 01:30:06 -0500*Sender*: owner-wri-mathgroup at wolfram.com

At 12:26 AM 12/15/96 +0000, you wrote: >Is there a way I can do plots for variables that are confined to a >simplex? The material I sent to you in December is probably the end of the line as far as simple plots are concerned. I will be glad to modify or whatever to suit your needs. I could not think of something that had a simple presentation to extend beyond 3 dimensions. I have done nothing on a two dimensional presentation. For dimensions greater than 3, I offer the following: Assume that a sample set is composed of set of frequencies say {a,b,c,d,e} and that we have ten sample sets and that we want to compare them. I suggest that you compare the first element of each sample set, then the second, etc. Graphically, Graphics`Graphics` has an option that will do exactly that without any horsing around. One could also find means, medians, etc for each frequency set. One could also apply some simple hypothesis testing to each frequency set. The code below works on 2.2.3, if you want it on 3.0, I will have to do a little work, but not much. You will have to paste this into Mma, and then convert it to input.Select all the material, then use Style, then CellStyle, then Input. The code should execute just fine. I have tried it and it works. Sherman C. Reed data=Table[{.2+.1*(Random[]-.5), .3+.1*(Random[]-.5), .25+.1*(Random[]-.5), .1+.1*(Random[]-.5), 0},{x,1,10,1}]; For[i=1,i<1+Length[data],i++, data[[i,5]]=1-Apply[Plus,data[[i]]] ] <<Graphics`Graphics` BarChart[data[[1]],data[[2]],data[[3]], data[[4]],data[[5]],data[[6]],data[[7]],data[[8]], data[[9]],data[[10]],Frame->True, GridLines->{None,Automatic}, PlotLabel->FontForm[PlotLabel,{"TimesBold",12}] ]