MathGroup Archive 2013

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

Search the Archive

Re: "Displaying" the meaning of zero

  • To: mathgroup at smc.vnet.net
  • Subject: [mg130353] Re: "Displaying" the meaning of zero
  • From: C McInnis <c_mcinnis at hotmail.com>
  • Date: Thu, 4 Apr 2013 22:29:55 -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:

Bob, Thank you, that does exactly what I want it to do. I had tried an if statement, however I had written it If[n>0... and had put to code to handle the disks after that; putting the code for handling just the zero at the end of the statement. I also was trying to use "Text[Style... which may have been the problem, but I kept getting error messages. At any rate I appreciate your assistance, and hope that you have a great day. Sincerely -- Clifton McInnis

 Date: Thu, 4 Apr 2013 00:05:22 -0400
Subject: [mg130353] Re: "Displaying" the meaning of zero
From: hanlonr357 at gmail.com
To: c_mcinnis at hotmail.com
CC: mathgroup at 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"};)]




 		 	   		  =



  • Prev by Date: Can one optimize AutomaticNumbering feature?
  • Next by Date: webMathematica and Manipulate
  • Previous by thread: Re: "Displaying" the meaning of zero
  • Next by thread: Re: "Displaying" the meaning of zero