patches-own [
  living?         ;; indicates if the cell is living
  live-neighbors  ;; counts how many neighboring cells are alive
]

to nastavi-prazno
  ask patches
    [ cell-death ]
end

to nastavi-nakljucno
  ask patches
    [ ifelse random-float 1.0 < zacetna-gostota
        [ cell-birth ]
        [ cell-death ] ]
end

to cell-birth
  set living? true
  set pcolor barva_celic
end

to cell-death
  set living? false
  set pcolor barva_ozadja
end

to go
  if mouse-down?
    [ stop ]  ;; wait for user to stop drawing
  ask patches
    [ set live-neighbors count neighbors with [living?] ]
  ;; Starting a new "ask patches" here ensures that all the patches
  ;; finish executing the first ask before any of them start executing
  ;; the second ask.  This keeps all the patches in sync with each other,
  ;; so the births and deaths at each generation all happen in lockstep.
  ask patches
    [ ifelse live-neighbors = 3
        [ cell-birth ]
        [ if live-neighbors != 2
            [ cell-death ] ] ]
end

to dodaj-celice
  if mouse-down?
    [ ask patch-at mouse-xcor mouse-ycor
        [ cell-birth ] ]
end

to odstrani-celice
  if mouse-down?
    [ ask patch-at mouse-xcor mouse-ycor
        [ cell-death ] ]
end


; *** NetLogo Model Copyright Notice ***
;
; This model was created as part of the project: CONNECTED MATHEMATICS:
; MAKING SENSE OF COMPLEX PHENOMENA THROUGH BUILDING OBJECT-BASED PARALLEL
; MODELS (OBPML).  The project gratefully acknowledges the support of the
; National Science Foundation (Applications of Advanced Technologies
; Program) -- grant numbers RED #9552950 and REC #9632612.
;
; Copyright 1998 by Uri Wilensky. All rights reserved.
;
; Permission to use, modify or redistribute this model is hereby granted,
; provided that both of the following requirements are followed:
; a) this copyright notice is included.
; b) this model will not be redistributed for profit without permission
;    from Uri Wilensky.
; Contact Uri Wilensky for appropriate licenses for redistribution for
; profit.
;
; This model was converted to NetLogo as part of the project:
; PARTICIPATORY SIMULATIONS: NETWORK-BASED DESIGN FOR SYSTEMS LEARNING IN
; CLASSROOMS.  The project gratefully acknowledges the support of the
; National Science Foundation (REPP program) -- grant number REC #9814682.
; Converted from StarLogoT to NetLogo, 2001.  Updated 2002.
;
; To refer to this model in academic publications, please use:
; Wilensky, U. (1998).  NetLogo Life model.
; http://ccl.northwestern.edu/netlogo/models/Life.
; Center for Connected Learning and Computer-Based Modeling,
; Northwestern University, Evanston, IL.
;
; In other publications, please use:
; Copyright 1998 by Uri Wilensky.  All rights reserved.  See
; http://ccl.northwestern.edu/netlogo/models/Life
; for terms of use.
;
; *** End of NetLogo Model Copyright Notice ***
@#$#@#$#@
GRAPHICS-WINDOW
301
11
836
388
61
40
4.27
1
10
1
1
1

CC-WINDOW
290
692
1272
858
Command Center

SLIDER
7
10
163
43
zacetna-gostota
zacetna-gostota
0.0
1.0
0.3
0.01
1
NIL

BUTTON
147
52
275
85
NIL
nastavi-nakljucno
NIL
1
T
OBSERVER
T

BUTTON
10
223
118
256
zaženi-enkrat
go
NIL
1
T
OBSERVER
T

BUTTON
149
226
283
259
zaženi-naskončno
go
T
1
T
OBSERVER
T

SLIDER
147
283
284
316
barva_celic
barva_celic
0.0
139.0
112.0
1.0
1
NIL

SLIDER
146
337
283
370
barva_ozadja
barva_ozadja
0.0
139.0
79.0
1.0
1
NIL

BUTTON
9
338
134
371
ponovno obarvaj
ifelse living?\n  [ set pcolor barva_celic ]\n  [ set pcolor barva_ozadja ]
NIL
1
T
PATCH
T

MONITOR
10
273
114
322
trenutna gostota
count patches with\n  [living?]\n/ count patches * 100
2
1

BUTTON
8
51
124
84
NIL
nastavi-prazno
NIL
1
T
OBSERVER
T

TEXTBOX
136
101
287
206
Ko je aktiven (pritisnjen) eden od teh gumbov,lahko dodajaš ali odstranjuješ celice,tako da "rišeš" s pritisnjenim gumbom miške.

BUTTON
8
101
111
136
NIL
dodaj-celice
T
1
T
OBSERVER
NIL

BUTTON
8
156
121
194
NIL
odstrani-celice
T
1
T
OBSERVER
NIL

@#$#@#$#@
KAJ DELA?
---------
Ta program se izvaja na podlagi določenih pravil.  Lahko si ga zamislimo kot tablo,katera je razdeljena na kvadratne celice.  Vsaka celica je lahko prižgana ali ugasnjena.  Temu pravimo "stanje" celice.  Skladno z določenimi pravili bo vsaka celica prižgana (živa) ali ugasnjena (mrtva) v vsakem naslednjem koraku.

Program lahko poimenujemo Igra življenja. Pravila igre so naslednja.  Vsaka celica v polju preveri svoje stanje in stanje osmih sosednjih celic (katere jo obkrožajo) in se postavi v stanje prižgana ali ugasnjena, glede na določena pravila.  Pravila so naslednja:  
Če sta manj kot dve sosednji celici "prižgani",potem se celica ugasne.  
Če so več kot tri sosednje celice "prižgane",potem se celica ugasne.  
Če sta "prižgani" natanko 2 sosednji celici,potem celica ostane v istem stanju.
Če so "prižgane" natanko 3 sosednje celice,potem se celica prižge.
To se dogaja v neskončnost,vzporedno za vse celice v polju na vsakem koraku.

Pojavljajo se določene ponavljajoče se oblike,na primer "jadralec" in "bliskavec".  
Jadralec je sestavljen iz 5 celic, katere tvorijo obliko glave pučice,glej postavitev celic:

|            X
|              X
|          X X X

Jadralec bo migotal čez polje in pri tem ohranjal svojo obliko.  Bliskavec je blok treh zaporednih celic  ,ki se obrača med horizontalno in vertikalno postavitvijo.


KAKO GA UPORABLJAMO
-------------------
Drsnik ZAČETNA-GOSTOTA določa gostoto živih celic v polju na začetku.  NASTAVI-NAKLJUČNO postavi prej določeno število celic v polje.  ZAŽENI-NESKONČNO požene pravilo v neskončnost (se ne ustavi).  ZAŽENI-ENKRAT požene pravilo enkrat (naredi samo en korak).

Barvo ozadja in barvo celic lahko nastavimo z drsniki.  Potrebno je samo nastaviti drnike in pritisniti gumb PONOVNO OBARVAJ. Mogoče bo potrebno malo eksperimentiranja,  da bi dosegel željene barve.

@#$#@#$#@
default
true
0
Polygon -7566196 true true 150 5 40 250 150 205 260 250

@#$#@#$#@
NetLogo 2.0.0
@#$#@#$#@
setup-random repeat 20 [ go ]
@#$#@#$#@
@#$#@#$#@