On Jan 5, 2011, at 2:50 AM, smriti Sebastian wrote:
> i hav attached in jpeg format...I need to make a multipanel plot such that
> first panel should plot
> (X,Y)=((1-14,A),(15-17,A)) so on
> Like this I need to make three panels in a single graph.
> If I do point plot (x,y)=(1,A),(14,A),(15,A) and join using a line it will be
> continous I need discontinuous line ie.line should join the points 1 to
> 14,then it should join points 15 to 17 like that.hope nw I conveyed wht i
> needed..
>
> On Wed, Jan 5, 2011 at 1:01 PM, Sisyphus <[email protected]> wrote:
>
> ----- Original Message ----- From: "smriti Sebastian"
> <[email protected]>
> To: "Derek Lamb" <[email protected]>; <[email protected]>
> Sent: Wednesday, January 05, 2011 4:11 PM
> Subject: Re: [Perldl] Plot range of values
>
>
>
> sorry for the confusion..i have attached a doc file with the graph..I need a
> similar one to be plotted.Is it possible??
>
> I don't have MS Word - and therefore can't view the file you sent (as far as
> I know).
> Can you provide a jpeg, gif, or png version ?
>
> The graphs don't sound all that complex - maybe GDGraph will do the job. It
> (and its dependencies) should be readily available via ppm if you're on
> Windows. Just run 'ppm install GDGraph'
>
> For some samples, grab the GDGraph source distro from CPAN, unpack it and run
> the sample scripts that you'll find in the 'samples' folder. There would
> probably be something there that you can make use of.
>
> (Actually, I have those samples already built as gif images. I'll send them
> to you offlist in a tarball. After unpacking them, they should be viewable in
> your web browser if you've got nothing else/)
>
> Cheers,
> Rob
>
> <graph1.jpg>
OK, that is much more clear. You need to look at
PDL::Graphics::PGPLOT::Window's env() function and the axis option. Then you
can plot your lines with successive calls to line(). Something like this
should get you started:
$w->env(0,20,0,1,{axis=>[bcn,b],PlotPosition=>[.1,.9,.1,.36]});
$y = 0.5*ones(2);
$w->line(pdl(1,14),$y);
$w->hold;
$w->line(pdl(15,17),$y);
$w->label_axes("","A","");
$w->release;
$w->env(0,20,0,1,{axis=>[bc,b],PlotPosition=>[.1,.9,.36,.63]});
<etc>
cheers,
Derek_______________________________________________
Perldl mailing list
[email protected]
http://mailman.jach.hawaii.edu/mailman/listinfo/perldl
