Search type Search syntax
Tags [tag]
Exact "words here"
Author user:1234
user:me (yours)
Score score:3 (3+)
score:0 (none)
Answers answers:3 (3+)
answers:0 (none)
isaccepted:yes
hasaccepted:no
inquestion:1234
Views views:250
Sections title:apples
body:"apples oranges"
URL url:"*.example.com"
Favorites infavorites:mine
infavorites:1234
Status closed:yes
duplicate:no
migrated:no
wiki:no
Types is:question
is:answer
Exclude -[tag]
-apples
For more details on advanced search visit our help page
Results tagged with Search options answers only user 125

Questions about applying a consistent look or form to Mathematica output, including use of the built-in styling constructs (Style, PlotStyle, etc). For questions specific to styling in notebooks with stylesheet properties please use the [stylesheet] tag.

3
votes
Do[CellPrint[ CellGroup[{TextCell["i = " <> ToString@i, "Subsection"], ExpressionCell[Plot[Sin[i x], {x, -Pi, Pi}, ImageSize -> 150], "Output"]}]], {i, 1, 3}]
answered Sep 9 '18 by kglr
2
votes
You need to set the option ShowGroupOpener to True: SetOptions[EvaluationNotebook[], ShowGroupOpener -> True] You can also use $FrontEnd (resp., $FrontEndSession) instead of EvaluationNotebook[] t …
answered Mar 7 '15 by kglr
2
votes
Few modifications of @Mr.Wizard's elegant answer to (1) make it work in Version 9, (2) add additional buttons to invoke font-related dialogs, and (3) eliminate the Save dialog when the palette is clos …
answered Jan 15 '15 by kglr
6
votes
Grid[Partition[Item[#, Background -> If[FreeQ[IntegerDigits@#, 3], White, Yellow]] & /@ Range @ 100, 10], ItemSize -> 2, Dividers -> All]
answered Jan 24 '18 by kglr
7
votes
For "Bands", you can use FaceForm to style fillings. So, using IntervalMarkersStyle -> Directive[Magenta,Thick, Dashed, FaceForm[Opacity[.3, Green]]] we get Update: To make the edges …
answered Jul 25 by kglr
3
votes
}]; ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Directive[Opacity[.5], Hue[#2]]] & @@@ data, PlotStyle -> PointSize[0]] Two additional work-arounds are (1) to set the value of the PlotMarkers … option to an empty String or an empty Graphic, or (2) use PlotStyle -> Opacity[0]: ListPlot[Style[{#1, #2}, PointSize[Abs[#2]/50], Directive[Opacity[.5], Hue[#2]]] & @@@ data, PlotMarkers -> ""] (* or PlotMarkers ->Graphics[{}] or PlotStyle->Opacity[] *) …
answered Sep 29 '14 by kglr
3
votes
One out of many possible ways: hideF = Row[List @@ StringReplace[#, w: Alternatives @@ #2 :> Style["...", Blue]]] &; highlightF = Row[List @@ StringReplace[#, w: Alternatives @@ #2 :> Style[w, Red …
answered May 2 '17 by kglr
4
votes
list = {{a, b}, {c, d}, {e, f}}; list2 = MapAt[Item[#, Background -> Red] &, list, {{2, All}}]; TableForm[list2, TableHeadings -> {{"r1", "r2", "r3"}, {"c1", "c2"}}] or list3 = list; list3[[2]] …
answered Apr 1 '18 by kglr
1
vote
You can wrap each data element with List: ErrorListPlot[List /@ data]
answered Apr 3 by kglr
3
votes
You can specify a default color using blank pattern _ -> color or just color first in the list followed by exceptions as follows : VertexStyle -> {Lighter[Yellow, 1 - (2/3)^4], 4 | 6 -> Lighter[Ligh …
answered Sep 3 by kglr
6
votes
lst = Table[{Sin[n], Sin[2 n]}, {n, 50}]; opacities = RandomReal[1, {50}]; ListPlot[List /@ lst, PlotStyle -> (Opacity /@ opacities), BaseStyle -> PointSize[Large]]
answered Jun 1 '16 by kglr
3
votes
g1 = Graph[{1 <-> 2, 1 <-> 4, 1 <-> 7, 1 <-> 10, 1 <-> 12 , 2 <-> 3,    2 <-> 4, 2 <-> 9, 3 <-> 4, 3 <-> 5, 5 <-> 6, 5 <-> 11,  5 <-> 12, 6 <-> 7,    6 <-> 12, 7 <-> 8, 7 <-> 12, 8 <-> 10, …
answered Oct 3 '18 by kglr
0
votes
Perhaps: Show[ContourPlot[R ω p Sin[ω Min[τ, 40 - τ]] + R ω p α - 9/4 r p R^3 ω - η p R == 0, {τ, #, #2}, {R, 0, 2}, ContourStyle -> Directive[#3, Thick]]& @@@ {{0, 20, Blue}, {20, 40, Green}}, …
answered Feb 2 '18 by kglr
3
votes
Translate: groups = Partition[labeleddata14GAOF, 2]; grouplabels = Style[#, 18, Bold] & /@ {"GA", "MOPSO", "NSGA"}; options = Sequence[ChartStyle -> {GrayLevel[0.1], GrayLevel[0.2], GrayLevel …
answered Feb 12 by kglr
3
votes
Single-parameter ParametricPlot3D ParametricPlot3D[Evaluate @ Table[coord[th], {v, 0, 2 Pi, 2 Pi/20}], {th, 0, Pi}, PlotStyle -> Directive[Red, Thick]] RotationTransform line = ParametricPlot3 …
answered Feb 6 '18 by kglr

15 30 50 per page