uniform linear motion A.E.

globals
[s v d_x d_t x_B]

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

to setup-pozadina
set x_B random 10
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" 
]
end 

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

to go
ask turtle 0
[
if xcor <= x_B
[
izračun
]
]
tick
end 

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