graphics manipulation
- To: mathgroup at smc.vnet.net
- Subject: [mg70580] graphics manipulation
- From: dimmechan at yahoo.com
- Date: Fri, 20 Oct 2006 05:21:45 -0400 (EDT)
Hello to all.
Below I give some code that appeared in the course of practicing on
graphics issues.
Off[General::spell1]
plot1=Plot[BesselJ[0,x],{x,0,10},PlotStyle®Blue];
With the following command vertical lines are displayed at each point
calculated
by the Plot function in order to produce plot1.
Show[{plot1, (Graphics[{Red, Line[{{First[#1], 0}, #1}]}] & ) /@
Cases[FullForm[plot1], {(x_)?NumberQ, (y_)?NumberQ}, Infinity]},
ImageSize -> {400, 300}]
Here is some other simple code.
Show[plot1/.{x_?NumberQ,y_?NumberQ}¦{y,x}]
Show[plot1/.{x_?NumberQ,y_?NumberQ}¦{-x,y}]
lst = Partition[Range[0, 10], 2, 1];
Show[(Plot[BesselJ[0, x], {x, #1[[1]], #1[[2]]}, DisplayFunction ->
Identity,
PlotStyle -> {AbsoluteThickness[#1[[2]]/2], Hue[#1[[1]]/11]}] & ) /@
lst, DisplayFunction -> $DisplayFunction]
I will really appreciate if someone provide me with other simple
examples of similar or more advanced level.
Next, the code below vertically displays the x-ticklabels
(adopted by Bruce Colleti)
g = Plot[x, {x, 0, 1}];
g = FullGraphics[g];
g = g /. Text[text_, {x_, y_ /; y < 0}, offset_] -> Text[text, {x, y},
offset, {0, 1}];
Show[g, PlotRange -> All, ImageSize -> {400, 300}];
However for plot1 there is a problem as you can see.
FullGraphics[plot1] /. Text[text_, {x_, y_ /; y < 0}, offset_] ->
Text[text, {x, y}, offset, {0, 1}];
Show[%, PlotRange -> All, ImageSize -> {400, 300}];
How can I modify it in order to change the display of the x-ticklabels
only?
Is another way to get the same result?
Also, because of the documentation of FullGraphics is very poor, I
really appreciate if someone will provide me with further examples.
Lastly, I would like to mention, even I know that I say something well
known to the active members of this forum, that in private
communication with David Park it appeared clearly that issues like
those in my questions can be very easily dealt with his excellent
DrawGraphics package.
Thanks in advance for any response.
Dimitris