矩形和不规则矩形如何出面积公式如图

15152315475

现在就这三个图形如何出计算公式 和图片那种一样的 框选可以一起出或者可以分开来出计算公式
单独一个矩形出一个计算公式其他两个不规则图形也出一套，或者集合在一起出计算公式，
现在有大批量需要出计算公式，希望帮帮忙。

mahuan1279

感觉可以用递归来解决。主要还是求分块的问题。

evayleung

我是被标题吸引进来的。。。。头一回听说有不规则矩形的说法。。。应该是不规则多边形吧。

15152315475

evayleung 发表于 2019-4-10 12:51
我是被标题吸引进来的。。。。头一回听说有不规则矩形的说法。。。应该是不规则多边形吧。

谢谢 老哥提醒

15152315475

mahuan1279 发表于 2019-4-10 11:40
感觉可以用递归来解决。主要还是求分块的问题。

老哥有解决方法吗？

mahuan1279

15152315475 发表于 2019-4-10 21:26
老哥有解决方法吗？

方法不是已经告诉你了吗？剩下的就是怎么获得你所说的“不规则矩形”的最小外接矩形。同时规定逆时针方向的矩形面积为正，顺时针方向的为负。首先判断是否为矩形，若不是则获取“不规则矩形”的所有顶点，按逆时针排序。然后获取其最小外接矩形的顶点，插入到原序列中横纵坐标对应的部分，形成多个有方向的分部。递归下去，直至每个分部都是矩形，然后求面积和。（注意顺时针方向矩形面积为负，逆时针的为正。）

mahuan1279

;;;给个参考吧。
_$ (defun f(lst)
  (if (or (= (car lst) 1) (= (cadr lst) 1))
      (setq va (strcat (itoa (car lst)) "*" (itoa (cadr lst))))
      (setq va (strcat (f (list (/ (car lst) 2) (/ (cadr lst) 2)))
                            "+"
                       (f (list (- (car lst) (/ (car lst) 2))  (- (cadr lst) (/ (cadr lst) 2))))
                )
       )
   )
)
F
_$ (f '(16 19))
"1*1+1*1+1*1+1*1+1*1+1*1+1*1+1*2+1*1+1*1+1*1+1*2+1*1+1*1+1*1+1*2"

lijunfa12345