New answers tagged labeling
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
