Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: What's wrong in this plot?

• To: mathgroup at smc.vnet.net
• Subject: [mg15053] Re: [mg15003] What's wrong in this plot?
• From: Jurgen Tischer <jtischer at col2.telecom.com.co>
• Date: Wed, 9 Dec 1998 04:12:34 -0500
• Organization: Universidad del Valle
• References: <199812050630.BAA04468@smc.vnet.net.>
• Sender: owner-wri-mathgroup at wolfram.com

Sergio,
if you define gridplot1=FullGraphics/@gridplot, Show[gridplot1] will do
what you want. The reason for not functioning your version is that your
texts are given as options, so the first option is seen by Show. (You
can check this using FullForm on gridplot[[n]].) FullGraphics changes
the options to primitives, so Show sees them all. 

Jurgen

sergio at scisun.sci.ccny.cuny.edu wrote:
> 
> (*
>    Hello everyone:
> 
>    I'm using the following code to plot a set of individual
>    rectangles, labeling each each rectangle with a number at
>    the center.  After that, the plots are combined in a single
>    one using Show. The problem is that only the label of the first
>    rectangle is shown in the combined plot. Could somebody point
>    out what is going and how to overcome the problem?
> 
>     Regards,
>     Sergio
>     E-mail: sergio at scisun.sci.ccny.cuny.edu *)
> 
> Clear[data];
> data = {{-20., 0.}, {-20., -10.}, {-10., -10.}, {-10., 0.}, {-20., 10.},
>         {-20., 0.}, {-10., 0.}, {-10., 10.}, {-10., 0.}, {-10., -10.},
>         {0., -10.}, {0., 0.}, {-10., 10.}, {-10., 0.}, {0., 0.}, {0.,
> 10.},
>         {0., 0.}, {0., -10.}, {10., -10.}, {10., 0.}, {0., 10.}, {0.,
> 0.},
>         {10., 0.}, {10., 10.}, {10., 0.}, {10., -10.}, {20., -10.},
> {20., 0.},
>         {10., 10.}, {10., 0.}, {20., 0.}, {20., 10.}};
> 
> Clear[gridplot, label, midx, midy];
> gridplot = {};
> label = 0;
> Do[
>            midx = (data[[k]][[1]] + data[[k+3]][[1]])/2.0 ;
>            midy = (data[[k]][[2]] + data[[k+1]][[2]])/2.0 ;
>           label = label + 1;
>          AppendTo[gridplot,
> 
> ListPlot[Append[Table[data[[i]],{i,k,k+3}],data[[k]]],
>                         PlotJoined -> True,
>                               Axes -> False,
>                             Epilog -> Text[label,{midx,midy}],
>                    DisplayFunction -> Identity]],
>    {k,1,Length[data],4}];
> Show[gridplot[[4]], Frame -> True, DisplayFunction -> $DisplayFunction];
> Show[gridplot[[7]], Frame -> True, DisplayFunction ->
> $DisplayFunction]; Show[gridplot, Frame -> True, DisplayFunction ->
> $DisplayFunction];
> 
> -----------== Posted via Deja News, The Discussion Network ==----------
> http://www.dejanews.com/       Search, Read, Discuss, or Start Your Own

• References:
  • What's wrong in this plot?
    • From: sergio@scisun.sci.ccny.cuny.edu