[求助]：高手们帮忙看看我的程序执行结果为什么不对？

zjdtm

代码：
(defun c:7testc()
  (setq num_s (getint "请输入起始数:"))
  (setq num_e (getint "请输入结束数:"))
  (setq mm (getint "请输入指数:"))

  
  (setq snum 0)
  (setq nn (+ 1 (- num_e num_s)))
  (setq num_add (expt num_s mm))
  ;(setq num_add num_ad)

  (repeat nn
    (setq snum (+ snum num_add))
    (setq num_ad (+ 1 num_s))
    (setq num_add (expt num_ad mm))
    )
  ;(princ "\nthe summation=")
  ;(princ snum)
  ;(alert (strcat "summation=" (itoa snum)))
  (setq str1 (strcat "起始数:  " (itoa num_s)))
  (setq str2 (strcat "结束数:  " (itoa num_e)))
  (setq str3 (strcat "指数:  " (itoa mm)))
  (setq str4 (strcat "总和:  " (itoa snum)))
  (alert (strcat str1 "\n"str2 "\n"str3 "\n"str4))
  (prin1)
  )
(prompt "\输入命令：7testc 用来求连续数的平方的和")
(prin1)


我已经解决了，为了不占用xd的空间，我想把帖子删了，可我删不了，斑竹看到就删了吧。不过不要扣我分，我身边一个懂lisp的人也没有，我也是初学，所以经常会有一些简单的问题怎么也想不明白。有时很久才能想通，有时就实在需要高手指点一下。

zhynt

为什么要删呢？你可以将修改好的程序贴上来。

zxq0220

将(setq nn (+ 1 (- num_e num_s)))改为(setq nn (- num_e num_s))即可。

它山之石

就是啊，你也可以把你的程序及心得与大家共享。

zjdtm

修改好的程序：
(defun c:7testc()
  (setq num_s (getint "请输入起始数:"))
  (setq num_e (getint "请输入结束数:"))
  (setq mm (getint "请输入指数:"))

  
  (setq snum 0)
  (setq nn (+ 1 (- num_e num_s)))
  (setq num_ad num_s)
  (setq num_add (expt num_ad mm))
  ;(setq num_add num_ad)

  (repeat nn
    (setq snum (+ snum num_add))
    (setq num_ad (+ 1 num_ad))a
    (setq num_add (expt num_ad mm))
    )
  ;(princ "\nthe summation=")
  ;(princ snum)
  ;(alert (strcat "summation=" (itoa snum)))
  (setq str1 (strcat "起始数为:   " (itoa num_s)))
  (setq str2 (strcat "结束数为:   " (itoa num_e)))
  (setq str3 (strcat "指数为:     " (itoa mm)))
  (setq str4 (strcat "总和为:     " (itoa snum)))
  (alert (strcat str1 "\n"str2 "\n"str3 "\n"str4))
  (prin1)
  )
(prompt "\输入命令：7testc 用来求连续数的n次方的和")
(prin1)
  
分析错误原因为变量名前后不一致：num_ad   ad,这是一个变量，我写疏忽了。