旋转以获取Netlogo中的坐标

我试图实现Yves Daoust的以下答案。

代码

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

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

如果可能，请指出错误。

---

还有，在NetLogo中有没有更简单的方法来实现同样的功能。

我认为它应该是x y。因为我两次将其反转，因为回答的问题已经考虑了垂直轴的角度A，即NetLogo的轴样式。

您能否给出一个或多个输入示例，说明您得到的是错误答案，以及您期望的正确答案是什么？