RE: Re: filled plot on part of x-interval

*To*: mathgroup at smc.vnet.net*Subject*: [mg44702] RE: [mg44664] Re: filled plot on part of x-interval*From*: "David Park" <djmp at earthlink.net>*Date*: Fri, 21 Nov 2003 05:13:23 -0500 (EST)*Sender*: owner-wri-mathgroup at wolfram.com

Suppose we want to split the plot into three portions so that the center line will have the same plot points as the fill and not leave gaps. And suppose that we want to label each of the three regions, specifying the labels in each of the three plots. (I also changed your FilledPlot so one actually does obtain a filled plot.) Needs["Graphics`Graphics`"]; Needs["Graphics`Colors`"]; Needs["Graphics`FilledPlot`"]; DisplayTogether[ Plot[Sin[x], {x, 0, 2}, PlotStyle -> Red, Epilog -> {Text["Left", {1, -0.2}]}, ImageSize -> 450], FilledPlot[Sin[x], {x, 2, 8}, Fills -> LightBlue, AxesFront -> True, Epilog -> {Text["Center", {5, 0.2}]}], Plot[Sin[x], {x, 8, 10}, PlotStyle -> Red, Epilog -> {Text["Right", {9, -0.2}]}]]; The resulting plot is not what one probably intended. Only the left Epilog label was picked up. Also the AxesFront option was lost from the FilledPlot, but not the Fills option. ImageSize was picked up because it was in the first plot. In other words, overall plot options are only picked up from the first plot in the DisplayTogether statement. The solution is either put them all in the first plot, or remove them from the individual plots and put them at the end. DisplayTogether[ Plot[Sin[x], {x, 0, 2}, PlotStyle -> Red], FilledPlot[Sin[x], {x, 2, 8}, Fills -> LightBlue], Plot[Sin[x], {x, 8, 10}, PlotStyle -> Red], Epilog -> {Text["Left", {1, -0.2}], Text["Center", {5, 0.2}], Text["Right", {9, -0.2}]}, AxesFront -> True, ImageSize -> 450]; The only advantage of DrawGraphics is that instead of dealing with various plots and worrying about what options are picked up, you draw the graphical elements directly and always put the overall plot options at the end. Needs["DrawGraphics`DrawingMaster`"] Draw2D[ {Red, Draw[Sin[x], {x, 0, 2}], Black, FilledDraw[Sin[x], {x, 2, 8}, Fills -> LightBlue], Red, Draw[Sin[x], {x, 8, 10}], Black, Text["Left", {1, -0.2}], Text["Center", {5, 0.2}], Text["Right", {9, -0.2}]}, Axes -> True, AxesFront -> True, ImageSize -> 450]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: AES/newspost [mailto:siegman at stanford.edu] To: mathgroup at smc.vnet.net I'll still assert that something like: Needs["Graphics`Graphics`"]; Needs["Graphics`Colors`"]; Needs["Graphics`FilledPlot`"]; DisplayTogether[ FilledPlot[{Sin[x], Sin[x]}, {x,2,8}], Plot[Sin[x], {x,0,10}, PlotStyle->Red]]; is clear, simple, flexible, and readable -- and allows you to easily modify the styles (linewidths, colors) of the different components of the plot independently, as done here, and add additional stuff if you like. DisplayTogether is your friend -- haven't run into a headache with it yet.