Services & Resources / Wolfram Forums / MathGroup Archive
-----

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: [mg130369] Re: "Displaying" the meaning of zero
  • From: Roland Franzius <roland.franzius at uos.de>
  • Date: Thu, 4 Apr 2013 22:35:16 -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: <kjiprg$3l1$1@smc.vnet.net>

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