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