New answers tagged

1

Better practice is ContourPlot[x y, {x, -2, 2}, {y, -2, 2}, ContourShading -> False, Contours -> 10, ContourLabels -> (Rotate[ Text[" " <> ToString[#3] <> " ", {#1, #2}, Background -> White], -ArcTan[#2/#1]] &)] This reaches the level of for example Matlab contour plots that are very popular. ...


5

Maybe you could use ContourPlot to obtain some good automatic spacing for the contour labels. Clear[f, a, b, cp, plt, crd, txts] f[x_, y_] = (x^3 + y^3)/(x^2 + y^2); cp = ContourPlot[f[x, y], {x, -1, 1}, {y, -1, 1}, Contours -> 20, ContourLabels -> All] plt = Plot3D[f[x, y], {x, -1, 1}, {y, -1, 1}, MeshFunctions -> {#3 &}, Mesh -> 19] ...


2

SeedRandom[1] points = RandomPoint[Circle[{0, 0}, {2, 3}], 10]; centroid = RegionCentroid@BoundingRegion[points, "FastDisk"]; labels1 = IntegerName /@ Range[Length@points]; labels2 = IntegerName[#, "French"] & /@ Range[Length@points]; gap = .2; labeleddata = Table[MapThread[Callout[#, #2, # + i[[1]] gap Normalize[# - centroid], ...


1

You can nest Labeled and Callout individually or together. They can be individually positioned. ListPlot[{Callout[Labeled[{1, 2}, "Label 1", Above], "Label 2", Below, Appearance -> None], Labeled[Callout[{2, 1}, "Label 1", Above, Appearance -> None], "Label 2", Below], Labeled[Labeled[{.5, .5}, "...


7

You can use Graphics3D Graphics3D[{Green, Tube[{{0, 0, 0}, {2 Pi, 0, 0}}, .04], Table[{Sphere[{i, Cos[i], Sin[ i]}, .05], Tube[{{i, 0, 0}, {i, Cos[ i], Sin[ i]}}, .04]}, {i, 0, 2 Pi, 2 Pi/30}]}, ImageSize -> Large, Boxed -> False] or Graphics3D[{Green, Tube[{{0, 0, 0}, {2 Pi, 0, 0}}, .04], {Sphere[{#, Cos[ #], Sin[ #]}, .05], Tube[...


0

Clear["Global`*"] Your data does not consist of coordinates but rather just amplitudes corresponding to the default DataRange of {1, 16} in the x and y dimensions. Rescale the axes to place the origin within the DataRange. ListPointPlot3D[ Table[Sin[j^2 + i], {i, 0, 3, 0.2}, {j, 0, 3, 0.2}], Filling -> Bottom, AxesOrigin -> {0, 0, 0}, ...


1

SeedRandom[1] data = RandomPoint[Cuboid[], 5]; labels = IntegerName /@ Range[5]; ListPointPlot3D[(List /@ data) -> labels, PlotTheme -> "Scientific", LabelingFunction -> (Style[#3[[2, 1]], 16, Bold, FontFamily -> "Arial", ColorData["Rainbow"][Rescale[Last@#, MinMax[data[[All, 3]]], {0, 1}]]] &), ...


Top 50 recent answers are included