请问polar 用纯计算怎么实现啊

434939575 · 发表于 2021-7-26 19:33:08

本帖最后由 434939575 于 2021-7-27 09:54 编辑

hh_lj007 · 发表于 2021-7-27 08:34:48

(list (+ (car pt) (* dis (sin ang))) (+ (cadr pt) (* dis (cos ang))))

HLCAD · 发表于 2021-7-27 08:40:29

(mapcar '+ a (list (* (cos ang) dis) (* (sin ang) dis) 0))

434939575 · 发表于 2021-7-27 09:34:06

hh_lj007 发表于 2021-7-27 08:34
(list (+ (car pt) (* dis (sin ang))) (+ (cadr pt) (* dis (cos ang))))

谢谢朋友们！

434939575 · 发表于 2021-7-27 09:35:44

HLCAD 发表于 2021-7-27 08:40
(mapcar '+ a (list (* (cos ang) dis) (* (sin ang) dis) 0))

十分感谢！只怪读书少啥也不会

434939575 · 发表于 2021-7-27 09:38:29

这个悬赏不知道怎么送。

zteykmgscqh · 发表于 2021-7-27 13:14:52

为什么会有这个问题？研究意义是什么？

434939575 · 发表于 2021-7-27 13:33:23

zteykmgscqh 发表于 2021-7-27 13:14
为什么会有这个问题？研究意义是什么？

用作云运算

zxq0220 · 发表于 2021-8-8 00:16:35

本帖最后由 zxq0220 于 2021-8-8 20:52 编辑

(defun mpolar (pt ang dst)
(list (+ (car pt) (*(cos ang) dst))
(+ (cadr pt) (*(sin ang) dst))
)
)

434939575 · 发表于 2021-8-8 08:04:28

zxq0220 发表于 2021-8-8 00:16
(defun mpolar (pt ang dst)
(list (+ (car pt) (*(cos ang) dst))
(+ (car pt) (*(sin ang) d ...

再次谢谢这位朋友的帮助。

账号		自动登录	找回密码
密码			立即注册

[已解决] 请问polar 用纯计算怎么实现啊