Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: "Displaying" the meaning of zero

• To: mathgroup at smc.vnet.net
• Subject: [mg130362] Re: "Displaying" the meaning of zero
• From: Bob Hanlon <hanlonr357 at gmail.com>
• Date: Thu, 4 Apr 2013 22:32:56 -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: <20130404025358.1AF6B6B12@smc.vnet.net>

Manipulate[
 If[n == 0,
  Style["0", Red, 24],
  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"}]



Bob Hanlon


On Wed, Apr 3, 2013 at 10:53 PM, Clif McInnis <c_mcinnis at hotmail.com> wrote:

> 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"}]
>
> Code #2
>
> Manipulate[Pane[Row[Table[Graphics[{
>       Darker[Green],
>       Disk[{0, 0}, .5],
>       Text[Style[numerals[[ r]], Orange, "Label", 24], {0, 0}]}], {r,
>      1, n}]], {925, 200},
>   BaseStyle -> {LinebreakAdjustments -> {1., 10, 0, 0, 10}}], {{n, 1,
>    "Number \nof Disks"}, 0, 20, 1}, Initialization :> (
>    numerals = {"1", "2", "3", "4", "5", "6", "7", "8", "9", "10",
>       "11", "12", "13", "14", "15", "16", "17", "18", "19", "20"};)]
>
>

• References:
  • "Displaying" the meaning of zero
    • From: Clif McInnis <c_mcinnis@hotmail.com>