1、Mathematica检测图片中的线条的方法是ImageLines，返回的是线条的端点坐标。
2、在原图中高亮显示所有的线条。
HighlightImage[img,{Green,Line/@ImageLines[img]}]
有一些线段没检测出来。
3、再测试一个图片，如下图。
4、直接套用ImageLines，结果在图片里面找到516条直线，令人惶恐。
5、正确的操作方法是，先检测图形的边界：
EdgeDetect[img]
6、然后，在边界图里面寻找直线。
EdgeDetect[img] // ImageLines[#, 0.28, 0.06] &
7、在原图中，着重显示这四条线：
img0 = HighlightImage[img,
{Blue, Line /@ (EdgeDetect[img] // ImageLines[#, .28, 0.06] &)}]
