MathGroup Archive 2003

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

Search the Archive

Re: plot help

  • To: mathgroup at smc.vnet.net
  • Subject: [mg39587] Re: [mg39572] plot help
  • From: BobHanlon at aol.com
  • Date: Tue, 25 Feb 2003 02:55:16 -0500 (EST)
  • Sender: owner-wri-mathgroup at wolfram.com

In a message dated 2/24/03 4:10:12 AM, chiu at fkf.mpg.de writes:


> I am a new mathetica user and learning to plot my band diagram,
> i.e., energy E vs wave vector k. Assumed that E(k, y) and y is a
> series of integers.
> 
> I use the following function:
> 
> Plot[k^2+y, {k, -Pi, Pi}, {y, -3, 3}]
> 
> and would like to plot "a series of" bands in a 2D plot, however, it
> did not work.
> 

Plot3D[k^2+y, {k, -Pi, Pi}, {y, -3, 3}];


Needs["Graphics`Graphics`"];


DisplayTogetherArray[Plot[Evaluate[

         Table[k^2+y, {k,0,Pi, Pi/6}]],
 
       {y,-3,3}, PlotStyle -> Table[Hue[k], {k,0,1,1/6}],

       Frame->True, Axes->False, FrameLabel->{"y", "E"},

       Epilog->{Text["k=0", {0,0},{-1,1}],

           Text["k=\[PlusMinus]Pi", {0,Pi^2},{1,-1}]}],

     Plot[Evaluate[

         Table[k^2+y, {y,-3,3}]],
 
       {k,-Pi,Pi}, PlotStyle -> Table[Hue[k], {k,0,1,1/6}],

       Frame->True, Axes->False, FrameLabel->{"k", "E"},

       FrameTicks->{PiScale, Automatic, None, Automatic},
 
       Epilog->{Text["y=-3", {0,-3},{0,1}],

           Text["y=3", {0,3},{0,-1}]},

       PlotRange->{Automatic,{-4.5,13.5}}],
 
     ImageSize-> 600];



Bob Hanlon



  • Prev by Date: Re: Cursors in graphics
  • Next by Date: Re: Re: Cursors in graphics
  • Previous by thread: Re: plot help
  • Next by thread: RE: plot help