[分享] 需要MARK校正的计算方法吗? [复制链接]

论坛中有许多文章介绍了帖片机如何识别MARK点的问题,
但不知是否有人需要帖片机通过MARK点校正坐标的计算方法.
  有详细的计算方法,以及DELPHI原程序.

I need it badly, please send it to me ASAP. My email is andy_qiao@yahoo.com. I am in DongGuan,too.

Thanks & Best Regards!

Andy

我想要
给我一份了
谢谢！

可以给我吗？sz_5817@163.com

[QUOTE]最初由 KELIWJF 发表
[B]论坛中有许多文章介绍了帖片机如何识别MARK点的问题,
但不知是否有人需要帖片机通过MARK点校正坐标的计算方法.
  有详细的计算方法,以及DELPHI原程序. [/B][/QUOTE]
朋友，你就把你的东东传上来，加个连接嘛！

朋友我也想要
hpd147@163.com

呵,朋友連接上?韱

请传我一份，先谢了！ＱＱ:winzhang@163.net

请给我也来人份吧,谢了!:)
E_MAIL:lw80.2@163.com

网友讨论的MARK校正实际上分为两个问题
1.MARK的识别,即要求设备得到MARK点的实际坐标,涉及图像采集和图像处理.计算方法比较复杂,但绝对不要怀疑DELPHI是否可以作图像处理.
      限于篇幅,以后再谈这个问题.
2.图像校正.
  图像校正就是根据mark点的标准坐标和对应的实际坐标,计算得到一个转化公式,可以实现任意点 标准坐标<-->实际坐标的转换公式.

例程中有转换的源程序,说明如下:

第1步:根据MARK点的标准坐标和对应的实际坐标,计算坐标转换系数
方法如下:

//入参数: XOLD,YOLD:mark点的标准坐标数组,从0开始
//入参数:XNEW,YNEW:mark点对应的实际坐标数组,从0开始
//入参数:N mark点的个数,同其他入参数匹配
//出参数:XXS : array[0..5] of double,转换X坐标用的系数
//出参数:YXS: array[0..5] of double 转换Y坐标用的系数
procedure zbbh(
                  xold,yold:array of double;
                  xnew,ynew:array of double;
                  n:integer;
                var xxs,yxs:array of double
                );  

第2步:利用上面得到的转换系数,进行坐标转换
  X':=XXS[0]*X^2+XXS[1]*XY+XXS[2]*Y^2+XXS[3]*X+XXS[4]*Y+XXS[5];
      Y':=YXS[0]*X^2+YXS[1]*XY+YXS[2]*Y^2+YXS[3]*X+YXS[4]*Y+YXS[5];
  X,Y为任意标准坐标, X' Y'为得到的实际坐标

如果有3个以上的MARK点,上述方法可以对PCB的弯曲进行校正,
这个程序已经用在有关SMT专业设备上.实际效果非常好.

附件不见了,再贴

TO KELWJF﹕
          我明白設計者的意思是ARRAY[5]數組

不好意思,上次发布程序被老板知道了,只好将程序删除.

13号楼主应该是个高手,既然你不嫌罗嗦,我在这里就大概讲一讲.
其原理是:用最小二乘法,得到有5个变量的线性方程组,再求解方程即可.

上次发布的程序中有一个DCU文件,你直接调用即可得到
结果,不需要自己再编程.

上次发布的程序中,坐标转换单元适合3个以上MARK点校正,不适合一个点或
2个点的MARK校正.原因是求解线性方程组的局限.
  对于一个MARK或2个MARK,要设计不同的表达式.
  1个MARK   x'=a*x+b (不要y值)
                y'=c*y+d (不要X值)
  2个MARK点
        X'=A*X^2+B*X+C (不要y值)
              Y'=D*Y^2+E*Y+F (不要X值)

对不起,不能说的再详细了.

呵呵﹐純業余研究 謝謝