Perl 我需要帮助补偿移动的图像时,试图创建一个网格与一个图像,并适用于另一个

Perl 我需要帮助补偿移动的图像时,试图创建一个网格与一个图像,并适用于另一个,perl,image-processing,gd,Perl,Image Processing,Gd,我有两张酵母板的图片: 允许的: Xgal: to图像应位于同一位置,大小大致相同。我试图使用其中一个图像生成一个网格,然后将该网格应用于另一个图像。网格是通过查看许可平板上的菌落形成的,平板上应有1536个菌落。问题是,用于拍摄图像的相机会上下移动一点,并且图像也会由于另一块板不在完全相同的位置而发生轻微移动 这意味着当我使用许可板在xgal板上生成网格时,网格会移动。有人知道我可以用什么方法来补偿吗?我在gd模块中使用perl。如有任何建议,将不胜感激。谢谢我已经用其他语言完成了与运动分

我有两张酵母板的图片:

允许的:

Xgal:

to图像应位于同一位置,大小大致相同。我试图使用其中一个图像生成一个网格,然后将该网格应用于另一个图像。网格是通过查看许可平板上的菌落形成的,平板上应有1536个菌落。问题是,用于拍摄图像的相机会上下移动一点,并且图像也会由于另一块板不在完全相同的位置而发生轻微移动


这意味着当我使用许可板在
xgal
板上生成网格时,网格会移动。有人知道我可以用什么方法来补偿吗?我在gd模块中使用perl。如有任何建议,将不胜感激。谢谢

我已经用其他语言完成了与运动分析相关的工作。可以使用互相关从数学上确定两个图像之间的位置偏移


幸运的是,您可能不需要实际计算:)您可以使用像ImageMagick这样的东西,它为您提供了许多图像处理功能,并且是perl脚本化的。与您的任务非常相似的任务已经有了独立的脚本——。

如果您只有几对图像,并且如示例中所示,它们在外观上非常不同,那么Tim Barras的替代方法是

  • 在gimp中打开第一个图像,找到地标特征的坐标
  • 在gimp中打开第二个图像,找到同一个地标的坐标
  • 计算偏移量
  • 使用带有选项的ImageMagick的
    convert
    命令移动第二幅图像。设置参数sx=sy=1.0,rx=ry=0.0,tx=负水平偏移,ty=负垂直偏移

  • 幻灯片上是否有某种视觉标记可以让您匹配它们?如果您有图像注册工具,您可能可以在两张幻灯片上找到相应的点,并使用它们来定义转换,从而解释移动行为。看起来两张图片中都可以看到酵母板的四个内角,因此可以使用它们。图片链接已断开。我推荐imgur.com上传文件。(嘿,这不是垃圾邮件,这只是一个建议)谢谢Martin,我没有看到。@mMartin图片回来了。谢谢Tim,我没有想过用那种方式使用ImageMagick。