[LISP]万分感激myflying 又有新问题请教！！

圆之锐角

谢谢你！！！ 真的很感谢你！！　我昨天仔细研究了一下表，我用表把那问题给解决了，　但现在又遇到一个问题，　是有关子程序调用的，比如说程序流程中有：调用过程DY1(Az,Bz,Rz,E,G,A,B,R) Af,Bf,Ruo,C,D,Ad,Bd,Rd其中DY1是这样定义的： (defun DY1
(setq Xe x[e]
Ye Y[e]
Xg X[g]
Yg y[g])
(setq H1 (- ye Bf)
H2 (- xe af)
H3 (- xe xg)
H4 (- ye yg)
H5 (- (+ (* xe xe) (* ye ye)) (+ (* xg xg) (* yg yg)))
H6 (- (* Af Ye) (* Bf Xe))
t1 (- (* h1 h6) (* 2 h3 h6 ))
w (+ (* h1 h4) (* h2 h3))
Ba (/ T1 (* 2 W))
Aa (+ (/ (* h2 (- Ba bz)) H1) Af)
)
(setq x16 (sqrt (+ (* (- af af) (af af)) (* (- bf bf) (- bf bf)))))
(cond
((or (> af xe) (< aa xe)) (setq R (- x16 rn)))
((or (< aa xe) (> aa xe)) (setq R (- x16 rn)))
((or (< aa xe) (< aa xe) (> (abs af) (abs aa))) (setq r (- rn x16)))
(t (setq r (+ rn x16)))
)
) 请问这在调用时应该怎么调用 万分感激！！！！

BDYCAD

看不懂樓主的程序. 你的程序格式不對吧??

meflying

再次建议楼主,一个问题不要到处问...即使得不到回答,你也可以在原来的帖子里自己提上来,如果还是没有回答,就说明问题没有人能回答...


如果再这样,就要删除重复的部分了!

圆之锐角

好的 谢谢了！因为我是新手，不懂这些规矩，惭愧，下次，我多加注意就是了，我这是一个子程序呀，格式应该是真确的呀，我真的是很急，希望斑竹能帮忙解决一下，我现在把所有希望都寄托给你们了，在此，表万分谢意！！！！！！！！！！！

圆之锐角

版主拜托你把我其它的帖子给删掉吧，我自己看着也不爽，谢谢你！！！！！！！！

meflying

跟你说错了,


应该(defun DY1();注意这里的括号


         ...


)


调用直接用就可以了


(dy1)


详细让你去看DEFUN函数了,看了吗?

圆之锐角

谢谢你 辉哥！！


         我的问题不是在你说的那里，主要是让你看一下那些变量，


调用过程DY1 （Az,Bz,Rz,E,G,A,B,R)


                                                                                                                                                                                                 Af,Bf,Ruo,C,D,Ad,Bd,Rd


这些变量怎么处理？？？！


是不是在DY1中一定要包含Az,Bz,Rz,E,G,A,B,R这些未知数呀？？？！ 请你帮助我，meflying,我知道你是最热心的，谢谢你◎！！！

f5612140

1.可以這樣


                 (DY1 Az Bz Rz E G A B R)


                 (defun DY1(Az Bz Rz E G A B R /)


2.也可以這樣


                 (DY1)


                 (defun DY1()

圆之锐角

谢谢你 f5612140。 我这个程序上按照已知的程序流程来进行编写的， 按照书上的程序流程我编写了DY1的程序如下，在这个程序中 并没有Az Bz Rz E G A B R这些参数，我还是不明白该怎么做，我请求大家能够帮助我 ， 我就是这个问题把我给卡住了 ，我的毕业设计没办法做继续进行，，在此，表示万分的感激！！！ (defun DY1 ()
(setq Xe x[e]
Ye Y[e]
Xg X[g]
Yg y[g])
(setq H1 (- ye Bf)
H2 (- xe af)
H3 (- xe xg)
H4 (- ye yg)
H5 (- (+ (* xe xe) (* ye ye)) (+ (* xg xg) (* yg yg)))
H6 (- (* Af Ye) (* Bf Xe))
t1 (- (* h1 h6) (* 2 h3 h6 ))
w (+ (* h1 h4) (* h2 h3))
Ba (/ T1 (* 2 W))
Aa (+ (/ (* h2 (- Ba bz)) H1) Af)
)
(setq x16 (sqrt (+ (* (- af af) (af af)) (* (- bf bf) (- bf bf)))))
(cond
((or (> af xe) (< aa xe)) (setq R (- x16 rn)))
((or (< aa xe) (> aa xe)) (setq R (- x16 rn)))
((or (< aa xe) (< aa xe) (> (abs af) (abs aa))) (setq r (- rn x16)))
(t (setq r (+ rn x16)))
)
)

meflying

8楼的已经回答你了啊,为什么不看看?


另外,你要那么多参数干什么?你的函数中并没有使用这些参数啊...


看看带参数的函数(out)是怎样定义和调用的


(defun main()


(setq a "abc")


        (out a)


(princ)


)


(defun out(a / )


        (princ a)


)