Re: Evolutionsspiel

[Nowak Robert <Robert.Nowak@XXXXXXX.at>]

Table[
  i = RandomInteger[{0, 9}]; j = RandomInteger[{0, 9}];
  p = RandomChoice[hh];
  If[MemberQ[rot, p], rot = Complement[rot, {p}]];
  If[MemberQ[blau, p], blau = Complement[blau, {p}]];
  If[MemberQ[gruen, p], gruen = Complement[gruen, {p}]];
  If[MemberQ[gelb, p], gelb = Complement[gelb, {p}]];
  i = RandomInteger[{0, 9}]; j = RandomInteger[{0, 9}];
  q = RandomChoice[Complement[hh, {p}]];
  If[MemberQ[rot, q], rot = rot \[Union] {p}];
       If[MemberQ[blau, q], blau = blau \[Union] {p}];
  If[MemberQ[gruen, q], gruen = gruen \[Union] {p}];
  If[MemberQ[gelb, q], gelb = gelb \[Union] {p}];
  Sow[ListPlot[{paar[rot], paar[blau], paar[gruen], paar[gelb]},
    PlotStyle -> {{PointSize[0.04], Red}, {PointSize[0.04],
       Blue}, {PointSize[0.04], Green}, {PointSize[0.04], Yellow}},
    AspectRatio -> Automatic,
    PlotRange -> {{-0.5, 10.5}, {-0.5, 10.5}},
    Axes -> None]],
{10}] // ListAnimate


vergiss For und While gewöhne dich an Table und in weiterer folge Map.

LG Robert

On 15.09.2011 10:22, Andreas Rychen wrote:
> Andreas Rychen
> Riedliweg 45
> 3053 Münchenbuchsee
>
> Ich möchte eine Evolutionsspiel von Manfred Eigen (Das Spiel) simulieren.
> Auf einem Brett liegen zufällig verteilt 4 Populationen, dargestellt
> mit verschiedenen Farben.
> 1. Zufällig wird ein Feld ausgewählt und die Figur dort entfernt.
> 2. Aus den restlichen Feldern wird wieder eins ausgewählt, ist es z.
> B. rot, wird das leere Feld durch eine rote Figur ergänzt.
>
> Die Punkte 1 und 2 wechseln sich ab. Nach und nach sollte man
> beobachten, wie sich eine Population durchsetzt.
>
> Soweit so gut. Im beiliegenden Programm funktioniert das. Allerdings
> erscheinen die Tabellen untereinander anstatt zeitlich nacheinander an
> derselben Stelle.
> Wie lässt sich das bewerkstelligen?
>
> Freundliche Grüsse
> Andreas Rychen 


-- 
DI (FH) Robert Nowak
IMS Nanofabrication AG
Austria, 1020 Wien, Schreygasse 3
Phone: +43 1 2144894-32
Fax:   +43 1 2144894-99
mailto:robert.nowak@XXXXXXX.at
http://www.ims.co.at

begin:vcard
fn:Robert Nowak
n:Nowak;Robert
org:IMS Nanofabrication AG
adr:;;Schreygasse 3;Wien;;1020;Austria
email;internet:robert.nowak@XXXXXXX.at
tel;work:+43 1 2144894 32
tel;fax:+43 1 2144894 99
url:http://www.ims.co.at
version:2.1
end:vcard