Skip to main content
replaced http://mathematica.stackexchange.com/ with https://mathematica.stackexchange.com/
Source Link

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)?How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

added 735 characters in body
Source Link
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.


Adapting the code I used for How do I make a log plot where the plot is logarithmic in the distance from the X-Axis (including negative values)? you can arbitrarily zoom the zero region with:

logify[_][x_ /; x == 0] := 0
logify[off_][x_] := Sign[x] Max[0, (off + Re@Log@x)/off]

inverse[off_][x_] := Sign[x] Exp[(Abs[x] - 1) off]

logscale[n_] := {logify[n], inverse[n]}

Examples:

ListLinePlot[llvaluefull, ScalingFunctions -> {logscale[1], Identity}]

enter image description here

With logscale[7]:

enter image description here

With logscale[22]:

enter image description here

added 2 characters in body
Source Link
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k

According to the comment below your answerquestion I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. I It may not work in earlier versions.

According to the comment below your answer I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. I may not work in earlier versions.

According to the comment below your question I believe this does what you want:

scale    = Sign[#] Log[1 + Abs@#] &;
invscale = Sign[#] (Exp[Abs@#] - 1) &;

ListLinePlot[
 llvaluefull,
 ScalingFunctions -> {{scale, invscale}, Identity}
]

enter image description here

ScalingFunctions works in ListLinePlot in Mathematica 10.0.2, but it is not officially supported. It may not work in earlier versions.

Source Link
Mr.Wizard
  • 273.1k
  • 34
  • 595
  • 1.4k
Loading