netlogo-海龟的径向
我有一个椭圆形。(创建时具有垂直方向) 我想在圆形轮廓上放置几个这样的形状 它们之间的距离应相同netlogo-海龟的径向,netlogo,shape,heading,Netlogo,Shape,Heading,我有一个椭圆形。(创建时具有垂直方向) 我想在圆形轮廓上放置几个这样的形状 它们之间的距离应相同 ;x,y - circle center coordinates ;r - radius to draw-ellipses [x y r elNum ] if elNum > 0 [ let theta 0 let delta 360 / elNum loop[ if elNum = 0 [ stop ] crt 1 [
;x,y - circle center coordinates
;r - radius
to draw-ellipses [x y r elNum ]
if elNum > 0 [
let theta 0
let delta 360 / elNum
loop[
if elNum = 0 [ stop ]
crt 1 [
setxy (x + r * cos theta) (y + r * sin theta)
set shape "ellipse"
set heading 90 + theta
set size 7
]
set theta (theta + delta)
set elNum (elNum - 1)
]
]
end
椭圆形状放置正确,但方向错误。我希望椭圆有径向。即是半径到放置形状的点的连续线。但方向并不好。
仅在0度和180度时,方向正常
一些建议我遗漏了什么?我是否正确理解您希望您的海龟背向半径?如果是这样,请尝试将标题行替换为:
set heading atan xcor ycor
以符合你的角度数学的方式来做。或者,您可以使用facexy
,将标题行替换为以下内容:
facexy x y
rt 180
我是否正确理解您希望您的海龟背对半径?如果是这样,请尝试将标题行替换为:
set heading atan xcor ycor
以符合你的角度数学的方式来做。或者,您可以使用facexy
,将标题行替换为以下内容:
facexy x y
rt 180