错误: 用于比较的参数类型不正确

行雲

多谢楼上这么多位热心相助

行雲

Lisphk 发表于 2017-1-3 21:49

你好，我现在是这样试，放弃了(> radius 5) ，只剩下( yzzba yzfzx)比对，仍然不行

      (cond
      ((> yzzba yzfzx) (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))) ；；；只有这行在动作
       ((princ (strcat "\naaaaaaaaaaaaaaa：" (rtos yzfzx 2 3))))；；；这个信息没看到
      ((< yzzba yzfzx) (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd))))
      )

是不是  (setq yzfzx (rtos (/ (cadr (mapcar '- zxjd ysjd)) 2) 2 2))没传递到参照信息？

但是，如果改成这样 (setq yzfzx (/ (cadr (mapcar '- zxjd ysjd)) 2)  )又会提示，错误: 用于比较的参数类型不正确  

Lisphk

行雲 发表于 2017-1-3 22:22

让你在 cond外面 打印 yzzba和 yzfzx 的值，你看看他们是什么？ 然后你才知道应该进入哪个分支。

你在 COND里面打印没用啊，本来就没进去，能打印到吗？

Lisphk

行雲 发表于 2017-1-3 22:22

(princ "\nyzzba===")
(princ yzzba)
(princ "\nyzfzx===")
(princ yzfzx)
(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

行雲

Lisphk 发表于 2017-1-3 22:59

有，看到了打印码，说明yzfzx应该是传递到了的


改到下一行，又无打印码了。这样：
      (cond
      ((> yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
(princ "\nyzzba===============================")
(princ yzzba)
(princ "\nyzfzx==============================")
(princ yzfzx)
      ((< yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
      )

Lisphk

行雲 发表于 2017-1-3 23:11

你写代码不都格式化下吗？ 格式化下你至少可以看到左右括号的匹配情况

这是你的代码，你对照COND函数的格式要求，自己看下你问题出哪了

(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
  (princ "\nyzzba===============================")
  (princ yzzba)
  (princ "\nyzfzx==============================")
  (princ yzfzx)
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

行雲

Lisphk 发表于 2017-1-4 01:09

左右括号配对吧，程序可以从头到尾完成，只是没见到那打印码，，，

改了一下，还是没见到打印码
      (cond
      ((> yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
      ((princ "\nyzzba==============================="))
      ((princ yzzba))
      ((princ "\nyzfzx=============================="))
      ((princ yzfzx))
      ((< yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
      )

这样，则可以见到打印码
      (princ "\nyzzba===============================")
      (princ yzzba)
      (princ "\nyzfzx==============================")
      (princ yzfzx)
      (cond
      ((> yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
      ((< yzzba yzfzx)
       (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
       )
      )

请问，没能实现比对分支的原因在哪里？

Lisphk

行雲 发表于 2017-1-4 16:40

你还是没理解COND

(cond
  ((条件1为真)
    (
      (
        (...)
      )
    )
  )
  ((条件2为真)
    (
      (
        (....)
      )
    )
  )
  ((条件3为真)
    (
      (
        (....)
      )
    )
  )
  ...
)

你对照下你的，看你的PRINC放哪了？

行雲

Lisphk 发表于 2017-1-4 16:44

你好，现在这样

   (cond
     ((> yzzba yzfzx)
       (
        (
         (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
        )
       )
     )
     ((< yzzba yzfzx)
       (
        (
         (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
        )
       )
     )
   )
程序没完成，，，，，，命令: ; 错误: 函数错误: (20427.9 1014.0 0.0)

Lisphk

行雲 发表于 2017-1-4 16:57

晕死了，我给你那些对称的括号是告诉你层次，你要根据实际情况变化啊

LISP不会有 (((多个括号挨着的，LISP要求一个左括号后面要跟着函数名

(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

行雲

Lisphk 发表于 2017-1-4 18:08

谢谢你，大致来说，不能实现比对分支的原因是什么


(princ "\nyzfzx==============================")比对值yzfzx传到了这里
(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
(princ "\nyzfzx==============================")到了这里就没有了
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

Lisphk

行雲 发表于 2017-1-4 21:21

你这么写是错的

(princ "\nyzfzx==============================")比对值yzfzx传到了这里
(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
  (princ "\nyzfzx==============================")
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

下面这么写是对的

(princ "\nyzfzx==============================")比对值yzfzx传到了这里
(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
    (princ "\nyzfzx==============================")
  )
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
  )
)

你能看出上面两代码，有什么区别吗？

行雲

Lisphk 发表于 2017-1-4 21:38

我试试，多谢，我以为在(cond 里面）就可以了

Lisphk

(cond
  ((> yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 0.75 pi) (+ (* 1.1 bjlscd) wbgd)))
    (princ "\n111111111111111111111111111111")
  )
  ((< yzzba yzfzx)
    (setq kwmzb (polar yuanxi (* 1.25 pi) (+ (* 1.1 bjlscd) wbgd)))
    (princ "\n22222222222222222222222")
  )
  (t
    (princ "\n33333333333333333333")
  )
)

把上面代码放到你的程序中

如果屏幕显示 111111111111111111111， 说明 yzzba > yzfzx


如果显示  2222222222222222222222222 说明 yzzba < yzfzx


如果显示  333333333333333333333333  说明 yzzba = yzfzx

行雲

Lisphk 发表于 2017-1-4 21:46

只会报111111111111111111111   yzzba > yzfzx

试了三种形式 ：  yzzba 小于 yzfzx；     yzzba 大于 yzfzx；     yzzba 刚好在 yzfzx 线 上。   均只报111111111111111111111。超奇怪，请问问题出在哪里？