5

rf = ResourceFunction["CombinePlots"]; Quiet @ rf[Plot[x^2, {x, 0, 10}, Frame -> True, PlotRange -> {0, 100}, FrameStyle -> {{Blue, Red}, {Black, Black}}, BaseStyle -> 15], Plot[100 x^4, {x, 0, 10}, ScalingFunctions -> "Log", Frame -> True, PlotRange -> {0, 10^6}, FrameStyle -> Red, PlotStyle -> Red],...


4

Use higher WorkingPrecision: f[u_] = Sum[u^n/(n n! Zeta[1 + n]), {n, 1, 200}]; a = SetPrecision[1/2 - 30.424876126 I, ∞]; (* make exact value *) Plot[Re[f[a*Log[x]]], {x, 1, 5}, PlotRange -> All, WorkingPrecision -> 100]


3

Adding InterpolationOrder -> 0 prevents this issue. Voltage[x_] := ListLinePlot[ v, PlotStyle -> {Red, AbsoluteThickness[x]}, PlotRange -> Automatic, ImageSize -> 600, LabelStyle -> {FontSize -> 20, FontFamily -> "Helvetica", Black, Bold}, Frame -> {True, True, False, False}, FrameLabel -> {{"...


2

ContourPlot[x^2 - y^2, {x, -5, 5}, {y, -5, 5}, Contours -> {0, 1}, ContourShading -> {None, Brown, None}] Or RegionPlot[0 < x^2 - y^2 <= 1, {x, -5, 5}, {y, -5, 5}, PlotPoints -> 100]


1

$Version (* "12.3.1 for Mac OS X x86 (64-bit) (June 19, 2021)" *) Clear["Global`*"] Plot[{Re[DirichletL[5, 3, 1/2 + I t]], Im[DirichletL[5, 3, 1/2 + I t]]}, {t, 0, 20}, PlotLegends -> "Expressions"] Use FindRoot with starting values near the zero crossings from the Plot. Use Chop to remove the imaginary artifacts. Chop[...


Only top voted, non community-wiki answers of a minimum length are eligible