RE: Plotting

*To*: mathgroup at smc.vnet.net*Subject*: [mg28737] RE: [mg28694] Plotting*From*: "David Park" <djmp at earthlink.net>*Date*: Fri, 11 May 2001 03:38:52 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Here is a simple example of plotting two functions with different scales. Needs["Graphics`Colors`"] f1[x_] := Sin[x]; f2[x_] := 20*x^2 - 5*x + 100 Plot[{f1[x], f2[x]/500}, {x, 0, 10}, PlotStyle -> {Black, Blue}, Frame -> True, FrameLabel -> {x, f1, None, StyleForm[f2, FontColor -> Blue]}, PlotLabel -> "Plotting Two Functions", FrameTicks -> {Automatic, Automatic, Automatic, Table[{y, StyleForm[ 500*y, FontColor -> Blue]}, {y, -1, 4, 1}]}, ImageSize -> 450]; 1) First I plotted f1 and f2/scale, with various scales until I obtained a reasonable looking plot. I used scale = 500 in this case. 2) I used two different colors, Black and Blue, so I could key the functions to the frame scales. 3) I used FrameTicks to put tick marks and labels (scaled up) on the right hand side of the frame. 4) I used StyleForm to display the right hand labels in Blue, and did the same with the frame label. How does it look? David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ > From: Yahsi [mailto:yahsi at marun.edu.tr] To: mathgroup at smc.vnet.net > > Hi, > > I have a question regarding the plot. Suppose that you have two separate > functions and you would like to plot them on the same graph. Both > are not so > scaled to plot it using the single y axis. Sometimes we need to draw the > plots of two functions (f1 and f2) on two separate y axis (one is on the > left as usual and the other on the right). This features are common even > very primitive versions of the graph programs such as grapher and excel. I > am not able to figure out how to do this in Mathematica. > Thanks for your replies in advance. > Uður > > Assoc. Prof. Dr. Uður Yahþi > Marmara University Faculty of Arts and Sciences > Physica Department, 81040 Goztepe, Istanbul-TURKEY > yahsi at marun.edu.tr >