---igra_zivljenje.nlogo

NETLOGO

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瀍ni-enkrat
go
NIL
1
T
OBSERVER
T

BUTTON
149
226
283
259
za瀍ni-naskon鑞o
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