linear nution w

globals
[
v d_t d_x s X_B
]

to setup
clear-all

setup-čestica
setup-pozadina
reset-ticks
end 

to go
ask turtle 0
[
  IF  xcor <= X_B
[
    
  izračun
]
]
tick 
end 

to setup-čestica
  create-turtles 1
  ask turtle 0[
    set shape"car"
    set size 4
    set color blue
    setxy -20 0
   if putanja
   [
   pen-down
   ]
  ]
end 

to setup-pozadina
  set x_B random 20
  
ask patches
[
set pcolor white
]
ask patch -20 0
[
  set pcolor grey
  set plabel"A"
]
ask patch x_B 0
[
  set pcolor grey
  set plabel "B"
]
end 

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