User Functions with DisplayTogether
- To: mathgroup at smc.vnet.net
- Subject: [mg29104] User Functions with DisplayTogether
- From: "Phil Larson" <PLarson at bju.edu>
- Date: Tue, 29 May 2001 02:57:30 -0400 (EDT)
- Sender: owner-wri-mathgroup at wolfram.com
I'm using several graphics functions I've created, such as this:
Graph[title_, func_, xmin_, xmax_, xgridstep_, xtickstep_, ymin_,
ymax_,
ygridstep_, ytickstep_] :=
Plot[func, {x, xmin, xmax}, AspectRatio -> (ymax - ymin)/(xmax -
xmin),
FrameLabel -> {title, None},
GridLines -> {Table[{m, {CMYKColor[0, 0, 0, 0.5],
AbsoluteThickness [0.5]}}, {m, xmin, xmax,
xgridstep}],
Table[{n, {CMYKColor[0, 0, 0, 0.5], AbsoluteThickness
[0.5]}}, {n,
ymin, ymax, ygridstep}]},
PlotStyle -> {CMYKColor[1, 0, 0, 0], AbsoluteThickness[1.5],
AbsoluteDashing[{1, 0}]},
PlotRange -> {{xmin, xmax}, {ymin, ymax}},
Ticks -> {Range[xmin, xmax, xtickstep], Range[ymin, ymax,
ytickstep]}];
Is it possible to use DisplayTogether with user-created graphics
functions such as the above?