RE: Question plotting curves.

*To*: mathgroup at smc.vnet.net*Subject*: [mg43832] RE: [mg43821] Question plotting curves.*From*: "David Park" <djmp at earthlink.net>*Date*: Wed, 8 Oct 2003 04:47:46 -0400 (EDT)*Sender*: owner-wri-mathgroup at wolfram.com

Juan, Here is an example... f1[x_] := x^2 f2[x_] := x^3 Needs["Graphics`Colors`"] Module[{scale = 10}, Plot[{f1[x], f2[x]/scale}, {x, 0, 10}, PlotStyle -> {Black, Blue}, Frame -> True, FrameLabel -> {x, f}, FrameTicks -> {Automatic, Automatic, Automatic, Table[{y, StyleForm[scale y, FontColor -> Blue]}, {y, 0, 100, 20}]}, PlotLabel -> SequenceForm["Plot of ", x^2, " and ", StyleForm[x^3, FontColor -> Blue]], Background -> Linen, ImageSize -> 450 ]]; David Park djmp at earthlink.net http://home.earthlink.net/~djmp/ From: Juan Fuentes [mailto:juan_fuentes_2000 at yahoo.com] To: mathgroup at smc.vnet.net Dear members of the list: I have the following question: Is it possible to plot at the same plot two plots with different scales,which could be displayed one in one side and the other at the other side. Thank you in advance, Juan