xx16451860 发表于 2018-1-29 14:59:38

求解下图问题？？

求解决方法！！

ntwison 发表于 2018-1-29 16:35:28

大家跟我一起唱，预备齐:
   ...女孩的心思你别猜~~

ygp820601 发表于 2018-1-30 14:07:29

这需要知道大小两个正方形边长的关系。不然无法求解。

lijiao 发表于 2018-1-30 16:36:43

(defun dis1 (num0 m n / NUM1 NUM2 ODIS)
(setq num1 (fix (/ (+ num0 m) n)))
(setq num2 (rem (+ num0 m) n))
(setq odis (+ (* m num1) n))
(list num2 odis)
)
(defun dis2 (m n / NUM0 ODIS1 OUT)
(setq out 0)
(while (/= num0 0)
    (if (null num0)
      (setq num0 0)
      )
    (setq odis1 (dis1 num0 m n))
    (setq num0 (car odis1))
    (setq out (+ out (cadr odis1)))
    )
(setq out (- out m))
)

lijiao 发表于 2018-1-30 16:37:37

_$ (dis2 7 0.5)
91.5
_$ (dis2 3 0.5)
15.5
_$ (dis2 7 3)
51

lijiao 发表于 2018-1-30 17:02:49

消除小数的影响
(defun dis3 (m n / i)
(setq i 1.0)
(while (or (/= (fix m) m)
             (/= (fix n) n)
             )
    (setq m (* m 10)
          n (* n 10)
          i (* i 10)
          )
    )
(/ (dis2 m n) i)
)

_$ (dis3 8 3.2)
38.4
_$ (dis3 8.3 3.2)
783.0

xx16451860 发表于 2018-2-9 13:52:36

lijiao 发表于 2018-1-30 17:02
消除小数的影响

你好，参数 m N为大矩形，小矩形的边长吗？

xx16451860 发表于 2018-2-9 13:58:52

lijiao 发表于 2018-1-30 17:02
消除小数的影响

非常感谢！！
页: [1]
查看完整版本: 求解下图问题？？