New answers tagged

7

Here's a somewhat ridiculous way to achieve that: ListPlot[ {Labeled[{0, 0}, "The first point"], Labeled[{1, 1}, "The second one", Left]}, Axes -> False ]


2

Plot[Sin[x], {x, 0, 6 Pi}, Frame -> True, FrameLabel -> {Style[Subsuperscript[a, Row[{Style["b", Italic], ", c"}], Row[{Style["d", Italic], ", e"}]], 18]}]


2

I tested this with V.10.4.1 running on OS X. The following both work as expected Plot[{Sin[t], Sin[2 t]}, {t, 0, 4 π}, Filling -> Axis] Plot[{Sin[t], Sin[2 t]}, {t, 0, 4 π}, PlotLabels -> Placed[{"A", "B"}, Above]] but Plot[{Sin[t], Sin[2 t]}, {t, 0, 4 π}, PlotLabels -> Placed[{"A", "B"}, Above], Filling -> Axis] fails to ...


3

Post-processing the DendrogramPlot output to extract the cluster distances and placing them in appropriate locations: dplt = DendrogramPlot[DirectAgglomerate[data, Style[#, 16] & /@ {"G1", "G2", "G3", "G4", "G5", "G6"}, Linkage -> "Single"], LeafLabels -> Automatic, Orientation -> Right, PlotStyle -> {Red, Thick}, Axes ...


0

Here is an interactive approach using Tooltip and DynamicWrapper. The data is reformatted. f = DynamicModule[{col = Black}, DynamicWrapper[Dynamic[Style[#, col, Bold]], If[CurrentValue["MouseOver"], col = Red; pos = {Red, Thickness[0.01], Arrow[{{0, 0}, {#2, #3}}]}, col = Black; pos = {}]]] & dat = {#1, Sequence @@ ##2} & @@@ ...


0

Thanks dear yarchik for your valuable link. Also, I was able to solve my issue by adding/modifying the following commands to the existing ones in the first line: FrameLabel -> {Style["x-coordinate", 24],Style["y-coordinate", 24]} FrameTicksStyle -> Directive[FontSize -> 22] And adding the following command to the second line: FrameTicksStyle ...


0

For a verry nice Q & A see Using Evaluate and Evaluated -> True in Plot Plot[{{A0 E^(-k1 t) , -((A0 E^(-k1 t - k2 t) (-E^(k1 t) + E^(k2 t)) k1)/(k1 - k2)) , (A0 E^(-k1 t - k2 t) (-E^(k1 t) k1 + E^(k1 t + k2 t) k1 + E^(k2 t) k2 - E^(k1 t + k2 t) k2))/(k1 -k2)} /. {A0 -> 1, k1 -> 4, k2 -> 10}} , {t, 2, 0} , Evaluated -> True] Plot[{{A0 ...


2

You should change the variable ranges, rather than translate the function; The points you are interested in are at a fixed position in the original frame, so don't move then either: Manipulate[ StreamPlot[ {v, (u) + 1/4 (u)^2}, {u, -r + x0, r + x0}, {v, -r + y0, r + y0}, StreamScale -> Automatic, AspectRatio -> 1, ImageSize -> 500, ...



Top 50 recent answers are included