dB

Takuichi Hirano

\(Plot[
      10*Log[10, x], {x, 0.1, 10}, 
Frame -> 
        True, 
FrameLabel -> {"x", "y (dB)"}, 
FrameTicks -> {Table[i, {i, 0, 10}], 
          Automatic, {}, {}}, 
FrameStyle -> {AbsoluteThickness[1], 
          RGBColor[0.01, 0.01, 0.01]}, 
Axes -> 
        True, 
AxesStyle -> {AbsoluteThickness[1], 
          RGBColor[0.01, 0.01, 
            0.01]}, 
Epilog -> {
{Dashing[{0.02, 
                0.02}], 
Line[{{7, 0}, {7, 
                  10*Log[10, 7]}, {0, 
                  10*Log[10, 7]}}], 
Line[{{7.5, 0}, {7.5, 
                  10*Log[10, 7.5]}, {0, 
                  10*Log[10, 7.5]}}]}, 
{Dashing[{0.02, 
                0.02}], 
Line[{{2, 0}, {2, 
                  10*Log[10, 2]}, {0, 
                  10*Log[10, 2]}}], 
Line[{{2.5, 0}, {2.5, 
                  10*Log[10, 2.5]}, {0, 
                  10*Log[10, 
                      2.5]}}]}
}, 
PlotStyle -> {AbsoluteThickness[2], 
          RGBColor[1, 0, 0]}]\)

<< Graphics`Graphics`;
\(LogLinearPlot[
      10*Log[10, x], {x, 0.1, 10}, 
Frame -> 
        True, 
FrameLabel -> {"x", "y (dB)"}, 
FrameTicks -> {Table[0.1*10\^\(i - 1\), {i, 1, 10}], 
          Automatic, {}, {}}, 
FrameStyle -> {AbsoluteThickness[1], 
          RGBColor[0.01, 0.01, 0.01]}, 
GridLines -> 
        True, 
Axes -> 
        True, 
AxesStyle -> {AbsoluteThickness[1], 
          RGBColor[0.01, 0.01, 
            0.01]}, 
PlotStyle -> {AbsoluteThickness[
            2], RGBColor[1, 0, 0]}]\)