jaednoliko gibanje dvaju automobila

globals


[
  d_x
  s
  v
  d_t
  d_x1
  s1
  v1
  d_t1
]

to setup
  clear-all


setup-automobil
setup-pozadina

reset-ticks
end 

to go
  ask turtle 1
  [
    unos1
    izračun1
  ]

  ask turtle 0
  [
    unos
    izračun

  ]



tick
end 

to setup-automobil
  create-turtles 2


  ask turtle 0
  [
    set heading 90
    set size 2
set shape "car"
    setxy -20 0
  ]
  ask turtle 1
  [
    set shape "car"
    set color yellow
    set heading 90
    set size 2
    setxy -20 3
  ]
end 

to unos

  set v brzina_prvog
  set d_t 0.001
end 

to izračun
  set d_x (v * d_t)
  set xcor (xcor + d_x)
  set s (s + d_x)
end 

to setup-pozadina
  ask patches
  [
    set pcolor red
  ]
end 

to unos1
  set d_t1 0.001
  set v1 brzina_drugog
end 

to izračun1
  set d_x1 (v1 * d_t1)
  set xcor (xcor + d_x1)
  set s1 (s1 + d_x1)
end