Wolfram Mathematica 7の新機能： 新しいインターフェース要素 ◄ 前へ | 次へ ►
枠に丸い角を使う
リスト中の素数に丸を付ける．
In[1]:=

Click for copyable input
Table[If[PrimeQ[i], 

  Framed[i, RoundingRadius -> 20, Background -> LightBlue], i], {i, 1,

   1000, 11}]
Out[1]=