小白关于子函数,,求高手指教

ysq101 · 发表于 2013-9-18 20:13:11

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:1 ( / )
  (setq a (getdist"\n请输入一个实数"))    ;用子函数代替这句
  (setq b (getdist"\n请输入一个实数"))    ;用子函数代替这句
  (setq ab(+ a b))
  ab
  )

怎么才能以子函数的概念来完成以上工作

求高手写个完整的程序并注释出来

它们的参数是如何传递的

小白一直搞不清楚

zxq0220 · 发表于 2013-9-18 20:47:21

(defun mygetdist (str)
(getdist str)
)
;使用：(setq a (mygetdist "\n请输入一个实数"))

牢固 · 发表于 2013-9-18 22:58:06

本帖最后由牢固于 2013-9-18 23:00 编辑

getdist已经是子函数了，还要定义子函数代替，岂不是脱裤子放屁多此一举？
一般子程序的定义方式为：
(defun xxx (par1 par2 ...)
....
)
函数的返回值为最后一句代码的返回值！
譬如，下列函数返回两点在XY平面上的距离，输入参数为任意两二位或三维点
(defun Dist2D (p1 p2)
(setq p1 (list (car p1) (cadr p1)))
(distance p1 p2) ;_ 这句代码的值为函数的返回值
)
用法:
(setq dist (dist2d (getpoint "\n输入第一点:") (getpoint "\n输入第二点")))
将dist2d 函数的返回值传递给dist变量！

ysq101 · 发表于 2013-9-18 23:24:18

牢固发表于 2013-9-18 22:58
getdist已经是子函数了，还要定义子函数代替，岂不是脱裤子放屁多此一举？
一般子程序的定义方式为：
(d ...

谢谢固版的解答....还是一团云....看不明白
难道我的智商有问题???

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

[求助] 小白关于子函数,,求高手指教

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评