Re: Enlarged graphics in MATHEMATICA
- To: mathgroup at smc.vnet.net
- Subject: [mg40417] Re: Enlarged graphics in MATHEMATICA
- From: AES/newspost <siegman at stanford.edu>
- Date: Fri, 4 Apr 2003 01:32:12 -0500 (EST)
- References: <b6glqj$cet$1@smc.vnet.net>
- Sender: owner-wri-mathgroup at wolfram.com
In article <b6glqj$cet$1 at smc.vnet.net>, "David Park" <djmp at earthlink.net> wrote: > > ComplexGraphics[primitives : {___}, opts___] := > Draw2D[primitives, > opts, > AspectRatio -> Automatic, > Frame -> True, > FrameTicks -> False, > Axes -> True, > AxesOrigin -> {0, 0}, > AxesStyle -> Gray, > ImageSize -> 500 > ] > > That saves a lot of typing with each piece of graphics. I think you could also do this with myOptions> = Sequence[ Frame -> True, FrameTicks -> False, Axes -> True, AxesOrigin -> {0, 0}, AxesStyle -> Gray, ImageSize -> 500] SetOptions[Plot,myOptions] at the beginning of your notebook. Or, leave out the SetOptions and write Plot etc commands in the form Plot[-------,myOptions] Right? (Latter choice would allow you to have several different sets of options for different kinds of plots.) -- "Power tends to corrupt. Absolute power corrupts absolutely." Lord Acton (1834-1902) "Dependence on advertising tends to corrupt. Total dependence on advertising corrupts totally." (today's equivalent)