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