RE: Changing style in Plot

*To*: mathgroup at smc.vnet.net*Subject*: [mg39518] RE: [mg39499] Changing style in Plot*From*: "David Park" <djmp at earthlink.net>*Date*: Fri, 21 Feb 2003 04:07:44 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Thomas, I believe you will have to plot your line in segments and then combine them. Your line was so thick that I plotted it in gray and used the AxesFront option from FilledPlot to prevent masking of the axes. Needs["Graphics`FilledPlot`"] Needs["Graphics`Colors`"] Block[{$DisplayFunction = Identity}, g1 = Plot[3x - 1, {x, 0, 4}, PlotStyle -> {Gray, Thickness[0.1]}, PlotRange -> {{-2, 12}, {-10, 50}}, ImageSize -> 500, Axes -> True ]; g2 = Plot[3x - 1, {x, 4, 10}, PlotStyle -> {Gray, Thickness[0.2]}]]; Show[g1, g2, AxesFront -> True]; But here is a trick that might be useful. ParametricPlot3D allows a curve to be drawn with style directives as the 4th argument of the parametrization. So, make a 3D plot, extract the graphic primitives and project them to 2D. In the following both the thickness and Hue of the line are varied in a continuous fashion. g1 = First[ ParametricPlot3D[{x, 3x - 1, 0, {Thickness[0.005x], Hue[x/10]}}, {x, 0, 10}, DisplayFunction -> Identity]] /. {x_?NumberQ, y_?NumberQ, z_?NumberQ} -> {x, y}; Show[Graphics[{g1}], PlotRange -> {{-2, 12}, {-10, 50}}, AxesFront -> True, ImageSize -> 500, Axes -> True]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Thomas Manz [mailto:thomas.manz at physik.uni-regensburg.de] To: mathgroup at smc.vnet.net Hello, I´d like to change the style of a plot in dependency on the x-value. I think this WRONG example shows, what I want: Plot[3x-1, {x,0,10}, PlotStyle->If[x>4,Thickness[0.1],Thickness[0.2]]] Does anyone have an idea how to do this?? Thanks a lot Thomas