AVEC NETLOGO
السلام عليكم . اريد حلا لمشكلة و هي بعد النقر على زر التشغيل كل لون يتكون في مجموعة بدون اختلاط
I want after clicking on operating each color in a private circle button . example yellow in a circle and blue in a circle and pink in a circle
************************************************** *
patches-own [
chemicalblue
chemicaljaune
chemicalrose]
to setup
crt populationblue
[ set color blue
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalblue 0 ]
reset-ticks
crt populationjaune
[ set color yellow
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicaljaune 0]
reset-ticks
crt populationrose
[ set color pink
set heading 10
set size 3 ;; easier to see
setxy random-xcor random-ycor ]
ask patches [ set chemicalrose 0]
reset-ticks
end
to go
ask turtles
[ if chemicalblue > sniff-threshold
[ turn-chemicalblue ]
rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches
[ set chemicalblue chemicalblue * (1 - evaporation / 100 )
set pcolor scale-color green chemicalblue 0.1 3]
reset-ticks
ask turtles
[ if chemicaljaune > sniff-threshold
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches
[ set chemicaljaune chemicaljaune * (1 - evaporation / 100 )
set pcolor scale-color green chemicaljaune 0.1 3]
reset-ticks
ask turtles
[ if chemicalrose > sniff-threshold
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches
[ set chemicalrose chemicalrose * (1 - evaporation / 100 )
set pcolor scale-color green chemicalrose 0.1 3]
reset-ticks
end
to go-blue
ask turtles
[ if color = blue
[ turn-chemicalblue ]
rt random-float 3 - random-float 3
fd 1
set chemicalblue chemicalblue + 3 ]
diffuse chemicalblue 1
ask patches
[ set chemicalblue chemicalblue * (1 - evaporation / 100)
set pcolor scale-color green chemicalblue 0.1 3 ]
reset-ticks
end
to go-yellow
ask turtles
[ if color = yellow
[ turn-chemicaljaune ]
rt random-float 3 - random-float 3
fd 1
set chemicaljaune chemicaljaune + 3 ]
diffuse chemicaljaune 1
ask patches
[ set chemicaljaune chemicaljaune * (1 - evaporation / 100)
set pcolor scale-color green chemicaljaune 0.1 3 ]
reset-ticks
end
to go-pink
ask turtles
[ if color = pink
[ turn-chemicalrose ]
rt random-float 3 - random-float 3
fd 1
set chemicalrose chemicalrose + 3 ]
diffuse chemicalrose 1
ask patches
[ set chemicalrose chemicalrose * (1 - evaporation / 100)
set pcolor scale-color green chemicalrose 0.1 3 ]
reset-ticks
end
to turn-chemicalblue
let ahead [chemicalblue] of patch-ahead 1
let myright [chemicalblue] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalblue] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]
end
to turn-chemicaljaune
let ahead [chemicaljaune] of patch-ahead 1
let myright [chemicaljaune] of patch-right-and-ahead sniff-angle 1
let myleft [chemicaljaune] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]
end
to turn-chemicalrose
let ahead [chemicalrose] of patch-ahead 1
let myright [chemicalrose] of patch-right-and-ahead sniff-angle 1
let myleft [chemicalrose] of patch-left-and-ahead sniff-angle 1
ifelse (myright >= ahead) and (myright >= myleft)
[ rt sniff-angle ]
[ if myleft >= ahead
[ lt sniff-angle ] ]
end