Group Abstract Group Abstract

Message Boards Message Boards

Why "Log10" (ScalingFunctions) is not working?

Cornel B.
Posted 2 years ago

Hello,

https://reference.wolfram.com/language/ref/ScalingFunctions.html

enter image description here

Why does the frequency axis not show as described in the documentation by using "Log10"? (ie 10^-3, 10^-2, 10^-1, 10^0, 10^1, 10^2, 10^3,...,10^6)

H = TransferFunctionModel[1/s, s]
Result1 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}}, PlotLayout -> "Magnitude", 
  ScalingFunctions -> {"Log10", "dB"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Magnitude[dB]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005]]

enter image description here

Result2 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-180, 0}}, PlotLayout -> "Phase", 
  ScalingFunctions -> {"Log10", "Degree"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Phase[Degree]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005]]

enter image description here

Result3 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}, {-180, 0}}, 
  ScalingFunctions -> {{"Log10", "dB"}, {"Log10", "Degree"}}, 
  FrameLabel -> {{HoldForm[Text[Frequency[Hz]]], 
     HoldForm[Text[Magnitude[dB]]]}, {HoldForm[Text[Frequency[Hz]]], 
     HoldForm[Text[Phase[Degree]]]}}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005]]

enter image description here

Mathematica 13.2 Notebook file attached.

Thank you.

Attachments:
Untitled-6.nb
POSTED BY: Cornel B.
8 Replies
Sort By:
Cornel B.
Cornel B.
Posted 2 years ago

Eric Rimbey Ok. Thank you. Thanks for the support of the discussion on this topic. If something else will appear, I will post it.
POSTED BY: Cornel B.
Eric Rimbey
Eric Rimbey
Posted 2 years ago

When defining ticks, the form {val, label} gives you the location for the tick as well as the appearance of the tick. The location will be val and the appearance will be label. Superscript is just a form that displays as superscript.
POSTED BY: Eric Rimbey
Cornel B.
Cornel B.
Posted 2 years ago
Attachments:
Untitled-6.nb
POSTED BY: Cornel B.
Cornel B.
Cornel B.
Posted 2 years ago

Also, what does this code mean:

Superscript[10, i]

it doesn't seem to represent or is equivalent to:

10^i

Does that code Superscript have any equivalent? or what is its equivalent?

Result1 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}}, PlotLayout -> "Magnitude", 
  ScalingFunctions -> {"Log10", "dB"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Magnitude[dB]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005], 
  FrameTicks -> {{Automatic, 
     Automatic}, {Table[{10^i, 10^i}, {i, -3, 6}], None}}]

enter image description here
POSTED BY: Cornel B.
Cornel B.
Cornel B.
Posted 2 years ago

Yes. I evaluate now. Result:

Result1 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}}, PlotLayout -> "Magnitude", 
  ScalingFunctions -> {"Log10", "dB"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Magnitude[dB]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005], 
  FrameTicks -> {{Automatic, 
     Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 5}], 
     None}}]

enter image description here

Result2 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-180, 0}}, PlotLayout -> "Phase", 
  ScalingFunctions -> {"Log10", "Degree"}, 
  FrameLabel -> {HoldForm[Text[Frequency[Hz]]], 
    HoldForm[Text[Phase[Degree]]]}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005], 
  FrameTicks -> {{Automatic, 
     Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 6}], 
     None}}]

enter image description here

Result3 = 
 BodePlot[H[I*2*\[Pi]*freq], {freq, 10^-3, 10^6}, 
  PlotRange -> {{-90, 60}, {-180, 0}}, 
  ScalingFunctions -> {{"Log10", "dB"}, {"Log10", "Degree"}}, 
  FrameLabel -> {{HoldForm[Text[Frequency[Hz]]], 
     HoldForm[Text[Magnitude[dB]]]}, {HoldForm[Text[Frequency[Hz]]], 
     HoldForm[Text[Phase[Degree]]]}}, GridLines -> Automatic, 
  PlotStyle -> Thickness[0.005], 
  FrameTicks -> {{Automatic, 
     Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 5}], 
     None}}]

enter image description here

Thank you.

Attachments:
Untitled-6.nb
POSTED BY: Cornel B.
Eric Rimbey
Eric Rimbey
Posted 2 years ago

It looks like you didn't evaluate the expression defining H.
POSTED BY: Eric Rimbey
Cornel B.
Cornel B.
Posted 2 years ago

Hello Eric Rimbey,

I added. Result:

enter image description here

Mathematica 13.2 Notebook file attached.

Thank you.

Attachments:
Untitled-6.nb
POSTED BY: Cornel B.
Eric Rimbey
Eric Rimbey
Posted 2 years ago

Mathematica will choose tick labels according to some algorithm that it thinks makes the plot look good. In these cases, it decided that it should only label every other power of 10. But you can choose your own labels. You could add this option to your BodePlot:

FrameTicks -> {{Automatic, Automatic}, {Table[{10^i, Superscript[10, i]}, {i, -3, 5}], None}}
POSTED BY: Eric Rimbey
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard