Search All of the Math Forum:

Views expressed in these public forums are not endorsed by NCTM or The Math Forum.

Notice: We are no longer accepting new posts, but the forums will continue to be readable.

Topic: "Displaying" the meaning of zero
Replies: 1   Last Post: Apr 4, 2013 10:30 PM

 Bob Hanlon Posts: 906 Registered: 10/29/11
Re: "Displaying" the meaning of zero
Posted: Apr 4, 2013 10:30 PM

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