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

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


数字测斜仪器数据分析系统改进
摘要:本系统系统采用 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 函数实用手册 张曜 张青 李彬编著 冶金工业出版社



相关文章:
数字罗盘测斜仪
JJX-3A2型数字测斜仪 暂无评价 9页 免费 数字测斜仪器数据分析系... 3页...​K​X​P​-​2​D​S​数​字​罗​盘​测​斜...
钻孔井斜数据处理方法探讨
现场测井 所使用的仪器为美国 MT 公司生产的 MT-Ⅲ系列数字测井仪, 测斜仪器...井斜数据处理软件介绍 23页 免费 可靠性数据处理方法的探... 4页 免费 校准...
测斜仪使用说明
数据处理时,将读数(A+、A-)相结合(用一组数据...6 测斜仪的使用: 6.1、仪器的连接 测斜仪的...KXP-2D数字罗盘测斜仪使... 2页 1下载券 cx-...
正文_底明辉终结版
仪器检测、测量数据处理和显示、曲线回放等都通过软件实现。测量时, 在井下将...声系以及井径等综合测 量,实现了对声波全波列的数字化记录,并对管波的纪录...
KXZ-3数字测斜仪(全空间)和数字测斜仪(全空间)价格
电缆传输数据准确可靠; 高性能传感器测量结合数字信号处理技术,测 量结果精度高、...搜索联系 采用高精度的重力加速度计和三维磁阻传感器 组成仪器测量系统,灵敏度高...
xs558-b测斜仪
数据处理软件,供使用微机与其通讯上载数据供进一步的...五、开机操作 1、开机前应检查仪器是否与测斜探头...(1)选择菜单选项(增加) (2)选择数字 (增大) ...
KXP-2B小口径数字罗盘测斜仪(中地)
KXP-2B小口径数字罗盘测斜仪(中地)_物理_自然科学_专业资料。今日...数字测斜仪器数据分析系... 3页 1下载券 数字式连续测斜仪测量精... 4页...
KXP-2s小口径数字罗盘测斜仪
仪器集传感 器、供电、数字处理等多个单元为一体...2 金石科技 KXP-2S 小口径数字罗盘测斜仪 四、...系统时间“年月日时分秒” ,“▲”更改对应数据, ...
CX-06A测斜仪操作及软件处理
系统由三大部分组成,即测头、测读仪、数据处理软件...1) 仪器设置 选择“系统配置”菜单下“仪器配置”项...三个大写的英文字母或数字,如 C06 测头编号:六个...
油井测斜仪的数据采集与测试
油井测斜仪数据采集与测试 摘要 为了方便石油、...成数字信号,微控制器最 后一次接收数据的计算处理...个友好的软件界面,是一个可靠,稳定,易于操作的仪器...
更多相关标签: