Графики с переменным масштабом по осям в Mathematica

[Simp]

Есть ли возможность строить в Mathematica такие графики (с целью большей наглядности, но в ущерб "гладкости" в точках смены масштаба)? Как пример можно привести график зависимости диодного тока от напряжения (для большей информативности для отрицательных значений тока можно уменьшить цену деления по оси ординат) или график функции $y=\sin\frac{1}{x^2+0.05}$ (в окрестности x=0 также можно строить с меньшей ценой деления).

Стандартный Plot/ListPlot такой возможности не предоставляет.

[artur_k]

Simp в сообщении #1215229 писал(а):

Стандартный Plot/ListPlot такой возможности не предоставляет.

Смотрите опцию ScalingFunctions в хелпе.
Для диода такое хотели?

a[v_] := 0.001*(Exp[v/(2*0.02585)] - 1);
sfy = Piecewise[{{#1, #1 > 0}, {#1*1000, #1 <= 0}}] &;
sfyr = Piecewise[{{#1, #1 > 0}, {#1/1000, #1 <= 0}}] &;
ticks = Join[Table[i, {i, 0, 10}], Table[-i/1000., {i, 1, 2}]]
Plot[a[v], {v, -1, 0.6}, PlotRange -> {-0.002, 10}, 
 ScalingFunctions -> {sfy, sfyr}, AxesOrigin -> {0, 0}, 
 Ticks -> {Automatic, ticks}]