旋转以获取Netlogo中的坐标

Question

我试图通过Yves Daoust实现以下答案。 https://math.stackexchange.com/questions/1065013/rotation-to-obtain-corodinate

代码

to-report calx2 [x0 y0 x1 y1 A]
  report x0 + (y1 - y0) * tan ( A + atan (y1 - y0) (x1 - x0))
end

我似乎没有得到预期的输出（无法从o / p测试中找出错误）。哪里出错了？考虑到轴是根据乌龟，我似乎在如何在NetLogo中实现atan时遇到了一些问题。

如果可能，请指出错误。 此外，有没有更简单的方法在NetLogo中完成相同的工作。

Answer 1

我得到它应该错误的错误。因为我已经反过来两次，因为已经回答的问题已经考虑了与垂直轴的角度A，即NetLogo的轴样式。