I have to make a simple plot using the Plot function. However on the $x$ axis I want the scale to be such that it initially shows a zoom up of $0$ to $1$, and then the scale compresses and shows from, say, $100$ to $10000$. How to achieve that? I have tried a lot of different functions including Zoom and Show, but none seem to work.
$\begingroup$ $\endgroup$
5 
- $\begingroup$ This seems to be a duplicate, see e.g. How does one set a logarithmic scale in a ContourPlot? $\endgroup$Artes– Artes2016-03-11 16:33:41 +00:00Commented Mar 11, 2016 at 16:33
- $\begingroup$ Thanks. That might work. However is there no other alternative method? $\endgroup$BB_– BB_2016-03-11 16:42:26 +00:00Commented Mar 11, 2016 at 16:42
- $\begingroup$ You could take a look at Generating a broken or snipped axis in ListPlot and solutions therein. Perhaps something could be adapted. $\endgroup$MarcoB– MarcoB2016-03-11 16:50:34 +00:00Commented Mar 11, 2016 at 16:50
- $\begingroup$ What happens between 1 and 100? $\endgroup$BlacKow– BlacKow2016-03-11 17:08:00 +00:00Commented Mar 11, 2016 at 17:08
- $\begingroup$ Welcome to Mathematica.SE! 1) As you receive help, try to give it too, by answering questions in your area of expertise. 2) Take the tour and check the help center! 3) When you see good questions and answers, vote them up by clicking the vote triangles, because the credibility of the system is based on the reputation gained by users sharing their knowledge. Also, please remember to accept the answer, if any, that solves your problem, by clicking the checkmark sign! $\endgroup$user9660– user96602016-03-11 17:18:22 +00:00Commented Mar 11, 2016 at 17:18
Add a comment |
2 Answers
$\begingroup$ $\endgroup$
You can split your X interval into several subintervals and sample your function inside every interval with step proportional to current interval length. Then use ListPlot to show all sampled values and relabel X-axis ticks.
f[x_] := Sin[x] + 1.5; nPoints = 1000.0; edges = {0, 2 Pi, 10 Pi, 100 Pi}; intervals = Partition[#, 2, 1] &@edges; points = Flatten[ Range[#[[1]], #[[2]], (#[[2]] - #[[1]])/nPoints][[1 ;; -2]] & /@ intervals]; ticks = Transpose@{Range[1, Length@edges*nPoints, nPoints], edges}; Show[ListPlot[f[points], Ticks -> {ticks, Automatic}]] 
$\begingroup$ $\endgroup$
2 How about if you just use a simple Manipulate statement? For example:
Manipulate[Plot[x, {x, 0, a}], {a, {1, 100, 1000}}] That should work. Even more, you can choose the plot options according to your choice of a, that you can figure it out.
- $\begingroup$ Thanks guys. LogLinearPlot worked fine for me. $\endgroup$BB_– BB_2016-03-12 05:14:25 +00:00Commented Mar 12, 2016 at 5:14
- $\begingroup$ @BudhadityaBhattacharjee .. interesting... how is a log scale a zoom in? But I'm glad you got what you wanted. $\endgroup$BlacKow– BlacKow2016-03-14 22:06:08 +00:00Commented Mar 14, 2016 at 22:06