CaptureCamera
助理工程师
助理工程师
  • 最后登录2017-02-15
  • 发帖数11
  • 金币339枚
  • 贡献勋章0枚
  • 社区居民
阅读:12649回复:457

双目视觉标定程序

楼主#
更多 发布于:2015-09-21 12:47
***********************************************************************************
*                                      双目相机标定(回复可查看全文)
************************************************************************************

* 设置图片路径(可修改)
ImgPath := 'stereo/board/'


* 读入第一幅图片获得图片尺寸
Index := 1
read_image (ImageL, ImgPath + 'calib_l_' + Index$'02d')
read_image (ImageR, ImgPath + 'calib_r_' + Index$'02d')


* 以适合尺寸新建窗口
dev_close_window ()
dev_update_off ()
get_image_size (ImageL, WidthL, HeightL)
dev_open_window (0, 0, WidthL, HeightL, 'black', WindowHandle1)
dev_set_draw ('margin')
dev_set_color ('green')
set_display_font (WindowHandle1, 14, 'mono', 'true', 'false')


get_image_size (ImageR, WidthR, HeightR)
dev_open_window (0, WidthL + 12, WidthL, HeightL, 'black', WindowHandle2)
dev_set_draw ('margin')
dev_set_color ('green')


* Read the model calibration points.读取标定模型的标志点
CaltabFile := 'caltab_30mm.descr'
caltab_points (CaltabFile, X, Y, Z)//读取标定板中心, z-axis指向板内, x-axis指向右侧, y-axis指向下侧
* 设定左右相机初始内参
StartCamParL := [0.0125,0,1.48e-5,1.48e-5,WidthL / 2.0,HeightL / 2.0,WidthL,HeightL]
*内参系数对应,焦距/Kappa/Sx(单位像元的宽)/Sy(单位像元的高)/Cx(中心点x坐标)/Cy(中心点y坐标)
StartCamParR := StartCamParL
本部分内容设定了隐藏,需要回复后才能看到
wy008163
工程师
工程师
  • 最后登录2017-03-27
  • 发帖数70
  • 金币650枚
  • 贡献勋章0枚
  • 社区居民
沙发#
发布于:2015-09-22 21:07
不错错1111111
过眼云烟dgq
初学者
初学者
  • 最后登录2015-11-02
  • 发帖数12
  • 金币70枚
  • 贡献勋章0枚
板凳#
发布于:2015-09-23 08:03
看看12121212
巨人1989
工程师
工程师
  • 最后登录2017-03-27
  • 发帖数118
  • 金币1031枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
地板#
发布于:2015-09-23 12:42
看看学习学习看看学习学习
qianniao13
初学者
初学者
  • 最后登录2015-09-23
  • 发帖数2
  • 金币30枚
  • 贡献勋章0枚
4楼#
发布于:2015-09-23 21:43
xe
markaaaaaaaaaaaaa
weizuqiang
初学者
初学者
  • 最后登录2017-02-16
  • 发帖数17
  • 金币78枚
  • 贡献勋章0枚
  • 社区居民
5楼#
发布于:2015-09-23 22:10
好的范例值得分享,谢谢。
czewu
初学者
初学者
  • 最后登录2016-09-08
  • 发帖数2
  • 金币32枚
  • 贡献勋章0枚
  • 社区居民
6楼#
发布于:2015-09-24 14:03
学习学习,感谢楼主分享。
luzhengting
工程师
工程师
  • 最后登录2016-01-28
  • 发帖数71
  • 金币688枚
  • 贡献勋章0枚
  • 社区居民
  • 忠实会员
7楼#
发布于:2015-09-24 23:40
好期待,学习学习学习
stargazerth
初学者
初学者
  • 最后登录2016-06-14
  • 发帖数3
  • 金币25枚
  • 贡献勋章0枚
  • 社区居民
8楼#
发布于:2015-09-28 15:46
看看~学习学习。。。
hsj307
初学者
初学者
  • 最后登录2016-03-29
  • 发帖数6
  • 金币18枚
  • 贡献勋章0枚
9楼#
发布于:2015-09-29 10:35
回复看个隐藏还必须10个字
rains1227
技术员
技术员
  • 最后登录2016-08-26
  • 发帖数22
  • 金币126枚
  • 贡献勋章0枚
  • 社区居民
10楼#
发布于:2015-10-09 08:53
谢谢楼主分享!!!
zengyitc
技术员
技术员
  • 最后登录2016-12-24
  • 发帖数20
  • 金币140枚
  • 贡献勋章0枚
11楼#
发布于:2015-10-09 08:59
xuexi ````````````````````````````````````
dougang123
工程师
工程师
  • 最后登录2017-03-14
  • 发帖数126
  • 金币642枚
  • 贡献勋章0枚
12楼#
发布于:2015-10-10 16:28
学习。。。。。。。。。。。。。。。。。。。
myikon
技术员
技术员
  • 最后登录2016-12-22
  • 发帖数20
  • 金币157枚
  • 贡献勋章0枚
  • 社区居民
13楼#
发布于:2015-10-11 23:22
看看学习学习看看学习学习
chen_zy
技术员
技术员
  • 最后登录2017-02-10
  • 发帖数36
  • 金币156枚
  • 贡献勋章0枚
14楼#
发布于:2015-10-12 08:56
看隐藏,看隐藏,看隐藏
上一页
游客

返回顶部