Re: Re: question on Plot and Show plus Axis Labels:

*To*: mathgroup at smc.vnet.net*Subject*: [mg72592] Re: [mg72566] Re: question on Plot and Show plus Axis Labels:*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Wed, 10 Jan 2007 03:55:16 -0500 (EST)*Reply-to*: hanlonr at cox.net

x=Range[15]; y1=Table[Cos[x*Pi/15],{x,15}]; y2=Table[Sin[x*Pi/15],{x,15}]; Plot[{Cos[t*Pi/15],Sin[t*Pi/15]},{t,0,15}, Epilog->{AbsolutePointSize[4], Red,Point/@Thread[{x,y1}], Blue,Point/@Thread[{x,y2}]}]; Needs["Graphics`"]; MultipleListPlot[y1,y2, PlotJoined->True,SymbolStyle->{Red,Blue}]; DisplayTogether[ ListPlot[y1,PlotJoined->True, PlotStyle->{Red}], ListPlot[y2,PlotJoined->True, PlotStyle->{Blue}]]; Bob Hanlon ---- Gopinath Venkatesan <gopinathv at ou.edu> wrote: > Hello David > > Thanks for showing interest in my problem and for posting reply. Please see the below sample code. This sample is not related to my study, this is just to illustrate. > > \!\(\(x = Table[i, {i, 1, 15, 1}];\)\[IndentingNewLine] > \(v = Table[Sin[\(Ã?â?¬\/15\) x[\([i]\)]], {i, 1, 15, 1}];\)\[IndentingNewLine] > \(y[j_] := Cos[Ã?â?¬\/15\ x[\([j]\)]];\)\[IndentingNewLine] > \(y1 = Table[y[j], {j, 1, 15, 1}];\)\[IndentingNewLine] > \(y2 = Table[v[\([j]\)], {j, 1, 15, 1}];\)\[IndentingNewLine] > p1 = ListPlot[Thread[y1, x], PlotJoined -> True]\[IndentingNewLine] > p2 = ListPlot[Thread[y2, x], PlotJoined -> True]\[IndentingNewLine] > Show[p1, p2]\) > > I could not use Plot for plotting a list of values of y1 and y2 for the x values. I tried using the below Plot command and got error, > > p1=Plot[y1,{x,1,15}] > > that y1 is not a machine readable value at x = 1.0000000+ > meaning that Plot tries to do a smooth fit between these intervals. In my case, x value increments by integer value, say unit increase. For that discrete sets of x values, I have respective y values and for using ListPlot, I have to thread these x and y values. Thats why I am using Thread. > > If you can tell me how to use Plot function for plotting the values above, that will be great. > > Or please suggest otherways where I have to use the combinations of ListPlot, Show, and others to produce a multi-plot with a axes label rotated (y axis), use Plot Legends to work with Show (or an alternate to Plot Legend since it doesnt work with Show), and coloring them differently. I figured out how to color them differently - using RBCColor option. But still got stuck with the Legends and the rotate labels options. > > RotateLabel works fine with Frames. If I use Frames, will that solve other problems too. I am trying, but just in case, if you know the answer, please hint me. Thanks, > > Gopinath Venkatesan > Graduate Student > University of Oklahoma >