I need to combine these plots of fdk
(in blue) and RiemannXi
(in orange) into one plot with all 3 pairs of axes in a form that allows labeling. I haven't been able to figure this out.
Edit---something to make this more interesting--- We can put Zeta[s]
in as the third plot and legend. We get a crossover at {0,-1/2}. Awesome connections!
So grab one of the plots below and check it out.
Edit2---new plot w/o legends
Note: we constructed a unit-square within the 3 plots that connects them together.
fdk[s_] := 1/2 - 1/(2 s + 1)
{Plot[{fdk[s], \[Pi]^(-s/2) (-1 + s) Gamma[1 + s/2] Zeta[s]}, {s, -10,
10}, AspectRatio -> 1, AxesOrigin -> {1/2, 1/2}, Frame -> True],
Plot[{fdk[s], \[Pi]^(-s/2) (-1 + s) Gamma[1 + s/2] Zeta[s]}, {s, -10,
10}, AspectRatio -> 1, AxesOrigin -> {0, 0}, Frame -> True],
Plot[{fdk[s], \[Pi]^(-s/2) (-1 + s) Gamma[1 + s/2] Zeta[s]}, {s, -10,
10}, AspectRatio -> 1, AxesOrigin -> {-1/2, -1/2}, Frame -> True]}
RiemannXi
is built-in. $\endgroup$Show
doesn't combine the axes, so I need a way to make them lines. $\endgroup$RiemannXi[s]
evaluates to the expression that you are using and produces identical plots. $\endgroup$