相机客观参数整理软件需求报告自动化统计

最新推荐文章于 2023-03-31 21:05:18 发布
最新推荐文章于 2023-03-31 21:05:18 发布
阅读量708 收藏
点赞数
分类专栏： 开发工具研发 一些工具使用
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/cnbloger/article/details/78355413
版权

魅族和TCL手机的相机项目，需要通过几十项的客观参数验证，每一类参数最终都会获得一个excel表格文件，每个表格文件又包含若干工作薄，要在几十个表格文件的几十个工作薄中统计计算某些参数的值并把结果写入新的表格文件中，手动操作是一件十分枯燥且易出错的，其实这部分工作可以使用宏来解决。下面是为驱动部门开发的excel宏文件，略作记录，以备后用。

Sub 自动统计()
Dim myPath$
Dim AK As Workbook
myPath = ThisWorkbook.Path '把文件路径定义给变量
Application.ScreenUpdating = False '冻结屏幕， 以防屏幕抖动

Set AK = Workbooks.Open(myPath & "\1 (6)_summary.csv")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B137:B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D3:D3")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D10")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D11")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D3:G3")
Workbooks("D65_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D3:D6")

If Range("C3:C5").MergeCells Then
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B50:B50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5")
Else
Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("B50:B50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C3:C5")
End If

Workbooks("report.xlsm").Sheets("SNR").Range("C6:C8").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("C50:C50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C6:C8")
Workbooks("report.xlsm").Sheets("SNR").Range("C9:C11").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("D50:D50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C9:C11")
Workbooks("report.xlsm").Sheets("SNR").Range("C12:C14").MergeCells = True
Workbooks("D65_summary.csv").Sheets("A_summary").Range("E50:E50").Copy Workbooks("report.xlsm").Sheets("SNR").Range("C12:C14")
AK.Close False

Set AK = Workbooks.Open(myPath & "\D50_summary.csv")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B137:B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D4:D4")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D16")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D17")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D4:G4")
Workbooks("D50_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D7:D10")
AK.Close False

Set AK = Workbooks.Open(myPath & "\CWF_summary.csv")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D5")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D12")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D13")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D6:G6")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D15:D18")
AK.Close False

Set AK = Workbooks.Open(myPath & "\HOR_summary.csv")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D6")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D18")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D19")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D7:G7")
Workbooks("HOR_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D19:D22")
AK.Close False

Set AK = Workbooks.Open(myPath & "\TL84_summary.csv")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D7")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D20")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D21")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D8:G8")
Workbooks("TL84_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D23:D26")
AK.Close False

Set AK = Workbooks.Open(myPath & "\D75_summary.csv")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D8")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D14")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D15")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D5:G5")
Workbooks("D75_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D11:D14")
AK.Close False

Set AK = Workbooks.Open(myPath & "\A_summary.csv")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D9")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D22")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D23")
Workbooks("A_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D9:G9")
Workbooks("A_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D27:D30")
AK.Close False


Set AK = Workbooks.Open(myPath & "\step_summary.csv")

Dim i As Integer, count As Integer
count = 0
For i = 9 To 27
    If (Abs(Workbooks("step_summary.csv").Sheets("step_summary").Cells(i + 1, 2).Value - Workbooks("step_summary.csv").Sheets("step_summary").Cells(i, 2).Value) > 8) Then
    count = count + 1
    End If
Next
Workbooks("report.xlsm").Sheets("动态范围（Gamma）").Cells(3, 3).Value = count
AK.Close False

Application.ScreenUpdating = True '冻结屏幕,此类语句一般成对使用


End Sub
Sub test()
Set AK = Workbooks.Open(myPath & "\CWF_summary.csv")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B137").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D5")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B138").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D12")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B144").Copy Workbooks("report.xlsm").Sheets("饱和度&色差").Range("D13")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("B136:E136").Copy Workbooks("report.xlsm").Sheets("RGBY Noise（明亮）").Range("D6:G6")
Workbooks("CWF_summary.csv").Sheets("A_summary").Range("J7:J10").Copy Workbooks("report.xlsm").Sheets("AWB").Range("D15:D18")
AK.Close False

End Sub


残诗
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
【PhotoScan精品教程】任务二：刺像控点，平差，质量报告精度检查，像控点POS权重调配
「 刘一哥与GIS的故事」
02-02 9204
《无人机航空摄影测量精品教程》合集目录（Pix4d、CC、EPS、PhotoScan、Inpho） 【PhotoScan精品教程】任务一：新建工程、导入照片、设置坐标系、导入控制点（POS）、自由空三 【PhotoScan精品教程】任务二：刺像控点，平差，质量报告精度检查，像控点POS权重调配 【PhotoScan精品教程】任务三：生成密集点云、生成网格、生成DEM、生成DOM 本任务在任务一的基础之上，进一步讲解PhotoScan刺像控点，平差，生成质量报告，精度检查，POS点和控制点权重调配，.
相机参数一览表
qq_36400704的博客
09-03 4349
​“最近改文章，涉及到参数选择的考量，查阅相关资料整理相机参数。” 三维测量一般的光学实验几乎都涉及到投影仪和相机，每个器材的选择，参数的调节都对实验效果有很大的影响。 CCD数字相机参数 焦距（FocalLength） 焦距是从镜头的中心点到焦平面上所形成的清晰影像之间的距离，光学系统中衡量光的聚集或发散的度量方式。焦距的大小决定着视角的大小，焦距数值小，视角大，所观察到的范围也大:焦距数值大，视角小，观察范围小。根据焦距能否调节，可分为定焦镜头和变焦镜头两大类。当对同...
高质量软件中的7项自动化要求
我的E家
03-11 746
目录 翻译内容 Summary(摘要): 正文 关于作者 Sammy Tam 原链接 翻译内容 Summary(摘要): An advanced, efficient test automation platform, combined with a more systematic and comprehensive architecture, can help boost qu...
Python-图像加噪实现（Gaussian noise+salt and pepper noise）
热门推荐
zh_jessica的博客
09-13 5万+
Python-图像加噪 高斯噪声 椒盐噪声 添加噪声的实现 安装skimage库 添加噪声函数介绍 参数说明 Output 注意事项 图示Python-图像加噪高斯噪声高斯噪声(Gaussian noise)是指它的概率密度函数服从高斯分布的一类噪声。如果一个噪声，它的幅度分布服从高斯分布，而它的功率谱密度又是均匀分布的，则称它为高斯白噪声。 注意：“高斯白噪声的幅度服从高斯分布”的说法是错误的，
【OpenCV】彩色RGB图像添加高斯噪声（Gaussian Noise）
GordonWei
10-09 8641
简介 高斯噪声是指它的概率密度函数服从高斯分布（即正态分布）的一类噪声，高斯噪声是一个加性噪声（加性噪声一般指热噪声、散弹噪声等，它们与信号的关系是相加，不管有没有信号，噪声都存在）。 产生原因： 1）图像传感器在拍摄时市场不够明亮、亮度不够均匀； 2）电路各元器件自身噪声和相互影响； 3）图像传感器长期工作，温度过高。 这里说一下高斯白噪声： 白噪声是一种功率谱密度为常数的随机信号或随机过程。换...
自动化关键技术调研分析报告.doc
12-06
自动化关键技术调研分析报告主要聚焦于嵌入式技术，这是一种融合了计算机技术、通信技术、半导体技术等多领域知识的综合性技术。嵌入式系统（ES）是这些技术与具体应用场景结合的产物，具有技术密集、投资强度大、...
一款基于计算机视觉和自动化标注技术的学习研究软件
05-07
一款基于计算机视觉和自动化标注技术的软件，能够帮助用户轻松、高效地标注数码相机、显微镜和视频等数据。其原理是利用已标注好的图片进行训练，通过模型学习来自动识别数据中的标签。 AutoLabelImg 提供了多种...
相机标定实验报告
12-29
1. 初始化参数求解； a、求解单应性矩阵； b、根据理论的第 4 步求解相机内参的初始值； c、根据理论的第 5 步求解相机外参的初始值； d、畸变参数设置为 0。 2. 迭代求解总体最小二乘问题，也就是上面 6 所示的...
一款用于学习研究的基于计算机视觉和自动化标注技术的软件
最新发布
05-07
AutoLabelImg 是一款基于计算机视觉和自动化标注技术的软件，能够帮助用户轻松、高效地标注数码相机、显微镜和视频等数据。其原理是利用已标注好的图片进行训练，通过模型学习来自动识别数据中的标签。 ...
相机参数标定实验_C++_相机参数标定_
10-04
在计算机视觉领域，相机参数标定是一项至关重要的任务，它涉及到如何精确地理解相机捕捉到的图像信息。本文将深入探讨“相机参数标定实验”这一主题，主要使用C++编程语言来实现，并重点关注转移矩阵和旋转矩阵的...
photoscan操作手册
01-29
Photoscan操作手册，对该软件的入门有帮助，推荐下载。
photoscan处理流程--相机标定--畸变改正.docx
02-10
自己总结的photoscan相机标定流程，流程已经过实验验证，欢迎大家反馈宝贵意见。。。。。。。。。。。。。。
图像去噪论文Noise2Noise-Learning Image Restoration without Clean Data论文详解
祥瑞的技术博客
01-22 1万+
背景：这篇文章发在ICML2018上，是图像领域的重要的论文。训练图像去噪不需要无噪的原图像，非常具有参考意义。 目的：读懂并解析论文。 论文地址：https://arxiv.org/abs/1803.04189 源码地址：https://github.com/NVlabs/noise2noise 目录 一、摘要与背景 1.1 贡献点 1.2 问题描述 二、理论背景 2.1 问题...
【Photoscan/Metashape 使用说明书笔记】
天桥飞熊的博客
06-13 1万+
Photoscan使用说明笔记
metashape-pro python scripts render specified viewpoint
Nismilesucc的学习札记
03-31 539
官方python脚本使用文档主函数： 首先在metashape pro所在的文件夹中新建 ，将脚本内容写在该文件中，然后回到metashape 运行 这样metashape界面就会出现一个新的 选项，这个选项下，就是你所需要的通过脚本添加的功能。注意：每一次 集成的功能是固定死的… 如果代码发生修改，需要重新跑脚本添加相应功能，并且每个按钮是不覆盖的。 2. 相机位姿的输入 可参照该问题：render an image of a point cloud seen from a pose, with
CC、Pix4D、PhotoScan生成正射影像并进行拼接修图（附航测练习数据下载）
qq_43173805的博客
05-23 8128
今天我们来整理下关于ContextCapture、Pix4D、PhotoScan中正射影像的生成。 生成的正射影像到ArcGIS或Global Mapper中进行影像拼接及PhotoShop修图都有介绍。 文末有少部分航测数据供大家练习。 01 Pix4D 打开软件新建项目，项目名称填写，项目位置选择E盘根目录，项目类型默认为新项目。图片 完成后点击下一步。 接下来添加图像（本次选择Pix4D自带的案例图像，文末有下载链接） 图片添加完成后点击下一步，图像坐标系默认为WGS84经纬度坐标，不需要更改。 .
photoscan小结（1）——跑空三及导出POS
liukunrs的博客
06-14 1万+
1、新建一个工程 2、通过添加照片或者文件夹来添加照片 通过无限放大，可以查看每个照片点的名称（编号）。 3、选择处理->对齐照片，提交空三（相当于CC里面的预跑空三）. 4、导出XML文件。 a.跑完空三，通过导出相机，导出一个xml文件，注意选择坐标系。 b.选择xml文件： c.选择坐标系，根据照片的坐标选择坐标系，本次由...
Agisoft Photoscan/Mateshape 相机参数XML解读
qq_40563228的博客
04-20 6210
Agisoft Photoscan/Mateshape 相机参数XML解读 Agisoft Photoscan / Mateshape是一款利用照片进行高质量三维建模的软件，只需要数张照片就可以对场景进行稀疏和稠密重建。Photoscan的重建结果能够以点云（.ply）和相机内外参数（.xml）的格式导出；相机参数文件的基本结构如下： <?xml version="1.0" encoding...
【PhotoScan精品教程】PhotoScan简介、安装教程（附PhotoScan1.4.5安装包下载）
「 刘一哥与GIS的故事」
02-01 8191
PhotoScan在无人机航空摄影测量空三运算中，具有运行速度快、精度高等特点。PhotoScan空三运算的结果可以导入CC等进行模型构建。【PhotoScan精品教程】讲解利用PhotoScan软件进行航测内业空三运算、4D产品生成等项目化作业流程及注意事项。 文章目录1. PhotoScan软件简介1.1 软件特性1.2 功能介绍1.3 优缺点2. PhotoScan 1.4.5_x64完整安装3. PhotoScan 1.4.5_x64下载地址 1. PhotoScan软件简介 1.1 软件特..
学习札记快速整理软件需求分析说明书
"这是一份关于‘学习札记快速整理软件’的需求分析说明书，主要涵盖了业务背景、项目目标、涉及用户、条件和限制，以及详细的功能需求和非功能性需求。" 学习札记快速整理软件是一款旨在帮助用户高效整理学习笔记的...
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值