Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2001

[Date Index] [Thread Index] [Author Index]

Search the Archive

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?


  • Prev by Date: Re: Forcing numbers to be real.
  • Next by Date: Re: OOP
  • Previous by thread: Re: algebraic functions
  • Next by thread: problem with graphics export from UNIX to NT