求解下图问题？？

xx16451860

求解决方法！！

ntwison

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

ygp820601

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

lijiao

2. (defun dis1 (num0 m n / NUM1 NUM2 ODIS)
   
3.   (setq num1 (fix (/ (+ num0 m) n)))
   
4.   (setq num2 (rem (+ num0 m) n))
   
5.   (setq odis (+ (* m num1) n))
   
6.   (list num2 odis)
   
7.   )
   
8. (defun dis2 (m n / NUM0 ODIS1 OUT)
   
9.   (setq out 0)
   
10.   (while (/= num0 0)
    
11.     (if (null num0)
    
12.       (setq num0 0)
    
13.       )
    
14.     (setq odis1 (dis1 num0 m n))
    
15.     (setq num0 (car odis1))
    
16.     (setq out (+ out (cadr odis1)))
    
17.     )
    
18.   (setq out (- out m))
    
19.   )

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

lijiao

1. _$ (dis2 7 0.5)
   
2. 91.5
   
3. _$ (dis2 3 0.5)
   
4. 15.5
   
5. _$ (dis2 7 3)
   
6. 51

复制代码

lijiao

消除小数的影响

2. (defun dis3 (m n / i)
   
3.   (setq i 1.0)
   
4.   (while (or (/= (fix m) m)
   
5.              (/= (fix n) n)
   
6.              )
   
7.     (setq m (* m 10)
   
8.           n (* n 10)
   
9.           i (* i 10)
   
10.           )
    
11.     )
    
12.   (/ (dis2 m n) i)
    
13.   )
    
14. 
    
15. _$ (dis3 8 3.2)
    
16. 38.4
    
17. _$ (dis3 8.3 3.2)
    
18. 783.0

(defun dis3 (m n / i)<br />   (setq i 1.0)<br />   (while (or (/= (fix m) m)<br />              (/= (fix n) n)<br />              )<br />     (setq m (* m 10)<br />           n (* n 10)<br />           i (* i 10)<br />           )<br />     )<br />   (/ (dis2 m n) i)<br />   )<br /> <br /> _$ (dis3 8 3.2)<br /> 38.4<br /> _$ (dis3 8.3 3.2)<br /> 783.0

xx16451860

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

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

xx16451860

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

非常感谢！！