当前位置:首页 >> 电力/水利 >>

数字测斜仪器数据分析系统改进


数字测斜仪器数据分析系统改进
摘要:本系统系统采用 Delphi 设计,通过 Delphi 的文件读写操作和 TChart 组件的开发 应用分析基坑测斜的数据,所得到的结果可以直接导入 Excel 中,并且可以自动生成各种要 求的图像。软件最后成型不需要安装,直接运行即可。 关键词:Delphi,基坑测斜,平面差,平均差,累积差,比较差; 一、引言 目前基坑测斜是采用国

外的一套××系统采集数据,通过把数据导出到 PDA,在 PDA 上 进行计算,生成的图像,而在 PDA 上处理的所有结果不能直接导出到个人计算机中,这对 于分析测斜数据,生成数据报告很不方便,基于现状开发数字测斜仪器数据分析系统。本系 统通过分析 PDA 下载的 CSV 文件,得到基坑测斜中的不同深度的平面差、平均差、累积差 和比较差,并且自动生成图形,最后导入 Excel 中,打印成报告。 二、系统功能 1、 分析*.CSV 文件; 2、 确定基准值; 3、 计算同一基坑不同深度、不同日期的平面差、平均差、累积差和比较差的值; 4、 生成不同平面差、平均差、累积差和比较差的图像; 5、 生成报告。 三、实现方法 1、CSV 文件的规则 a)每一行数据包含多个字段,字段间以[,]分割. b)如果字段值不含有[,]和[\"],直接输出. c)如果字段值含有[,],两边加上[\"],读入时执行相反操作. d)如果字段值含有[\"],两边加上[\"],值中的一个双引号[\"]替换为两个双引号[\"\"], 读 入时执行相反操作. 2、 分析*.CSV 数据文件; a) 数据文件的组成: 头文件包括: INCLINOMETER DATA SITE CODE : yh-hj BOREHOLE CODE : cx1 FACES LOGGED : ABCD TIME/DATE TAKEN : 20:11 ON 12/05/05 DEPTH OF TUBE : -16.0 READING INTERVAL : 0.5 OPERATING UNITS : meters

b) 主文件组成 DEPTH FACE A+ FACE A- FACE B+ FACE B- meters meters meters meters meters -0.5 0.015318 -0.01369 0.018192 -0.01555 -1 0.017292 -0.01566 0.013839 -0.01067 -1.5 0.017378 -0.01573 0.010069 -0.00719 -2 0.01806 -0.0161 0.007627 -0.00558 C)根据 CSV 文件的特点,通过 Delphi 文本文件处理的方法分析*.CSV 文件; 3、 把*.CSV 数据导入程序设计的数组内; a)基准数据结构设计 type jzdata = record depth:real; //深度 az:real; //A+面数据 af:real; //A-面数据 bz:real; //B+面数据 bf:real; //B-面数据 fmca:real; //A 面平面差 fmcb:real; //B 面平面差 fjca:real; //A 面平均差 fjcb:real; //B 面平均差 ztxa:real; ztxb:real; end; type Tjzdata = array[1..100] of jzdata; b)其他数据值数组的设计和基准数据数组格式类似; c) 计算公式 A 平面差=( 正数据+A 负数据)*1000 平面差=( 正数据+ 负数据) =(A A 平均差=( 正数据-A 负数据)*1000/2 (Dmax 为测孔最深数值) 平均差=( 正数据- 负数据) =(A 为测孔最深数值) 比较差=累计差(比较文件)-累计差( 准文件) 比较差=累计差(比较文件)-累计差(基准文件) )-累计差 4、 数据文件生成:根据上面的格式和计算公式可以生成最终的数据,包括平面差、平 均差、累积差和比较差,并以表格形式把所得结果表示出来。 5、 动态数据图表的生成:数据图表采用 Delphi 中的 TChart 类,方法如下; a) 图 表 初 始 化 : 根 据 记 录 数 ( 以 深 度 为 准 ) 动 态 生 成 TlineSeries ; TLineSeries.Create(self).Name:='series'+inttostr(i); chart.AddSeries(TLineSeries(findcomponent('series'+inttostr(i)))); //I 为记录数 b) 向初始化图表中加入数据;temploop2 为记录数 for j:=1 to temploop2 do begin TLineSeries(findcomponent('series'+inttostr(j))).Title:=datestr[j]; for i:=1 to temploop do begin TLineSeries(findcomponent('series'+inttostr(j))).Add(strtofloat(stringgrid1.Cells[j,i]),stringgrid1. Cells[1,i]); ………. End; end; 6、 数据图表文件导入 Excel,生成图表; a) 数据文件导入 Excel:这部分比较简单,直接从把数据写到 Excel 模板里面的规定位 置; b) 根 据 数 据 在 Excel 中 直 接 生 成 图 表 , 如 下 :

Sheet1:=FvExcel.Workbooks[1].Worksheets['sheet1']; Sheet1.ChartObjects.add(10, 60, 500, 280); //向工作表中添加内嵌图表,Add 方法中的四个参数分别表示存储表格 A1 的左边距、顶部

边距、以及图表的宽度和高度

sheet1.ChartObjects[1].Activate; // 激 活 当 前 表 格

sheet1.ChartObjects[1].Chart.charttype:=xlXYScatterSmoothNoMarkers;//确定图表的类型 for i:=1 to temploop2 do begin cell1:=sheet1.cells.item[17,1]; cell3:=sheet1.cells.item[17,i+1]; range1:=sheet1.range[cell1,cell2];

cell2:=sheet1.cells.item[16+temploop,1]; cell4:=sheet1.cells.item[16+temploop,i+1]; range2:=sheet1.range[cell3,cell4];

sheet1.ChartObjects[1].Chart.seriescollection.ADD[Range2]; //Y //X 轴 轴

sheet1.ChartObjects[1].Chart.seriescollection[i].xvalues:=Range2; sheet1.ChartObjects[1].Chart.seriescollection[i].values:=Range1;

sheet1.ChartObjects[1].Chart.seriesCollection[1].hasdatalabels:=True;//显示图表中数列的资料 标签﹔ sheet1.ChartObjects[1].Chart.Axes[xlValue].MinimumScale:=min;//设定数值坐标轴的 最小刻度值﹔ sheet1.ChartObjects[1].Chart.Axes[xlValue].MaximumScale:=max;//设定数值坐 标轴的最大刻度值﹔ sheet1.ChartObjects[1].Chart.Axes[xlValue].MajorUnit:=0.01; //设定数值 坐标的主要单位﹔ sheet1.ChartObjects[1].Chart.Axes[xlValue].MinorUnit:=0.01; //设定数值座 标 的 次 要 单 位 ﹔ sheet1.ChartObjects[1].Chart.HasLegend:=true;// 显 示 图 例

sheet1.ChartObjects[1].Chart.SeriesCollection(i).Name:=datestr[i];// 设 置 图 例 - 日 期 sheet1.ChartObjects[1].Chart.Axes[xlValue].AxisTitle.Text:=’ 深 度 ’ //Y 坐 标 轴 标 签

sheet1.ChartObjects[1].Chart.Axes[xlCategory].AxisTitle.Text:=rdpnr.Items[rdpnr.ItemIndex]; //X 坐标轴标签 sheet1.ChartObjects[1].Chart.ChartGroups(1).VaryByCategories:=true;//对每个记 录标号不同的颜色 end; 五、结束语通过广铁科研所土建室一年多的使用,本软件操作简单,速度快,自动分析 CSV 文件,自动生成同一基坑不同日期测量的平面差、平均差、累积差和比较差,自动把 结果导入 Excel 文件并生成各种结果表现出来的图形,形成报告打印。此系统设计的思想可 以在其他工程测量软件设计中运用。

【参考文献】 1. Delphi 6 高级编程 飞思科技产品研发中心编著 电子工业出版社出版 2. Delphi 函数实用手册 张曜 张青 李彬编著 冶金工业出版社


相关文章:
数字测斜仪器数据分析系统改进
数字测斜仪器数据分析系统改进摘要:本系统系统采用 Delphi 设计,通过 Delphi 的文件读写操作和 TChart 组件的开发 应用分析基坑测斜的数据,所得到的结果可以直接导入...
测斜数据分析软件操作手册
- 15 - 联系方式 shocking@sina.com 测斜数据分析系统操作手册 -2- 1 软件简介测斜仪是通过测量测斜管轴线与铅垂线之间夹角变化量来测量岩土体、 建筑 物的测...
《测斜数据管理系统4.0》用户手册
测斜数据管理系统4.0》用户手册_建筑/土木_工程科技...利用传 输软件接收本公司生产的仪器中所存的数据。...编写:谢欣海 7 国达测控 用户手册 4.8 数据处理...
数字罗盘测斜仪
JJX-3A2型数字测斜仪 暂无评价 9页 免费 数字测斜仪器数据分析系... 3页 ...​2​D​S​数​字​罗​盘​测​斜​仪​是​为​...
基坑测斜观测数据误差分析方法研究
测斜是基坑监测的必要项目,针对测斜观测数据存在各种误差影响因素的情况,本文通过间接 观测值探讨了伺服加速度计式测斜仪观测数据误差分析的统计检验方法,以期具有...
KXZ-3数字测斜仪(全空间)和数字测斜仪(全空间)价格
KXZ-3数字测斜仪(全空间)和数字测斜仪(全空间)...数据经地面仪器 处理后,即可得到钻孔倾角和方位角的...组成仪器测量系统,灵敏度高、重复性好、体 积小。...
KXP-3A1轻便数字测斜仪和轻便数字测斜仪价格
数据人工记录, 经济型的数字井斜测量仪器, 适用...轻便数字测 斜仪 组成仪器测量系统,灵敏度高、重复...2、应用现代数字信号处理技术,准确 计算顶角和方位角...
KXP-3A2轻便数字测斜仪和轻便数字测斜仪价格
轻便数字测斜仪仪器是一种新型 的数据人工记录,...组成仪器测量系统,灵敏度高、重复性好、体 积小。...本仪器 集传感器、供电、数字处理等多个单元,以单 ...
测斜仪使用说明
rqjl.com 1、概述 图 1 显示了测斜仪系统的各...数据处理时,将读数(A+、A-)相结合(用一组数据...KXP-2D数字罗盘测斜仪使... 2页 1下载券 cx-3...
油井测斜仪的数据采集与测试
系统运用定向探管的工作 油井测斜仪的数据采集与...拟电压信号转换成数字信号, 运用串口通信技术, 微...根据实验数据分析了其启动时间、重复性、稳定性等...
更多相关标签:
大学物理实验仪器改进 | 系统改进方案 | 绩效改进系统 | 生产系统改进工具 | 自适应均线系统的改进 | 系统改进 | 车载导航系统改进 | 航电系统改进 |