Last-modified: 2019-01-27 (日) 01:45:39 (115d)

StarLogo TIPS

†

†

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

†

†

---

Link: StarLogo TIPS(115d)