Re: Blending in DiscretePlot

*To*: mathgroup at smc.vnet.net*Subject*: [mg116703] Re: Blending in DiscretePlot*From*: Heike Gramberg <heike.gramberg at gmail.com>*Date*: Thu, 24 Feb 2011 06:24:08 -0500 (EST)

You could try using the ColorFunction option in DiscretePlot. For example DiscretePlot[((F/2 - 1) + (F^2 - 6*F + 2*F*n - 2 n^2 + 2 n + 4)/ 4), {n, 1, F}, AxesOrigin -> {-F, 0}, PlotRange -> {{-F, 2 F}, {0, F^2/2.5}}, PlotStyle -> {Thickness[0.1]}, ColorFunction -> "SolarColors"] would shade the points from yellow to red depending on their value. The entry guide/ColorSchemes in the Document Center has a list of the built in colour schemes, but you can also define your own functions if you like. For example using ColorFunction -> (RGBColor[#2, 0, 1 - #2] &) would colour the points between red and blue depending on their value. Heike On 23 Feb 2011, at 10:26, Lengyel Tamas wrote: > Dear MathWorld Users, > > I am trying to achieve a graphic solution of a function: > > DiscretePlot[((F/2 - 1) + (F^2 - 6*F + 2*F*n - 2 n^2 + 2 n + 4)/ > 4), {n, 1, F}, AxesOrigin -> {-F, 0}, > PlotRange -> {{-F, 2 F}, {0, F^2/2.5}},PlotStyle -> {Thickness[0.1]}, > FillingStyle -> Red] > > I want it to be symmetrically blended so that the highest value is e.g > yellow, and the as the values decrease on each side, they blend into red > according to the values. > Unfortunately I have no idea how this can be achieved with discrete values. > > I kindly appreciate your help. > > Thank you. > > > Tam=E1s Lengyel > MSc. Student @ BUTE >