Tag Info

New answers tagged

3

Update: BubbleChart with a custom ChartElementFunction: bcdata = MapIndexed[Join[#2, {#1, 1}] &, whiteballs, {-1}]; (* transform data to a form acceptable for BarChart3D *) ceF[ind_:3, sz_:36, c_:Black][{{xmin_, xmax_}, {ymin_, ymax_},{zmin_, zmax_}}, v_, m_] := Dynamic@Module[{vtc = {{0, 0}, {0, 1}, {1, 1}, {1, 0}}}, ...


5

As an addendum to @ubpdqn's answer, this is an attempt to tackle the problem in a slightly less brute-force way. The idea is to make use of the symmetry of the graph in question. In the end we'll obtain all the harmonious labelings that are not related to each other via the symmetry of the graph. Note that this approach is only less brute-force for graphs ...


5

This is an interesting question and I await better answers than mine which is just some musings: Some functions to visualize and decide if an edge labeling is harmonious: hlab[list_] := Graph[UndirectedEdge @@@ list, EdgeLabels -> Thread[UndirectedEdge @@@ list -> (Mod[Total@#, Length@list] & /@ list)], EdgeLabelStyle -> ...


1

You need to change the value of the option CellLabelAutoDelete to False. This can be done at the Cell, Notebook, or Global level. This can be done using Format > Option Insepctor... or SetOptions. For one Notebook: SetOptions[EvaluationNotebook[], CellLabelAutoDelete -> False] Globally (overridden by Notebook options): SetOptions[$FrontEnd, ...


6

This can be done in one of two ways. In both cases I am bypassing the creation of sizesStr: sizes = {10718, 881, 395, 387, 375, 309, 297}; BarChart[sizes, BarOrigin -> Left, LabelingFunction -> (Placed[ Row[{#1, " kB"}], {{1, 0.5}, {0, 0.5}}] &)] For that example I am using Row to "join" the value with the unit. I am using the Placed ...



Top 50 recent answers are included