auto

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

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

to go
  
   ask turtle 0
  [   
    if xcor <= x_B
     [ 
      
      izračun1
     ] 
    
     ]
ask turtle 1

[
  if xcor <= x_B 
  [
    izračun2
  ] 
  ]
 
ask turtle 2 
 
 [ 
   if xcor <= x_B
 
 [
   izračun3
 ]
 ]

 tick
end 

to setup-čestica
create-turtles 4
  ask turtle 0
   [
     set v1 random 100
    set shape "car"
    set color red
    set size 3
    setxy -10 0
    if putanja  
  [
     pen-down
    
  ]
   ] 

  
 ask turtle 1
 [
   set v2 random 100
  set shape "car"
  set color blue
  set size 3
  setxy -10 9
  if putanja 
  [
    pen-down
    
  ]
  ]

 ask turtle 2
 [
   set shape "car"
   set color orange
   set size 3 
   setxy -10 5
   if putanja
   [
     pen-down
     
   ]
   ]
end 

to setup-pozadina
  ask patches
  [
    set pcolor black
  ]
 
 ask patch -10 3
 
 [
   set pcolor grey
   
  set plabel "A" 
 ]
 
 set x_B random 15 
 ask patch x_B 3 
  
  
  
 [ 
   set pcolor grey
   set plabel "B"
   ]
end 

to izračun1
 
set d_t 0.0001
   
set d_x (v1 * d_t)   
  
   set xcor ( xcor + d_x)
   set s ( s + d_x )
end  

to izračun2
 
 set d_t1 0.0001
 
 set d_x1 (v2 * d_t1)

 set xcor (xcor + d_x1)
end 

to izračun3
   
   set d_t2 0.0001
   
   set d_x2 (v3 * d_t2) 
   
   set xcor (xcor + d_t2)
end