[Date Index] [Thread Index] [Author Index]

color points in TableForm

• To: mathgroup at smc.vnet.net
• Subject: [mg63000] color points in TableForm
• From: Clifford Martin <camartin at snet.net>
• Date: Sat, 10 Dec 2005 06:03:16 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

MathGroup,
  
  Below I've appended a portion of code that works fine. I've not put in  the plotpoints function because it isn't important for my question.  Notice that the color of each regression line is set by the iterator i  as it cycles through myList. What I'd like is to add a third column in  the table generated by the TableForm in the yearvsrsquarreg  function  that gives the color (it could be a point or whatever)  associated with that years regression line. So for example, the first  cycle through myList the regression line has a color of Hue[.15] and  I'd like the first entry in the TableForm to have a dot in the third  column that gives Hue[.15].  I've tried wrapping PrintStyle around  the TableForm function and iterating on Hue as before but I can't seem  to make it work. Any help would be appreciated.
  
  plotregresequations = Table[Plot[hiho[[i,3]], {x, 0,  Ceiling[Max[myList[[i]]]]}, PlotStyle -> {Hue[0.15*i],  Thickness[0.002]}, 
       DisplayFunction -> Identity], {i, 1, Length[myList]}]; 
  funnylist = Table[splacct[[i,1]][[15,1]], {i, 1, Length[splacct]}]; 
  colrsquar = hiho[[All,1]]; 
  yearvsrsquarreg = TableForm[Transpose[{funnylist, colrsquar}], TableHeadings -> {None, {"Year", "R Squared"}}]; 
  Show[plotpoints, plotregresequations, DisplayFunction ->  $DisplayFunction, AxesLabel -> {"Heat Load Factor", "Fuel Use  Factor"}, 
     PlotLabel -> FontForm[lable, {"Arial-Bold", 14}], ImageSize -> 700]; 
  Print[yearvsrsquarreg]; 
  
  Thanks.
  
  Cliff