Gibanje auta

globals
[d_x d_t v s x_B v1 v2 v3 d_t1 d_t2 d_t3 d_x1 d_x2 d_x3
]

to setup
clear-all
 setup-čestica
setup-pozadina
reset-ticks
end 

to go
  ask turtle 0
  [
  if xcor <= x_B
  
  [
    izračun
  ]
  ]
  
  ask turtle 1
  [
    if xcor <= x_B
    [
    izračun1
    ]
  ]
  
  ask turtle 2
  [
    if xcor <= x_B
    [
      izračun2
    ]
  ]
  
  ask turtle 3
  [
    if xcor <= x_B
    [
      izračun3
    ]
  ]
  tick
end 

to setup-čestica
create-turtles 4
ask turtle 0
[
  set v random 100
set shape "car"
set color green
set size 2
setxy -10 0
if putanja [
  pen-down
]
]
ask turtle 1
[
  set v1 random 100
 set shape "car"
 set color blue
 set size 2
 setxy -10 9
 if putanja [
   pen-down
 ]
]
ask turtle 2
[
  set v2 random 100
  set shape "car"
  set color brown
  set size 2
  setxy -10 6
  if putanja [
    pen-down
  ]
]  
ask turtle 3
[
  set v3 random 100
 set shape "car"
 set color black
 set size 2
 setxy -10 3
 if putanja [
   pen-down
 ]
]
end 

to setup-pozadina
  set x_B random 15
  ask patches
 [
 set pcolor white
 ]
 
 ask patch -10  0
[
 set pcolor grey
set plabel "A"
]

ask patch x_B 0
[
  set pcolor grey
  set plabel
 "B"
]

ask patch -10 9
[
  set pcolor grey
  set plabel "A"
]

ask patch x_B 9
[
 set pcolor grey
 set plabel "B"
]
end 

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

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

to izračun2
  
   set d_t2 0.001
   
   set d_x2 (v2 * d_t2)
   set xcor (xcor + d_x2)
   set s (s + d_x2)
end 

to izračun3
 
    set d_t3 0.001
    
    set d_x (v3 * d_t3)
    set xcor (xcor + d_x3)
    set s (s + d_x3)
end