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