Mathematica 9 is now available
Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2013

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

Search the Archive

"Displaying" the meaning of zero

  • To: mathgroup at smc.vnet.net
  • Subject: [mg130349] "Displaying" the meaning of zero
  • From: Clif McInnis <c_mcinnis at hotmail.com>
  • Date: Wed, 3 Apr 2013 22:53:58 -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

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"};)]



  • Prev by Date: Presentation/SlideShow view environment
  • Next by Date: Re: find position in a list made by string by searching incomplete string
  • Previous by thread: Re: Presentation/SlideShow view environment
  • Next by thread: Re: "Displaying" the meaning of zero