Re: "Displaying" the meaning of zero
- To: mathgroup at smc.vnet.net
- Subject: [mg130369] Re: "Displaying" the meaning of zero
- From: Roland Franzius <roland.franzius at uos.de>
- Date: Thu, 4 Apr 2013 22:35:16 -0400 (EDT)
- Delivered-to: l-mathgroup@mail-archive0.wolfram.com
- Delivered-to: l-mathgroup@wolfram.com
- Delivered-to: mathgroup-newout@smc.vnet.net
- Delivered-to: mathgroup-newsend@smc.vnet.net
- References: <kjiprg$3l1$1@smc.vnet.net>
Am 04.04.2013 04:51, schrieb Clif McInnis: > I would like to have at least one of these codes work so that when n=0 no disks are displayed but the numeral zero is displayed. > > Code #1 > > Manipulate[ > Grid[Partition[ > Join[Graphics[{Darker[Green], Disk[], > Text[Style[#, Orange, "Label", 24], {0, 0}]}] & /@ Range[n], > Table["", {9}]], 10], ItemSize -> 3], {{n, 1, "Number\nof Disks"}, > 0, 20, 1, Appearance -> "Labeled"}] > Alternate text for n=0 using an If-Statement instead of the simple /@Range[n] and deliberately fitting the string "No disks" into a circle using StyleForm and Overscript Manipulate[ Grid[Partition[ Join[Graphics[{Darker[Green], Disk[], Text[Style[#, Orange, "Label", 24], {0, 0}]}] & /@ (*new*) If[n > 0, Range[n], {StyleForm[Overscript["Disk", "No"], 9]}], Table["", {9}]], 10], ItemSize -> 3], {{n, 1, "Number\nof Disks"}, 0, 20, 1, Appearance -> "Labeled"}] -- Roland Franzius