Last-modified: 2019-01-27 (日) 01:45:39 (26d)
†
†
patches-own [ pote ]
(xcor * xcor) + (ycor * ycor)
†to setup ca let [:vmin 0] let [:vmax sqrt ((screen-half-width * screen-half-width) +(screen-half-height * screen-half-height)) ] ask-patches [ set pote sqrt( (xcor * xcor) + (ycor * ycor) ) scale-pc blue pote :vmin :vmax ] end
†
†
Counter: 7,
today: 1,
yesterday: 0
|