标准贯入试验直方图绘制程序的改进

维普资讯 http://www.cqvip.com 工程地质计算机应用　２００６年第２期　总４２期　３３　体目录中，把“级５４．ｄｗｇ”这样一个预设的坐标网格文件拷贝到ＡｕｔｏＣＡＤ目录中。　启动后应先新建一次文件，然后再加载上面的ＡｕｔｏＬＩＳＰ文件，运行它，按提示选择刚　才已经生成的要作图的文本文件，如果阁下的计算机足够慢，你就可以欣赏到本程序逐步作　图和计算的过程。　当然，本程序也有不完美的地方：①需要人工进行曲线未端的剪裁，改动删除一些必要　的注记说明。②如果要作多个图，可以把已经打印过的这一张删除再重复进行，或者新建一　个文件后重新加载程序；如果你加载的是ＡＲＸ程序，可以在新建文件后直接运行程序。③　有一些数据点不在曲线上，这是因为我们采用了二次平滑而不是拟合方式进行多义线的平滑　处理，这一点符合制图规程。　还要说一下，预设的坐标网格文件是彩色的，是为了让你的单色激光打印机能够打出不　容易被人复印而且清楚的效果，如果阁下一定要复印而简单改变颜色的话，图面也会很黑的，　这时候就要对坐标网格文件本身的网格进行删减，我就不代劳了。　．　本程序支持ＶｉｓｕａｌＬＩＳＰ　Ｒ１４．０编译，制成ＡＲＸ文件可在ＡｕｔｏＣＡＤ　Ｒ１４．０．中文和英文版　中运行。也可以在ＡｕｔｏＣＡＤ　Ｒ１４．０和ＡｕｔｏＣＡＤ２００４下以解释方式运行。因字体的原因效果　可能会稍有不同，微调即可。　本程序经一年多试用效果不错，程序的关键设计思想来自陈伯雄老师的相关文章《追赶　法求直线与多义线交点坐标））Ｊ并在网上多次打扰陈老师，在此一并感谢。有兴趣的朋友欢　迎与我联系（收稿日期：２００５・ｌ１－２５；Ｅｍａｉｌ．ｚｈａｏ・ｔｏｎｇ－ｇｅｎｇ＠１６３．ｔｏｍ．ｋｕｎｌｕｎｇｏｌｆ＠１６３．ｃｏｍ）。　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※　标准贯入试验直方图绘制程序的改进　赵从耕（新疆阿克苏地区建筑勘察设计院新疆阿克苏８４３０００）　去年，本人编写了一个标准贯入试验直方图绘制程序，并有幸发表在《工程地质计算机　应用》２００４年第４期上。经过一段时间的试用，我又对其进行了一些改进，主要是按手工作　图的习惯对原有程序进行了结构化和顺序化调整，并改进了数据准备Ｅｘｃｅｌ模板文件，总体　上比原先的程序结构更加合理，意义更明确。　为了节省纸张，本人手工进行了格式反规格化，为了使意义更明确，大家可以用ＡｕｔｏＬＩＳＰ　中的规格化工具刷新一下，程序会依调用关系凹凸有致，非常清楚了。　（编者注：原文所附“改进后的源程序”因篇幅所限，将在本刊网站超文本版中全文刊　出，请有兴趣者去：ｈｔｔｐ：／／ｇｅｏｃｏｍ．ｈｈｃｃ．ｎｅｔ．ｃａ中查阅）　（收稿日期：２００５．１１－３０；Ｅｍａｉｌ：ｚｈａｏ．ｃｏｎｇ．ｇｅｎｇ＠１６３．ｔｏｍ）　※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※※　（上接第４２页）讯得到的数据可以供其它应用软件分析使用，用于制作静力触探成果图表或　工程地质剖面图等。通过自己动手编程，解决了工作中遇到的实际问题，提高了工作效率，　真是一大乐事也。（收稿日期：２００６－０５．１　８；Ｅｍａｉｈ　ｂｉｇｃｇｑ＠ｓｏｈｕ．ｃｏｒｎ）