Groups | Search | Server Info | Keyboard shortcuts | Login | Register [http] [https] [nntp] [nntps]

Groups > comp.soft-sys.math.mathematica > #2981

Re: Getting a chess with circles

Show all headers | View raw

Is this what you had in mind?

chessboard[n_] := With[{C1 = {-n/2, 0}, C2 = {n/2, 0}},
  RegionPlot[
   Norm[{x, y} - C1] < n && Norm[{x, y} - C2] < n, {x, -n/2,
    n/2}, {y, -n, n},
   MeshFunctions -> {Norm[{#1, #2} - C1] &, Norm[{#1, #2} - C2] &},
   Mesh -> {Range[n], Range[n]},
   MeshShading -> {{Purple, Yellow}, {Yellow, Purple}},
   AspectRatio -> 2, Frame -> False,
   PlotPoints -> 20, BoundaryStyle -> Black
   ]]

chessboard[10]

Heike

On 6 Jun 2011, at 11:24, Jean-Louis Garcin wrote:

>
>
>
> Hello,
>
> In the features demonstrations  there is an example about  n-Player Chessboards.
>
> With this model we can get a chess for example:
> ParametricPlot[
> Table[{Re[E^(I Arg[(u + I v)^2]) Abs[(u + I v)] E^(I (j - 1) 2 Pi)],
>   Im[E^(I Arg[(u + I v)^2]) Abs[(u + I v)] E^(I (j - 1) 2 Pi)]}, {j, 1,
>   1}], {u, -1, 1}, {v, -1, 1}, MeshStyle -> {None, None}, Mesh -> {10, 4},
> MeshShading -> {{Yellow, Orange}, {Orange, Yellow}}, PlotRange -> 1.5,
> Axes -> False, Frame -> False, ImageSize -> {400, 400}]
>
>
> But I would want  to get a chess with  two lists of circles: the first list is made with circles which have the same center A , and  the second list is made with the same center B, A and B are different.
>
> For instance AB=10 the radius of the circles are 1, then 2, 3,  and son on.
>
> So the intersections point of circles are on ellipses or hyperbols.
>
>
> I have no idea.
>
> Thank You for your help.
>
> Jean-Louis Garcin
>
>
>
>

Back to comp.soft-sys.math.mathematica | Previous | Next | Find similar | Unroll thread

Thread

Re: Getting a chess with circles Heike Gramberg <heike.gramberg@gmail.com> - 2011-06-06 11:28 +0000

csiph-web