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