New answers tagged

5

a = 1; c = 1; b = -1; d = 1; p = 1; q = -1; f1 = (Exp[-2 r a] p)/(2 r c) + (Exp[-2 r b] p)/(2 r d); f2 = (Exp[-2 r a] q)/(2 r c) + (Exp[-2 r b] q)/(2 r d); a = 1; c = 1; b = -1; d = 1; p = 1; q = -1; f1 = (Exp[-2 r a] p)/(2 r c) + (Exp[-2 r b] p)/(2 r d); f2 = (Exp[-2 r a] q)/(2 r c) + (Exp[-2 r b] q)/(2 r d); Plot[{f1, f2}, {r, -2, 2}, PlotRange -> ...


4

Clear["Global`*"] a = 1; c = 1; b = -1; d = 1; p = 1; q = -1; f1 = (Exp[-2 r a] p)/(2 r c) + (Exp[-2 r b] p)/(2 r d); f2 = (Exp[-2 r a] q)/(2 r c) + (Exp[-2 r b] q)/(2 r d); Plot[Evaluate@Outer[ Tooltip@ConditionalExpression[#2, #1] &, {r > 0, r < 0}, {f1, f2}], {r, -2, 2}, PlotLegends -> {"f1;\[ThinSpace]r\[ThinSpace]&...


4

You did not form the callout properly. Here is a way that works. data = {0, 0, 0, 0, 0, 0, 0, 0, 0, 5, 5, 5, 5, 5, 5, 7, 7, 7}; es = EventSeries[data, Automatic]; rescaleTS = Table[ {DatePlus[ DateObject["January 1, 2020"], {i - 1, "Month"}], Normal[es][[i]][[2]]}, {i, 1, es["PathLength"]}]; vals = ...


7

This looks like a job for GridLines: gridlines = {#, #} & @ Thread[{{-1/2, 0, 1/2}, Directive[Thin, ColorData[97]@#] & /@ Range[3]}]; Plot[{fdk[s], RiemannXi[s]}, {s, -10, 10}, AspectRatio -> 1, Axes -> False, Frame -> True, PlotLegends -> "Expressions", GridLines -> gridlines] Interactively position and add/remove ...


6

Clear["Global`*"] fdk[s_] := 1/2 - 1/(2 s + 1) To overlay the plots, Plot[{fdk[s], RiemannXi[s]}, {s, -10, 10}, AspectRatio -> 1, Axes -> False, Frame -> True, PlotLegends -> {fdk, RiemannXi}, Epilog -> ({Opacity[0.3, ColorData[97][2 # + 4]], Tooltip[Line[{{-10, #}, {10, #}}], #], Tooltip[Line[{{#, -1.25}, {#, 3}}],...


2

It does not work because Labeled is not a Graphics primitive or directive. Some alternatives Using the Text primitive and Show Show[ RegionPlot[x > y, {x, -2, 2}, {y, -2, 2}], Graphics[{Red, Point[{1/6, 1/3}], Black, Text["a", {1/6 - .1, 1/3}]}]] Using Epilog RegionPlot[x > y, {x, -2, 2}, {y, -2, 2}, Epilog -> {Red, Point[{1/6, 1/3}], ...


Top 50 recent answers are included