[求助]求a的n次方

HRQ28 · 发表于 2010-8-3 08:53:00

;(x^ a n) = 求a的n次方〓〓〓〓
(defun x^ (a n)
(vla-eval (vlax-get-acad-object)
(strcat "ThisDrawing.SetVariable \"users1\",cstr(" (rtos a 2 6) "^" (itoa n) ")" ))
(read (getvar "users1")))
;范例: (x^ 2 3) -> 8 (x^ 3.33 5) -> 36.926

; 错误: Automation 错误。加载 VBA 时出现问题

如果用LISP不能求出，如要求出

(x^ 2 3.354) ，即2的3.354次方，这样的算式，能用LISP写出来吗？

求教明经上的高手？

感谢明经。

aicr317 · 发表于 2010-8-3 09:47:00

(expt 2 3.354) ;;;---->10.2248

HRQ28 · 发表于 2010-8-3 10:21:00

感谢明经上的

帅哥，在线噢！

aicr317

大侠的热心指点

aicr317 · 发表于 2010-8-3 10:38:00

我不是大侠，谢谢！

e2002 · 发表于 2010-8-3 15:28:00

晕倒...不是有 LISP 标准函数 expt 吗? 再次发明轮子?

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

[函数] [求助]求a的n次方