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

Re: graph

• To: mathgroup at smc.vnet.net
• Subject: [mg39686] Re: graph
• From: BobHanlon at aol.com
• Date: Sat, 1 Mar 2003 22:04:56 -0500 (EST)
• Sender: owner-wri-mathgroup at wolfram.com

My mistake.   This should have read:

Needs["Graphics`Colors`"];



Module[{maxV=10.35, maxVi, gl},

     maxVi = Round[maxV];

     Plot[maxV,{x,-maxV, maxV},

       PlotRange -> {{-maxV, maxV}, {-maxV, maxV}},

       GridLines -> {gl=Join[{#, {LightBlue}}& /@ Range[-maxVi, maxVi,1/2],

               {#,{Blue}}& /@ Range[-maxVi, maxVi, 5]], gl},

       Frame -> True, Axes -> False,

       AspectRatio -> 1, ImageSize -> 450]];




Bob Hanlon