MathGroup Archive 2013

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

Search the Archive

Re: "Displaying" the meaning of zero


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






  • Prev by Date: Re: Locators: Retrieve coordinates data to added locators
  • Next by Date: Re: 3D ViewPoint Selector (V5.2) in higher Mathematica versions ?
  • Previous by thread: Re: "Displaying" the meaning of zero
  • Next by thread: Re: "Displaying" the meaning of zero