Automatically factoring the axes ticks

Questions
1

I have the following plot:

Plot[Sin[x], {x, 0, 2 \[Pi]}]

which I want to turn into the following:

4172sine.png
4172sine.png540×315 4.2 KB

That is, multiply by some factor the automatic ticks.

The above plot was generated using the ticks option: tick marks drawn with the specified labels.

Ticks-> {
{ {1,10} , {2,20} , {3,30} , ...},
{ {0.5, 50} , {1,100} ,...}
}

I am looking for a faster way to do that. Of course I can generate a table of numbers,
in this case Table[{i, 100 i}, {i, -1, 1, 0.5}] for the y axis, but I would like to have a way to just multiply "thelabel" by some number (I am working on a more complicated plot).

Thanks!

2

Maybe you want something like this..

Open in Wolfram Cloud ↗
3

Hi Ehud,

This is probably the easiest way to do it. Change xScale and yScale to whatever you want.

xScale = 10; yScale = 100;
ticks = {Charting`ScaledTicks[{# / xScale &, # * xScale &}], 
         Charting`ScaledTicks[{# / yScale &, # * yScale &}]};

Plot[Sin[x], {x, 0, 2 \[Pi]}, Ticks -> ticks]

10214plot.png
10214plot.png450×264 9.19 KB

4

For this particular plot you can also do it this way:

Plot[100 Sin[x/10], {x, 0, 10*2 Pi}]