remove the decimal dot from ticks?

• To: mathgroup at smc.vnet.net
• Subject: [mg129923] remove the decimal dot from ticks?
• From: lagioia.rocco at gmail.com
• Date: Tue, 26 Feb 2013 01:10:33 -0500 (EST)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net

```Hi everybody, I am new in here.
I am seeking help for a problem I have with the ticks and I am not an experienced user.

I am preparing 2D graphs with double y-axis. So I was rescaling the data for the second y-axis and rescaling the ticks too.

The problem is that after doing that the ticks on the primary y-axis are printed with the decimal dot and are also more frequent than by  using the simple ListLinePLot.

thanks!

y1graph =
ListLinePlot[xy, Axes -> True, PlotRange -> {rangeX, rangeY},
PlotStyle -> Directive[
AbsoluteDashing[ mydashing[[ 1 ]] ],  GrayLevel[mygray[[1]] ],
AbsoluteThickness[ mythickness[[1]]]  ]
];
y2graph =
ListLinePlot[xy2, Axes -> True, PlotRange -> {rangeX, rangeY2},
PlotStyle -> Directive[
AbsoluteDashing[ mydashing[[ 2]] ],  GrayLevel[mygray[[2]] ],
AbsoluteThickness[ mythickness[[2]]]  ]
];

{y1range, y2range} =
Last[PlotRange /. AbsoluteOptions[#, PlotRange]] & /@ {y1graph,
y2graph};

y1ticks = Last[Ticks /. AbsoluteOptions[y1graph, Ticks]];
y2ticks = (MapAt[Function[r, Rescale[r, rangeY2, rangeY]], #, {1}] & /@
Last[Ticks /. AbsoluteOptions[y2graph, Ticks]]);

y2graph =
y2graph /.
Graphics[graph_, s___] :>
Graphics[
GeometricTransformation[graph,
RescalingTransform[{{0, 1}, rangeY2}, {{0, 1}, rangeY}]], s];

Show[y1graph, y2graph, Axes -> False, Frame -> True,
ImageSize -> 72 figuresize, PlotRange -> {rangeX, rangeY},
FrameStyle -> {GrayLevel[0], {Automatic, Transparent}},
FrameTicks -> {{y1ticks, y2ticks}, {Automatic, Automatic}}]

```

• Prev by Date: Manual argument type with MathLink C interface
• Next by Date: Possible bug in InverseGammaRegularized?