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

meflying

补充一点,一个问题,如果别人已经多次回答你了,你还是不明白,那可能就是你还没有到理解这个问题的能力,需要循序渐进地学

圆之锐角

谢谢你们的帮助，今天早上我尝试了一下，还是不行，不知道为什么？在此，还是要麻烦各位帮忙，感激各位的悉心帮助！！！！我的整个程序是这样的，当然在这让你们看整个程序实在是耽搁你们宝贵的时间，只要你们从我标释：“从这里开始有错误”那里开始给我看一下，到底是那里出了问题，谢谢！！ (defun c:xyxy2 ()
(setq STx 0.50 HFx 1.57)
(graphscr)
(setvar "cmdecho" 0)
(setq M (getreal "\nÇëÊäÈë³ÝÂÖÄ£ÊýÖµm= "))
(setq Z (getint "\nÇëÊäÈë³ÝÂÖ³ÝÊýzÖµ<80>= "))
(setq [sa] (getreal "/nÊäÈëÐíÓõijݶ¥¿í¶È: "))
(if (null Z) (setq Z 80))
(cond
((and (>= Z 20) (<= Z 40)) (setq P2 '(0.20 2.25)))
((and (>= Z 41) (<= Z 70)) (setq P2 '(0.21 2.30)))
((and (>= Z 71) (<= Z 100)) (setq P2 '(0.22 2.35)))
(t (princ "\nÄãÊäÈëµÄ³ÝÊý²»ÔÚ·¶Î§Ö®ÄÚ."))
)
(setq DATCx (car P2)
RUOx (cadr P2)
R (/ (* M Z) 2)
TAU (/ (* 2 Pi) Z)
RUO (* RUOx M)
DATC (* DATCx M)
Rc (- R DATC)
)
(setq X1 (/ (- (+ (* R R) (* Rc Rc)) (* RUO RUO)) (* 2 R Rc))
X2 (/ (* STx TAU) 2))
¡¡(setq S1 (- 1 (* X1 X1)))
(setq BETA (- (atan (/ (sqrt S1) X1)) X2))
(setq H (sqrt (- (* RUO RUO) (* Rc Rc (sin BETA) (sin BETA)))))
(setq Ra (+ H (* Rc (cos BETA)))
HA (- Ra R))
(setq Sn (* (- RUO (* Rc (sin BETA))) 2))
(setq J (sqrt (- 1 (* (/ RUO Rc) (/ RUO Rc)))))
(setq J1 (atan (/ (/ RUO Rc) J)))
(setq GAMA (- J1 BETA))
(setq GAMA1 (- (/ TAU 2) GAMA)
HF (* HFx M)
RF (- R HF))
(setq RUO1 (/ (* RF (sin GAMA1)) (- 1 (sin GAMA1))))
(setq Sf (/ (* 2 pi R STx) Z))
(setq kk (sqrt (+ (* Rc Rc) (/ (* ruo ruo) 27))))
(setq hh (/ (* (* (+ Rf Ruo1) (+ Rf Ruo1)) (* (cos gama1) (cos gama1))) (+ Rf Hf)))
(if (>= Z 30)
(setq R1 (max kk hh))
(setq r1 kk)
)
(setq X4 (/ rf r1))
(setq Fa (- (atan (/ (sqrt (- 1 (* x4 x4))) x4)) gama1))
(setq Sa (* 2 (- (* R1 (* (cos (+ fa gama1)) (sin (+ fa gama1)))) (* R1 fa))))
(if (> sa [sa])
(progn
(setq AO (* rc (sin (+ (/ tau 2) beta))));¼ÆËã¹öµ¶³Ý¸ù²¿·ÖÀíÂÛ³ÝÐÎ
(setq BO (* rc (cos (+ (/ tau 2) beta))))
)
(exit)
)
(setq x5 (- (abs (* ra (cos (/ tau 2)))) BO)
x6 (- AO (* ra (sin (/ tau 2))))
x7 (- (* ra (cos (/ tau 2))) BO)
)
(if (< AO (* ra (sin (/ tau 2))))
(setq NU (- pi (atan (/ x5 x6))))
(setq NU (atan (/ x7 x6)))
)
(setq x8 (/ (* rc (cos (- nu (/ tau 2) beta))) r1))
(setq x9 (sqrt (- 1 (* x8 x8))))
(setq FI1 (- nu (atan (/ x9 (sqrt (- 1 (* x9 x9)))))));¼ÆËãÀíÂÛ³ÝÐÎ×ù±êµã
(setq x10 (/ (* rc (cos (+ gama beta))) r1))
(setq x11 (sqrt (- 1 (* x10 x10))))
(setq FI3 (- (* -1 (atan (/ x11 (sqrt (- 1 (* x11 x11)))))) gama1));¿ÉÄÜÓÐÎÊÌâ
(setq DFI (- (abs fi1) (abs fi3));ÕâÀïºÃÏñÓÐÎÊÌâ
dfi1 (* 0.005 dfi)
dfi2 (* 0.025 dfi)
dfi3 (* 0.07 dfi)
)
(setq xy11 '())
(setq yx11 '())
(setq j 1)
(while (<= j 31)
(textscr)
(cond
((and (>= j 1) (<= j 10)) (setq fi (- fi1 (* dfi1 (- j 1)))))
((and (>= j 11) (<= j 20)) (setq fi (- fi1 (* dfi 0.05) (* dfi2 (- j 11)))))
((and (>= j 21) (<= j 31)) (setq fi (- fi1 (* dfi 0.3) (* dfi3 (- j 21)))))
(t (princ "\nÖµ³¬³öÁË·¶Î§£º"))
)
(setq x12 (- R1 (+ (* ao (sin fi)) (* bo (cos fi))))
x13 (- (* ao (cos fi)) (* bo (sin fi))))
(setq x14 (/ x12 x13))
(setq ALFA (atan x14))
(setq X[J] (- (+ (* ao (cos fi)) (* r1 fi)) (+ (* bo (sin fi)) (* ruo (cos alfa)))))
(setq Y[J] (- (+ (* ao (sin fi)) (* bo (cos fi)) (* ruo (sin alfa))) r1))
(setq X1[j] (- x[j] (* r1 fi))
Y1[j] Y[j])
(setq j (1+ j)
xy11 (cons x[j] xy11)
yx11 (cons y[j] yx11))
(setq xy12 (reverse xy11))
(setq yx12 (reverse yx11))

(princ "\n") (princ x[j]) (princ " ") (princ y[j]) (princ " ") (princ x1[j]) (princ " ") (princ y1[j])
)
(setq x15 (sqrt (- 1 (* (/ (* (+ rf ruo1) (cos gama1)) r1) (/ (* (+ rf ruo1) (cos gama1)) r1))))
FI5 (- (atan (/ x15 (sqrt (- 1 (* x15 x15))))) gama1))
(setq d1fi (/ (- fi5 (abs fi3)) 30))
(setq j 32)
(while (<= j 62)
(setq fi (+ (abs fi3) (* d1fi (- j 32))))
(setq x[j] (- (* r1 (cos (+ fi gama1)) (sin (+ fi gama1))) (* r1 fi)))
(setq y[j] (- (* r1 (cos (+ fi gama1)) (cos (+ fi gama1))) r1))
(setq x1[j] (+ x[j] (* r1 fi))
y1[j] y[j]
)
(setq j (1+ j)
xy11 (cons x[j] xy11)
yx11 (cons y[j] yx11)
)
(setq xy12 (reverse xy11))
(setq yx12 (reverse yx11))

(princ "\n") (princ x[j]) (princ " ") (princ y[j]) (princ " ") (princ x1[j]) (princ " ") (princ y1[j])
)
(setq Ha (- r1 rf)
p (/ (* 2 pi r1) Z))
(setq x16 (/ (- (+ (* r1 r1) (* rc rc)) (* ruo ruo)) (* 2 r1 rc)))
(setq x17 (* x16 x16)
x18 (sqrt (- 1 x17)))
(setq x19 (atan (/ x18 (sqrt (- 1 (* x18 x18))))))
(setq S (* 2 r1 (- (+ beta (/ tau 2)) x19)))
(princ "\n") (princ "r1") (princ "=") (princ r1) (princ " ") (princ "Ha") (princ "=") (princ ha)
(princ "\n") (princ "S") (princ "=") (princ s) (princ " ") (princ "P") (princ "=") (princ p)
(princ "\n") (princ "Rc") (princ "=") (princ rc)
(setq ET (- (+ beta (/ tau 2)) fi1)
AF (+ (* r1 fi1) (* rc (sin ET)))
BF (- (* rc (cos ET)) r1)
RN ruo)
(princ "\n") (princ "Af") (princ "=") (princ af) (princ " ") (princ "Bf") (princ "=") (princ bf)
(princ "\n") (princ "Rn") (princ "=") (princ rn) (princ)
(setq ET (- (+ beta (/ tau 2)) fi1) AF (+ (* r1 fi1) (* rc (sin ET)))
BF (- (* rc (cos ET)) r1)
RN ruo) ；；；；；；；；；；；；；；； ；；；；；；；；；；；；；；； 从这里开始有错误
(setq d 60
wd 62)
(setq dr1 (expt 10 5)
dr2 dr1
)
(setq c 10)
(while (<= c 31)
(DY1 Ad Bd Rd C D)
(DR (Ad Bd Rd U1 U2 1 DR3 DR4))
(if (< (+ (abs DR4) (abs DR4)) (+ (abs DR1) (abs Dr2)))
(setq dr1 dr3
dr2 dr4
I1 u1
I2 u2
Ld C
Aa Ad
Ba Bd
RQ Rd)
(setq c (+ 1 c))
)
)
)
(defun DY1 (A B R, E G /)
(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 h5) (* 2 h3 h5))
w (+ (* h1 h4) (* h2 h3))
B (/ T1 (* 2 W))
A (+ (/ (* h2 (- B bf)) H1) Af)
)
(setq x16 (sqrt (+ (* (- af a) (af a)) (* (- bf b) (- bf b)))))
(cond
((or (> af xe) (< a xe)) (setq R, (- x16 rn)))
((or (< af xe) (> a xe)) (setq R, (- x16 rn)))
((or (< af xe) (< a xe) (> (abs af) (abs a))) (setq r, (- rn x16)))
(t (setq r, (+ rn x16)))
)
(setq x[e] (nth (- e 1) xy12))
(setq y[e] (nth (- e 1) yx12))
(setq x[g] (nth (- g 1) xy12))
(setq y[g] (nth (- g 1) yx11))
)
(defun DR (A B R E1 E2 Td Dr5 DR6 /)
(setq dr5 0
dr6 0)
(setq i TD)
(while (<= i (- (+ 1 WD) TD))
(setq xi (nth (- i 1) xy12))
(setq yi (nth (- i 1) yx12))
(if (< i C)
(setq V (- (sqrt (+ (* (- xi a) (- xi a)) (* (- yi b) (- yi b)))) r,))
(setq V (- (sqrt (+ (* (- xi af) (- xi af)) (* (- yi bf) (- yi bf)))) rn))
)
(if (or (< V 0) (< V dr5))
(progn
(setq dr5 v
E1 i)
)
(if (or (> v o) (> v dr6))
(progn
(setq dr6 v
e2 i)
)
(progn
(setq dr5 v
E1 i)
)
)
)
)
)

圆之锐角

辉哥教训的是，但是我还是很认真的按照你们所说的那些方法去尝试了，只是问题终究没能解决呀！！？？？

f5612140

給一組要輸入的數據才好測試

meflying

还是老问题,再看看我11楼的话吧,你对函数定义和调用应该说是几乎完全不懂,希望你还是先入门,不要急着写程序...

圆之锐角

meflying 你干吗老是说些与别人问的问题不相关的话呢？？ 我是在问你我遇到的问题应该怎么样解决，如果你什么都要叫别人重新开始的话，那我觉得这个论坛还有什么意义呢？？！？我知道我这样说是不对的，但是扪心自问，我对函数的调用和定义，是懂的，应该能够说自己已经入门了吧，只是现在遇到的子程序调用真不知道怎样解决，我资料也查找过，没找到，所以就来论坛里面问问了，我听别人说你是很热心的人，也很专业，我在这上面有好几天了，你给我的印象的确是这样，但是，我的问题还是没有解决？？

圆之锐角

f5612140你好，我这是一个计算小模数齿轮的一些参数的程序， 我要输入的数据是齿轮的模数：0.0975 齿轮的齿数：80 齿轮的齿宽：0.01

f5612140

1.(defun DY1 ()
(setq Xe x[e]
Ye Y[e]
Xg X[g]
Yg y[g])
(setq H1 (- ye Bf) ...
ye值在那? 2.沒有值可以設定變數,但不能拿來計算 3.改一下副程序的用法吧,可減少錯誤發生

meflying

圆之锐角发表于2004-4-21 11:37:00meflying 你干吗老是说些与别人问的问题不相关的话呢？？ 我是在问你我遇到的问题应该怎么样解决，如果你什么都要叫别人重新开始的话，那我觉得这个论坛还有什么...

关于你的问题,已经给你回答过好几次了,如果你想学习,建议你按我说的做,如果你仅仅是为了要得到这么一个程序,你可以把具体详细的要求说出来,或许我可以帮你写一下

圆之锐角

辉哥、f5612140：中午好！！ 我真的很感动，发自内心，真的！！！ 我感动你们那种不厌其烦的精神，以及乐于帮助人的精神，辉哥我一定会记住你的话的，我会好好的学习，在此祝福大家天天开心！！！ f5612140：你好！ 我程序中的Ye、xe……的值是用 (setq x[e] (nth (- e 1) xy12))
(setq y[e] (nth (- e 1) yx12))
(setq x[g] (nth (- g 1) xy12))
(setq y[g] (nth (- g 1) yx11))这些语句来求的