【VB开源代码栏目提醒】：网学会员VB开源代码为您提供用Delphi进行直方图的组数选择与绘制 - 技术总结参考，解决您在用Delphi进行直方图的组数选择与绘制 - 技术总结学习中工作中的难题，参考学习。

    

用Delphi进行直方图的组数选择与绘制赵　荣　军河南省地质矿产厅第二地质勘查院许昌　461000摘　要:基于可视化程序设计思想用BorlandDelphi4编程实现了直方图的组数选择与绘制。

    程序能够绘制出525区间内各组数的原始或对数数据频率分布直方图图形从而使用户能够直观地根据图形选择合适的直方图分组。

    程序界面友好、使用方便。

    关键词:直方图分组程序控件界面中图分类号:P628.2　　文献标识码:A　　文章编号:1000Ο8918200002Ο0150Ο04直方图作为一种有效的统计工具一直为广大统计工作者所采用。

    然而对于如何合理确定直方图的分组数却是一个仁者见仁、智者见智的问题。

    一般认为直方图的分组数应该在510区间内凭经验选取。

    这显然带有很大程度的主观随意性尤其对于缺少统计经验的人来说确定合适的直方图分组无疑是个难题。

    因此有人〔12〕基于不同的思路提出了不同的直方图组数确定算法但这些算法也都是各有千秋。

    实际上统计工作者更乐意通过直方图图形来确定分组数。

    当然用手工绘制各分组数的直方图图形是不现实的需借用微机进行。

    一般的编程语言如BasicFortranC等固然能够实现直方图的组数选择与绘制但用这些语言编制图1　Cu元素频率分布图收稿日期:1999Ο6Ο4修回日期:1999Ο07Ο03第24卷第2期物　探　与　化　探Vol.24No.22000年4月GEOPHYSICALGEOCHEMICALEXPLORATIONApr.2000的程序用户界面不够友好使用不方便。

    笔者用BorlandDelphi4编程较好地实现了这些功能程序运行界面如图1。

    1　程序设计1.1　Delphi概述Delphi是Borland公司推出的全新的可视化编程环境是一种方便、快捷的Windows应用程序开发工具。

    它使用了MicrosoftWindows图形用户界面的许多先进特性和设计思想采用了面向对象的程序设计object2orientedprogramming———OOP源自快速应用程序开发rapidlyapplicationdevelopment———RAD设计的方法学这种方法学即创建包含可重复使用的控件component的窗体form用户在窗体中加入控件设置控件属性properties并为控件创建特定的事件event代码即可生成可执行的和调试产生的最后的应用程序。

    因此利用Delphi程序员不必自己建立对象只须在系统提供的程序框架中加入完成功能的代码即能生成漂亮的界面和结构良好的程序。

    同时与一般的可视化编程工具如MicrosoftVisualBasicVB相比Delphi的功能要强大得多表现在以下几方面。

    1.1.1　语言基础不同VB的语言基础是BasicDelphi的语言基础是ObjectPascal可以说Delphi等于VisualPascal而Pascal是一种比Basic更强有力的语言是编译式的语言Basic是解释性的能够高效率地执行程序。

    1.1.2　性能差异Delphi使用的是可执行的编译代码可直接编译链接为可执行的EXE文件而VB只产生部分解释的代码。

    Delphi采用条件编译和选择链接技术生成的EXE文件运行速度较快比VB有10～20倍的性能优势。

    1.1.3　Delphi有更广泛的数据库的支持Delphi通过BDEborlanddatabaseengine能够可靠地、高效率地存取几乎所有类型的数据库而且访问数据库的速度在同类产品中占有绝对的优势。

    此外Delphi还有VB所不具有的许多其它增强功能。

    因此Delphi一经推出就迅速为编程者所采用。

    目前在Windows前端开发工具上已成为大多数人的首选。

    1.2　程序设计表1　部分控件主要属性一览控　件属　性数　值Form1Caption直方图的组数选择与绘制ComboBox1Text5Items5～25ComboBox2TextCuItemsCuPbZn…RadioButton1Caption原始数据CheckedFalseRadioButton2Caption对数数据CheckedTrueStatusBar1VisibleFalseStatusBar1.Panels0Width350StatusBar1.Panels1Width100StatusBar1.Panels2Width60StatusBar1.Panels3Width50??151??2期赵荣军:用Delphi进行直方图的组数选择与绘制1.2.1窗体设计窗体是可视化编程的主要设计对象是应用程序的最终界面窗体设计的优劣将直接影响到应用程序的界面。

    设置控件OpenDialog1用于打开数据文件控件ComboBox12用于选择组数和元素名称控件RadioButton12用于单选原始数据和对数数据控件ToolButton1～4用作工具栏按钮ImageList1控件为其提供按钮图案StatusBar1控件显示工作状态控件Menu1为主菜单。

    各控件的设置如图1部分控件的主要属性如表1。

    1.2.2　代码设计为部分控件编制相应事件代码。

    2　使用方法程序设计完成后运行run正常用“Project/Compileproject”进行编译生成EXE文件即可在Windows95/98下直接运行。

    在Windows下运行后出现图1所示界面单击“文件/打开”菜单或打开按钮打开数据文件3.dat后绘制按钮及相应的菜单项由灰显变为可用按下则绘制出直方图。

    点击下列表框改变分组数或单击单选框改变数据类型原始或对数后单击“绘制”菜单或相应按钮可重新绘制。

    单击“文件/退出”菜单或退出按钮退出程序。

    3　应用实例河南省某地1∶10000水系沉积物测量部分Cu元素分析数据10-6样品数n120如下:10102087127426148127179948146810123910149422415141413.514.511101314.51314.5810.5根据程序运行后绘制的直方图图形取原始数据时各分组图形均呈显著右斜分布取对数数据后直方图图形多呈近正态分布。

    分12组时图形图1不缓不峭呈近对称正态分布且没有频数为0的分组。

    因此确定12组为最佳分组。

    4　存在问题1.程序绘制的直方图为屏幕显示如需打印可以用GP50GrabΟItPro5.0一类的抓图软件将图形抓下送打印机打印。

    2.在窗体中加入DataSourceTable控件并对程序适当修改可以直接读取xBaseFoxProMSΟAccessParadox等类型的数据库文件程序功能将进一步增强。

    ??251??物　探　与　化　探24卷参　考　文　献1　刘甸瑞.作直方图中的最优分组问题J.物探化探计算技术19951712　赵荣军.直方图分组数的确定J.物探化探计算技术19992113　赵屹.我们的选择———从VB到DelphiJ.电脑技术199714　冯永红王军宋天平.Delphi3.0使用与开发指南M.北京:人民邮电出版社1998THEAPPLICATIONOFDELPHITOTHESELECTIONOFCLASSIFICATIONNUMBERSANDDRAWINGOFHISTOGRAMZhaoRongjunNo.2InstituteofGeologicalExplorationHenanBureauofGeologyandMineralResourcesXuchang　461000Abstract:BasedontheideaofvisualprogrammingthispaperusedBorlandDelphi4programmingtorealizethese2lectionofclassificationnumbersanddrawingofthehistogram.Withtheprogramonecandrawthefrequencydistri2butionhistogramfororiginalorlogarithmicdataofeachclassificationintherangeof525thusenablingtheuserstochoosesuitableclassificationnumbersofthehistogramdirectlyinaccordancewiththecharts.Theprogramiscon2venienttouseanditsinterfaceisfriendly.Keywords:histogramclassificationprogramcomponentinterface作者简介:赵荣军男1973年9月生助理工程师。

    1992年毕业于赣州地质学校地质调查与找矿专业1997年自考计算机及其应用专业毕业现从事化探找矿工作。

    发表论文4篇参与出版科研专著1本。

    上接149页ANINTRODUCTIONTOTHESOFTWAREOFRGΟ1MERCURYANALYZERYangZhuxiWeiJingshengLiRongchunYongliCompanyofNingboZhejiangProvinceNingbo　315040Abstract:TheoperationsoftwareofRGΟ1mercuryanalyzerisdevelopedbyusingVC5.0toolandperformedunderWindows95.TheAD/DAinterfaceisusedtorealizethecontrolofRGΟ1andtheautomatictrackingcorrectionofreferencevoltage.Theoperationiscompletelyvisualized.Ithasfoursortsofselectablestandardfittingcurvesusedtodeterminepeakvaluesandintegralvaluesofdifferentsamplesandcandirectlygivemercuryquantityandvariousstatisticaldata.Keywords:mercuryanalyzersoftwaredevelopmentvisualizedoperation第一作者简介:杨竹溪男1935年生北京市人高级工程师。

    1963年毕业于北京地质学院勘探系就职于地矿部物化探研究所从事地球化学勘查和化探数据处理工作。

    曾主持多个有关化探数据处理的计算机项目研究工作。

    发表论文十余篇。

    ??351??2期赵荣军:用Delphi进行直方图的组数选择与绘制