利用exe计算岩层视倾角,绘图倾角ci

《利用exe计算岩层视倾角,绘图倾角ci》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

1、工程地质计算机应用2004年第3期总35期29※实践与经验※利用ExceI计算岩层视倾角、绘图倾角管军武(湖南永州市水利水电勘测设计院湖南永川425000)【摘要】本文介绍了利用Excel电子表格计算岩层视倾角、绘图倾角的方法、步骤。程序实用性强，可用来精确计算岩层视倾角和绘图倾角。【关键词】视倾角绘图倾角Exce1电子表格计算1前言在工程地质勘察内业整理时，绘制工程地质纵横剖面图是必须的。绘图时的首要问题之一是确定岩层产状在地质图上的准确表示，即视倾角、绘图倾角与岩层真倾角之间的关系。岩层视倾角大家都熟悉，也很重视，一般可通过查表得到。绘图倾角，即绘图时

2、在图纸上实际绘制的岩层倾角。在实际工作中，本着实用、美观的原则，绘图时纵横比例往往是不同的，这就需要进行绘图倾角的换算。然而，绘图倾角的换算却并没有引起大家的足够重视，在绘图过程中时常造成较大误差，给分析问题和解决问题都带来了一定的困难。例如，岩层的视倾角为40。，在纵横比例相同时，绘图倾角=视倾角=40。；但在纵比例=1：500，横I：l~f0=1：1000时，绘图倾角=59．21。·在纵比例=1：1000，横比例=1：500时，绘图倾角=22．76。。显然，绘图倾角随绘图比例尺的变化而大幅度摆动，很容易被制图者忽视，有可能误导地质师，或误导工程分析。本

3、人通过多个实际工程的工作实践，利用Excel电子表格计算岩层视倾角、绘图倾角。现作如下介绍，以供同行分享，文中纰漏之处，望请专家和同行指教。2计算方法和公式2．1计算视倾角在已知岩层真倾角、岩层走向与剖面问夹角的前提下，通过几何三角函数的演绎推导，即可求出岩层视倾角。计算过程和结果如下：如图1，已知：岩层真倾角Q=ZAEBC岩层走向与剖面问夹角=ZBFE求岩层视倾角Y=ZAFBD演绎推导：B，tanQ=AB／BE①～Y．q，FSinB=BE／BF②EtanY=AB／BF③联合①、②、③式解得图I岩层视倾角与真倾角关系图tanY=tanQ×SinB所以视倾角

4、Y=arctan(tanQ×SinB)(I)30工程地质计算机应用2004年第3期总35期2．2计算绘图倾角如图2，已知：左图，纵横比例相同，岩层视倾角Y，AB边长h，BC边长d；右图，纵横比例不同，绘图倾角(^)，AB边长yh，BC边长xd。求绘图倾角演绎推导：tanY=AB／BC=h／d④图2岩层视倾角与绘图倾角关系图tan(^)=AB／BC=yh／xd⑤由④、⑤得tan(^)：(y／x)×tanY所以绘图倾角(^)=arctan((y／x)×tanY)(2：3利用ExceI计算视倾角、绘图倾角3．1格式化Exce1表格新建一个Excel表。将单元格角

5、度换算程序肆{lj电于计苒观★t角，ff喧角A1、B1、C1合并后输入标题名称“角真触角：季：妻璺．}：，、：．度换算程序”。将A2、B2、C2合并，是句．5：白奢·0-：乏、J置毒l_数f，、．水平对齐方式选择右对齐，并输入似比例的分母：。lI．”：∽{：-一、’：；“本程序用于计算视倾角、绘图倾拱比例的分母：，：1【．：!'-j‘艳傩侥：，：rf；角”作为说明。然后依次输入A列呛国僻角．-鼍-、：：、～’j标签和C列说明，结果如图3。3．2计算视倾角、绘图倾角图3格式化后的角度换算程序图在Excel电子表格中，三角函数的计算都是以弧度表示的，而现在已知

6、的参数是以角度表示的，则应乘以PI()／180将其转换为弧度，计算结果也应乘以180／P10将其转换成角度。根据岩层视倾角的计算公式(1)，在B7中输入“=ATAN(TAN(B3*P10／i80)*SIN(B4*P10／180))丰(180／P10)”；根据绘图倾角的计算公式(2)，在B8中输入“=ATAN((B6／B5)*TAN(B7*(P10／180)))丰(180／P10)”。至此，只要按提示输入四个参数，即可自动计算出岩层的视倾角和绘图倾角。4保护表格为了防J卜别人恶意修改程序的计算公式和说明，可采取以下保护措施：①选中B3、B4、B5、B6四个单

7、元格。②单击右键，在弹出的快捷菜单中点击“设置单图4取消锁定部分单元格保护工程地质计算机应用2004年第3期总35期31元格格式”，在单元格格式窗体中点击“保护”，然后取消“锁定”前面的“√”号，点击“确定”退出窗体，如图4。③在常用菜单中依次点击“工具一保护一保护工作表”，在弹出的“保护工作表”窗体中输入保护密码(两次)，并取消“选定锁定单元格”前面的“√”号，如图5。这样，除B3、B4、B5、B6四个单元格可进行编辑外，其余所有的单元格都被保护起来了，既不能选定，也不能编辑，达到保护程序的目的。图5保护工作表另外，为使可编辑单元格和不可编辑单元格在视觉

8、上也区分开来，选中除B3、B4、B5、B6外的所有单元格，然后将其