小白自学ExcelVBA道路坐标高程计算程序流程
小白自学ExcelVBA道路坐标高程计算程序流程
1声明
1.1 本人是个工作时间不长测量施工员。
1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的……
1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。
1.4 谷歌、度娘，是咱的好帮手。
1.5 仰望的存在，神一般的存在，无私的化身！
道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077）
曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316）
陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！
1.6 道路中边桩坐标计算程序120424.xls代码获取。
王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！
2 代码理解ing…
我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。现在咱们冲呀！
2.1 第一段代码理解
貌似第一段代码是定义的意思“定义π值”、'定义桩号点”、“'定义坡段”、“'定义基本曲线”
①Public Const PI As Double = 3.14159265358979
谷歌翻译：Public Const PI As Double
公共常量PI 作为双精度浮点型
百度百科：双精度浮点数
双精度浮点数（Double）用来表示带有小数部分的实数，一般用于科学计算，用8个字节（64位）存储空间，其数值范围为1.7E-308～1.7E+308，双精度浮点数最多有15或16位十进制有效数字，双精度浮点数的指数用“D”或“d”表示。
双精度浮点数科学记数法格式：±aD±c或±ad±c
在一些现代的被优化用来进行高速数学计算的处理器上双精度型实际上比单精度的快。所有超出人类经验的数学函数，如sin( )，cos( ) ，和sqrt( )均返回双精度的值。当你需要保持多次反复迭代的计算的精确性时，或在操作值很大的数字时，双精度型是最好的选择。个人理解：PI是储存数据的符号，把3.14159265358979赋值储存进去，公共常量，意思是大家都可以调用的固定值，双精度浮点型应该是规定PI能储存的数据类型（什么整数啦、日期啦、小数啦、文字啦之类的），还有储存量（估计双精度比单精度储存的多）之类的规定。
②Public Type StaPoint……End Type
谷歌翻译：Public Type StaPoint（联系上下文“定义桩号点”应该是Stake Point）公共类型桩号点
百度文库：VB中Type语句的功能及用法
Type 语句只能在模块级使用。使用Type 语句声明了一个用户自定义类型后，就可以在该声明范围内的任何位置声明该类型的变量。可以使用Dim、Private、Public、ReDim 或Static 来声明用户自定义类型的变量。
在标准模块中，用户自定义类型按缺省设置是公用的。可以使用Private 关键字来改变其可见性。而在类模块中，用户自定义类型只能是私有的，且使用Public 关键字也不能改变其可见性。在Type...End Type 块中不允许使用行号和行标签。
用户自定义类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。个人理解：①号句定义了常量的代码（经常用π值，就把3.1415固定到PI里，方便调用）。
②使用Type语句分段（StaPoint/桩号点、Slope/坡段、CurveSec/基本曲线）、批量自定义变量的代码，这几段都是定义的双精度，之所以分段，联系下文，估计是方便经常调用。
值得注意的是CurveSec/基本曲线定义这一段，对于ST_Sta/起点、EN_Sta、/终点的定义，调用了前面StaPoint/桩号点的定义，两句话，直接把基本曲线所需要使用参数代号都定义了，呵呵，这就是Type语句吧，可以相互调用，方便定义！
2.2 咦？？？？？？这个分割线是怎么回事？
为什么会跟下一段的Sub Auto_Open().....End Sub分开呢？
点一下Sub Auto_Open().....End Sub右上角的“声明”就变成“Auto_Open”，声明什么意思？Auto_Open又是什么意思？点击声明的下拉列表，好家伙，全是程序（sub）代号，应该是起到一个引所目录的作用吧！触发某段代码运行.....
对于上面的Sub Auto_Open()......End Sub代码的功能的功能聪明的我已经猜到，是打开Excel表格，就会跳到标签为“欢迎”的页面。
③Sub……. End Sub
谷歌翻译：Sub……. End Sub（联系上下文“定义桩号点”应该是Stake Point）
[statements]
[Exit Sub]
[statements]
End Sub
Sub 语句的语法包含以下部分
Public 表示Sub 过程可被所有Script 中的所有其他过程访问。
Private 表示Sub 过程只可被声明该过程的Script 中的其他过程访问。
Name Sub 的名称，遵循标准变量命名约定。
Arglist 代表在调用时要传递给Sub 过程的参数的变量列表。用逗号隔开多个变量。
Statements 在Sub 过程主体内所执行的任何语句组。
用户自定义类型经常用来表示数据记录，记录一般由多个不同数据类型的元素组成。
在Sub 过程中使用的变量分为两类：一类是在过程内显式声明的，另一类则不是。在过程内显式声明的变量（使用Dim 或等效方法）总是局部变量。对于那些没有在过程中显式声明的变量也是局部的，除非在该过程外更高级别的位置显式地声明它们。
Sub 过程是包含在Sub 语句和End Sub 语句中的一系列Visual Basic 语句。每次调用过程时都执行过程中的语句，从Sub 语句后的第一个可执行语句开始，到遇到的第一个End Sub、Exit Sub 或Return 语句结束。
个人理解：Sub语句中sub作为开头，是让计算机一阅读代码就知道，你执行的是一个程序，而不是默认的定义一些数据，当然要先定义，才能执行，前面的①②代码都是公共定义，是计算机最先执行的，sub里有自己小范围的dim定义。据观察给sub后加名字，名字最后必须是（），至于为什么要加（），别问我，我是小白，我不知道！！！但启动调用程序时，就直接用写名字就行了。
2.3 一切反动派都是纸老虎
丫丫了个呸的！这一层一层的代码都是什么呀！太祖有云，一切反动派都是纸老虎！上去戳他去！行动听指挥，一步一步来！
④Dim zy, i, j As Integer
谷歌也没搜到Dim是个啥玩意，就当成定义的意思了，定义zy, i, j为整数类型（Integer），后面还有个定义成字符型（String）的，就是可以储存字母之类的。
⑤PM(3, 5)
Dim PM(3, 5) As Double里出现了个PM(3,5)
百度知道：excel vba 中PM(3,5)是什么意思?
1、cells(行坐标，列坐标）表示一个单元格的位置，如：
A1 :CELLS(1,1) B2:CELLS(2,2) C2: CELLS(2,3)
2、VBA中没有PM() 属性，
（1）可能是自定义的数组，如：
dim PM(10,10)
则PM(3,5)就是这个数组的一个元素
（2）或是单元格区域，如：
set PM=RANGE("B2")
则 B2为 PM(1，1) ，PM(3,5)就是单元格 F4
个人理解：Dim PM(3, 5) As Double是定义3×5=15个PM（？，？）数组元素，双精度的，可以使用这十五个PM（？，？）符号进行储存，注意第二个问号前有个空格。
⑥With Sheets("平面资料")……End With
百度知道：VBA中的WITH 语句用法及含义
通俗点讲with的作用就是简化代码，让代码简洁易懂
让你不需要输入重复的内容
例如：
With [A1]
.RowHeight = 10
.ColumnWidth = 15
End With
相当于
[A1].RowHeight = 10
[A1].ColumnWidth = 15
省去了输入很多[A1]
也就是说with中以. 开头的就相当于
WITH后的对象.什么什么什么
⑦Rows("6:500").ClearContents
谷歌翻译：Rows("6:500").ClearContents
行清除内容
百度知道：excel的vb中Rows( 6:500 ).ClearContents是什么意思？
将第6行到第500行的内容清除。
谷歌翻译：Worksheets("Sheet1").Range("A1:G37").ClearContents
工作表范围清除内容
2.4 探索与发现
其实就单纯的表格数据计算，所使用的VBA编程知识，是非常非常少的，换个VB编程高手，来看咱们工程坐标计算所使用的代码规则，简直就是加减乘除而已。事实上也是如此，你只要耐心的跟同样小白的我，一起花十几分钟看完这篇流程，你已经有能力看懂88%的代码，并且可以简单的修改应用。传说ExcelVBA可以直接接入CAD….这就要等大家去探索发现了，嘿嘿！！废话少说，还有几段小代码规则，大家再来看看吧！
⑧If .Cells(i + 2, 3) = "" Then…. End If
如果你连if、while、for这些条件循环语句都不懂的话，那你真比我还小白了，哈哈！！！
这段代码并不难，之所以拿出来研究，还是为了消除大家的畏惧心理，嘿嘿！！
百度搜索：这个语句可判断If Cells(j, 2) ="" Then 这个单元格“Cells(j, 2)”是空白单元格吗？
如果cells（j，2）为空的话，这时候下一步，这里的双引号是空的意思。
下面，好菜上场了，个人感觉这个非常有用的规则，解密了③代码的（）问题。
⑨ST1 = Fwj(PM(1, 1), PM(1, 2), PM(2, 1), PM(2, 2)) 计算方位角
乍一看，挺晕，其实呢，首先不要被PM（？，？）、ST1所迷惑，个人感觉，这家伙就是a、b、c、d，好了，言归正传，x = Fwj(a, b, c, d)，咦？，Fwj是个什么东东，嘿嘿百度上是搜不到的，我找了一大遍，发现sub里有个Fwj
⑩Function Fwj(x1, y1, x2, y2)…. End Function
谷歌翻译：Function→函数
原来是自定义函数的意思呀！这里（）里不再是空的了，转念一想，我们在表格里不是经常使用一些简单的公式么？什么“=SUM（）求和”、“DEGREES（）弧度转角度”、“Pi（）”都是有括号么？在代码规则里括号里有东西，估计也是直接把括号里的东西定义了，可以直接使用。
嘿嘿，我发现，在宏里定义了的函数可以在表格里找到
嘿嘿，转念一想，哈哈，这TMD以后方便了，自定义函数真是个好东西，网上应该有很多很不错的自定义函数，大家搜索一下，一定有意想不到的收获。呵呵，个人感觉ExcelVBA 就是个大函数，我们只不过是把A1、B2之类的单元格使用代码替换了一下，附加个函数运算就得了，哈哈！
2.5 又一个的小问题
傻了吧！Sub GetStaCoor(sec As CurveSec, sta As StaPoint)这是神马东东，嘿嘿，只不过是把sec跟sta这两个代符直接在括号里定义了，没什么大不了的。
又傻了吧！LL = sec.EN_https://www.360docs.net/doc/5b19280516.html,e - sec.ST_https://www.360docs.net/doc/5b19280516.html,e狗日的这又是神马东西？嘿嘿，不要着急，这些东西，你都见过的，只不过用“.”给连接起来了，感觉应该是一层一层的
递归查找的意思，你看，先把sec使用以前定义好的CurveSec/基本曲线定义，这样sec里
就有了EN_Sta之类的，同理，就有了
Mile之类的。
至此我们的小白学习流程就告一段落了，还有两段代码，其中一段挺简单的，大家自己探索吧！另外一段嘛，别问我，我是小白，我不懂！！！！你懂得，嘿嘿…
最后呢，感谢大家陪小白我一起学习，介绍一份陈师傅的《教你如何通过Excel VBA编写测量坐标计算程序》给大家。
https://www.360docs.net/doc/5b19280516.html,/295188316/blog/1339492833
副本人搜索珍藏的施工测量资源链接
网站---------------------------------------------------------------------2012.06.17
测量空间https://www.360docs.net/doc/5b19280516.html,
工程测量资源https://www.360docs.net/doc/5b19280516.html,/
质检站https://www.360docs.net/doc/5b19280516.html,/rwqss/public/findSubject.shtml?subjectid=203
中华钢结构论坛https://www.360docs.net/doc/5b19280516.html,/forum/index.php
仿真科技论坛https://www.360docs.net/doc/5b19280516.html,/
最新专业桥梁网站、桥梁论坛（2012.02验证更新）https://www.360docs.net/doc/5b19280516.html,/740311548/blog/1332736417
王中伟老师的测绘技术日志总索引https://www.360docs.net/doc/5b19280516.html,/595077/blog/1300427570
计算器中文测量程序道路之星https://www.360docs.net/doc/5b19280516.html,/
行业规范标准分享网https://www.360docs.net/doc/5b19280516.html,/
便携测量公式查找手册https://www.360docs.net/doc/5b19280516.html,/file/e7qk91v6#测量专家-2006-for-2006.01.03.chm
下载链接------------------------------------------------------------------
【更新】纯Excel公式开发的施工测量数据计算表V1.4 密码是AABBCC123456
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1279&author=%u534A%u8FB9%u4E66%u7 51F
【更新】在AutoCAD中用VBA按输入任意步长绘公路全能曲线（加入CAD命令）
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1288&author=%u534A%u8FB9%u4E66%u7 51F
用EXCEL公式编写的计算后方交会法小工具
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1185&author=%u534A%u8FB9%u4E66%u7 51F
Excel全线坐标高程计算v1.积木法版+交点法版【2012.3.6】
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1343&author=qq740311548
纯Excel编辑的测量方面的一些小程序
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1356&author=%u4F55%u8DB3%u9053
测量程序汇编（5800计算器程序和对应的Excel程序）
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1357&author=%u4F55%u8DB3%u9053
Excel测量坐标计算程序（附带计算器程序）
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1284&author=%u4F55%u8DB3%u9053
自编Excel测量计算程序-何足道
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1175&author=%u4F55%u8DB3%u9053
道路中边桩坐标计算EXCEL程序（120424版）【王中伟老师编写】
https://www.360docs.net/doc/5b19280516.html,/595077/blog/1335541955
道路中边桩坐标计算程序110610【王中伟老师编写】
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1384&author=qq740311548
立交匝道参数辅助计算程序（100111版）【王中伟老师编写】
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1383&author=qq740311548
https://www.360docs.net/doc/5b19280516.html,/595077/blog/1257256530
“卵形曲线参数转换程序.xls”是卵型曲线转交点的
大地坐标系与施工坐标系的计算（可计算直线，内附5800程序代码）
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=1362&author=qiufei
Excle全站仪实用放线程序（已改正）
https://www.360docs.net/doc/5b19280516.html,/down_view.asp?id=764&author=baihei
电子表格Excel VBA测量程序分享--陈超
https://www.360docs.net/doc/5b19280516.html,/295188316/blog/1329102981
卡西欧CASIO fx-9750GII/9860坐标计算程序分享--陈超
https://www.360docs.net/doc/5b19280516.html,/295188316/blog/1329049530
卡西欧计算器程序传输软件FA-124的使用方法
https://www.360docs.net/doc/5b19280516.html,/595077/blog/1302101288
https://www.360docs.net/doc/5b19280516.html,/file/c2pif4fa#
某桥梁交底材料.pdf
https://www.360docs.net/doc/5b19280516.html,/file/e6gc3p7u#轻松工程测量系统2.051版.rar
[Excel]曲线坐标计算程序VBA 4.6 - 测量程序- 交点法、线元法、竖曲线等程序全新设计https://www.360docs.net/doc/5b19280516.html,/blog/post/QXZB_VBA_4.6.html
[Excel]曲线坐标计算程序VBA 4.5
https://www.360docs.net/doc/5b19280516.html,/blog/post/QXZB_VBA_4.50.html#jtss-tqq
最好大家自己也建个115网盘帐号，分享到自己的空间，这样源文件就多了，下载就快点儿，没有帐号的请用下面的推广注册连接，帮我扩扩容，谢谢哈...
https://www.360docs.net/doc/5b19280516.html,/invite/318335
计算器中文测量程序道路之星https://www.360docs.net/doc/5b19280516.html,/
9750的刷机https://www.360docs.net/doc/5b19280516.html,/595077/blog/1321170959
fx-ES(MS)计算器论坛https://www.360docs.net/doc/5b19280516.html,/
工程测量资源9750板块https://www.360docs.net/doc/5b19280516.html,/blog/catalog.asp?cate=6
测量空间9750板块https://www.360docs.net/doc/5b19280516.html,/article_list.asp?c_id=48&s_id=255
卡西欧计算器程序传输软件FA-124的使用方法-G2M文件导入到计算器https://www.360docs.net/doc/5b19280516.html,/595077/blog/1302101288
https://www.360docs.net/doc/5b19280516.html,/file/c29xv7bt#
FA-124使用说明.pdf
fx-9750GII 视频教程https://www.360docs.net/doc/5b19280516.html,/edu/web/100minutes.html
程序源-----------------------------------------------
https://www.360docs.net/doc/5b19280516.html,/file/c2943e54#
fx9860程序源+使用说明.rar
https://www.360docs.net/doc/5b19280516.html,/file/c29zm6bc#
GII重现功能数据和表达式修正版.rar
https://www.360docs.net/doc/5b19280516.html,/file/ansjtliy#
半支烟9860程序以及说明.rar
https://www.360docs.net/doc/5b19280516.html,/file/c29zme53#
9860蓝星2.5版程序文件.rar
https://www.360docs.net/doc/5b19280516.html,/file/dpqlr113#
fx-cg20fx-9750g_new.rar
https://www.360docs.net/doc/5b19280516.html,/file/bepltell#
EDIT_v1[1].51国外牛人编写的记事本程序源码.rar
https://www.360docs.net/doc/5b19280516.html,/file/ans9og88#
CASIO官网发布的覃辉的9750、9860的程序.rar
https://www.360docs.net/doc/5b19280516.html,/file/e7qfgsi6#
CASIO_fx-9750GII_MJM2面积计算程序.rar
https://www.360docs.net/doc/5b19280516.html,/file/bht1pxlh#
fx-CG20隧道超欠挖程序配套程序资料.zip
https://www.360docs.net/doc/5b19280516.html,/file/bht1ppnf#
fx9860g_实用测量程序_配套资料.zip
https://www.360docs.net/doc/5b19280516.html,/file/e6gcqb61#
fx9750gii计算器_公路与铁路测量程序_源程序.zip
程序使用说明-----------------------------------------
https://www.360docs.net/doc/5b19280516.html,/file/e6gclu36#
公路与铁路测量程序__Q4V4程序操作说明.pdf
https://www.360docs.net/doc/5b19280516.html,/file/clyixlgn#
公路与铁路测量程序__Q4V3程序操作说明.pdf
https://www.360docs.net/doc/5b19280516.html,/file/e6gclnae#
公路与铁路测量程序__Q3V2程序操作说明.pdf
https://www.360docs.net/doc/5b19280516.html,/file/clyixhx4#
公路与铁路测量程序__Q3V1程序操作说明.pdf
程序使用视频------------------------------------------
https://www.360docs.net/doc/5b19280516.html,/file/e6gclgn8#
Q2V9线元法连续路线匝道平曲线与竖曲线三维坐标正反算程序2.mpg
https://www.360docs.net/doc/5b19280516.html,/file/e6gclmb6#
Q2V8连续交点平曲线与竖曲线三维坐标正反算程序2.mpg
https://www.360docs.net/doc/5b19280516.html,/file/bht1sfyg#
Q2V9线元法连续路线匝道平曲线与竖曲线三维坐标正反算程序1.mpg
计算器编程图书-----------------------------------------
https://www.360docs.net/doc/5b19280516.html,/file/bepled0y#
fx9860g_实用测量程序.pdf
https://www.360docs.net/doc/5b19280516.html,/file/ans00myu#
RDWORK(9750／9860版）程序包PDF（解保修正）.rar
https://www.360docs.net/doc/5b19280516.html,/file/dpqlpsh0#
fx-9860G基于串列的偏携编程数字化计算原理与方法.rar
https://www.360docs.net/doc/5b19280516.html,/file/bht1wt8y#
fx9750gii计算器_公路与铁路测量程序_电子书籍.pdf
https://www.360docs.net/doc/5b19280516.html,/file/clyizyon#
CASIO_fx-CG20中文图形编程计算器电子手簿与隧道超欠挖程序（新增可打印功能）.pdf
计算器使用说明---------------------------------------
https://www.360docs.net/doc/5b19280516.html,/file/cl0h45ll#
fx-9750GII、fx9860GII基本操作.ppt
https://www.360docs.net/doc/5b19280516.html,/file/e6gclbdv#
fx-9750GII、fx9860GII详细中文说明书.pdf
https://www.360docs.net/doc/5b19280516.html,/file/clyixmal#
fx-9750GII、fx9860GII操作说明.doc
再次感谢无私的神人们！！！！！！
道路放样坐标计算
全站仪道路放样、方位角及左右偏移坐标计算（直线、缓和曲线<南方NTS-362R6L>） 一、根据直线、曲线要素表 列1：JD5—x=4340430.518 JD6—x=4339782.179 y=441418.4621 y=441651.8123 方位角计算=POl（4339782.179-4340430.518，441651.8123-441418.4621 r=689.0543 Θ=160.2051794 转160°12″18.65′ ∴JD5—JD6直线段长689.0543m,方位角=160°12″18.65′，已知JD5半径=1500，曲线长度248.7908;(JD5桩号K3+328.548，JD6桩号K4+017.030） 利用全站仪进行道路放样：选择程序——道路——水平定线——（新建水平 定线文件）——起始点（输入桩号3328.548，坐标JD5）——水平定线（1、直线-方位角160°12′19″ 2、圆弧—半径1500，弧长497.58 3、缓和曲线-半径1500，弧长497.58）——道路放样——选择文件（水平定线）——设置放样点（依次输入起始桩号-桩间距-左偏差-右偏差）——放样《DHR角度值，HD水平距离》（编辑可以桩号可放样任意一点坐标，编辑偏差左右偏移“左负右正”）见附图 二、道路坐标计算(列1） JD5——JD6坐标计算{x+Cos(方位角)*距离} {y+Sin(方位角)*距离 JD6X=4340430.518+Cos（160.2052）*689.0543=4339782.179 JD6Y=441418.4621+Sin(160.2052)*689.0543=441651.8121 三、坐标距离计算2（列1） JD5—JD6其之间的距离计算【根号下{（JD6Y-JD5Y）2+（JD6X-JD5X）2}】如下： （441651.8123-441418.4621）+（4339782.179 -4340430.518 ） =233.3502 =-648.339 = （233.35022+648.3392）
公路测量坐标计算公式
高速公路的一些线路计算 一、缓和曲线上的点坐标计算 已知：①缓和曲线上任一点离ZH 点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l 0 ④转向角系数：K(1或－1) ⑤过ZH 点的切线方位角：α ⑥点ZH 的坐标：x Z ，y Z 计算过程： y y ⑼y x x ⑻x αSsin y ⑺αScos x ⑹90 ααα⑸y x ⑷S 180n x y arctg α⑶l 3456R l l 40R l l y ⑵)K R 336l l 6Rl l (x ⑴Z 1Z 11111012 0200 040 49202503307 03 0+=+===-+=+=?+=+-=-= 说明：当曲线为左转向时，K=1，为右转向时，K=-1， 公式中n 的取值如下： ?? ? ??=<?? ? ??=>>1n 0y 0x 1n 0y 0x 2n 0y 0x 0n 0y 0x 00000000 当计算第二缓和曲线上的点坐标时，则： l 为到点HZ 的长度 α为过点HZ 的切线方位角再加上180° K 值与计算第一缓和曲线时相反 x Z ，y Z 为点HZ 的坐标 切线角计算公式：2Rl l β0 2 =
二、圆曲线上的点坐标计算 已知：①圆曲线上任一点离ZH 点的长度：l ②圆曲线的半径：R ③缓和曲线的长度：l 0 ④转向角系数：K(1或－1) ⑤过ZH 点的切线方位角：α ⑥点ZH 的坐标：x Z ，y Z 计算过程： y y ⑿y x x ⑾x αSsin y ⑽αScos x ⑼90α αα⑻y x ⑺S 180n x y arctg α⑹m Rsinα'y ⑸p]K )cosα'[R(1x ⑷34560R l 240R l 2l ⑶m 2688R l 24R l ⑵p Rπ)l -90(2l ⑴α'Z 1Z 11111012 0200 0004 5 23003 40 200+=+===-+=+=?+=+=+-=+ -=- == 说明：当曲线为左转向时，K=1，为右转向时，K=-1， 公式中n 的取值如下： ?? ? ??=<?? ? ??=>>1n 0y 0x 1n 0y 0x 2n 0y 0x 0n 0y 0x 00000000 当只知道HZ 点的坐标时，则： l 为到点HZ 的长度 α为过点HZ 的切线方位角再加上180° K 值与知道ZH 点坐标时相反 x Z ，y Z 为点HZ 的坐标
公路测量卡西欧5800万能程序
一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号： K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下.
.
. 三、程序代码 .
. .
. .
道路坐标计算公式
曲线坐标计算 1、曲线要素计算 （1）缓和曲线常数计算 内移距R l 24/p 2 s = 切垂距 23 s 240/2/m R l l s -= 缓和曲线角R l R l s s πβ/902/0??== （2）曲线要素计算 切线长 m R T ++=2/tan )p (α 曲线长 ?+=?-+=180/]180/)2([20απβαπR l R l L s s 外矢距 R R E -+=)]2/cos(/)p [(0α 切曲差 L T q -=2 2、主要点的里程推算
s s s S l YH HZ )/22l -(L QZ YH )/22l -(L HY QZ l +=+=+=+=-=ZH HY T JD ZH 检核： HZ T JD =-+q 3、方位角计算 根据已知JD1和JD2的坐标计算出 21JD JD -α 偏角βαα±=--211JD JD JD ZH ?±-=-18011JD ZH ZH JD αα 4、计算直线中桩坐标 (1)计算ZH 点坐标： ZH JD JD ZH ZH JD JD ZH T y y T x x --?+=?+=1111sin cos αα (2)计算HZ 点坐标： 2 11211cos cos JD JD JD HZ JD JD JD HZ T y y T x x --?+=?+=αα (3)计算直线上任意点中桩坐标 待求点到JD1的距离为i L 2 112 11sin cos -JD JD i JD i JD JD i JD i i L y y L x x HZ T L --?+=?+=+=αα里程 待求点里程 5、计算缓和曲线中桩坐标 (1)第一缓和曲线上任意点中桩坐标 在切线坐标系中的坐标为： s i s i Rl l y Rl l l x 6/)(40/3 25=-= ZH 到所求点方位角：
[整理]9860G线元法隧道(坐标正反计算、高程)计算程序
CASIO 9860G SD线元法隧道三维（坐标正反计算、高程）计算程序 悬赏分：+62 作者：刘工 2010-4-3 1. A（此为主程序） Lbl 0：〝1.LC=>XY〝：〝2.XY=>LC〝：〝3.ZHZL=>GC〝：〝PB=>V=1,2,3〞？→V： If V=1：Then GOTO 1 ：IfEnd ：If V=2：Then GOTO 2 ：IfEnd ： If V=3：Then GOTO 3 ：Else GOTO 0 ：IfEnd：Lbl 3：〝ZH=H〝？→H ：〝SDZF=Z〝？→Z：Prog〝ZGCZCX〝：GOTO 0：Lbl 1 ：〝ZH=L〝？→L： If L>173000 And L<174661.96：Then GOTO 4 ：Else GOTO 0 ：IfEnd ： Lbl 4：L→L：〝SDZF=Q〝？→Q：〝XLZJ,-Z+Y=Q〝：Q+0.125→Q： Prog 〝ZBQXYS〝：〝JSJD=J〝：90→J▲Prog 〝ZSZB〝： 〝X=〝：X ▲ 〝Y=〝：Y▲〝FWJ=O〝：O▼DMS▲ L→H：Q-0.125→Z：Prog 〝ZGCZCX〝：GOTO 0： Lbl 2：〝XO=M〝?→M：〝YO=R〝?→R：173300→L： If M>3845505.273 And M<3846506.099 And R>499371.832 And R<500352.224 ：Then GOTO 5：Else GOTO 2： IfEnd ：Lbl 5：0→Q：0→J： Prog 〝ZBFS〝：〝LC=L〝：L ▲〝JL=Q〝：Q▲ 〝SDZJ，-Z+Y=Q〝：Q-0.125→Q ▲ L→H：Q→Z：Prog 〝ZGCZCX〝：GOTO 0 2.正算坐标ZBZS ( L-S ) / 4→H：90/π→F：HHF（1/T-1/I）/（K-S）→U：2HF/ I→D：C+4D+16 U→Ｏ： O+J→P ：C+ D+ U→E：C+2D+4U→W：C+3D+9U→G： A+AbsH/3*(cosC+4(cosG+cosE)+2cosW+cosO)+Qcos P→X ： B+AbsH/3*(sinC+4(sinG+sinE)+2sinW+sinO)+Qsin P→Y 3.反算坐标：ZBFS Lbl 0：Prog 〝ZBQXYS〝：Prog 〝ZBZS〝：O-90→Z：(R-Y)cosZ-(M-X) sinZ→P ：
《坐标方位角及距离计算小程序》代码——Access实现
公用模块： Option Explicit Public Const PI = 3.14159265358979 '已知A、B两点坐标计算方位角，JSFWJ的中文意思是计算方位角 Public Function JSFWJ(xa As Double, ya As Double, xb As Double, yb As Double) As Double '已知A、B两点坐标计算方位角函数过程Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSFWJ = 999999999# End If '计算方位角的值 If vx = 0 And vy > 0 Then '与y轴正半轴平行 JSFWJ = RadianToAngle(PI / 2#) ElseIf vx = 0 And vy < 0 Then '与y轴负半轴平行 JSFWJ = RadianToAngle(PI * 3# / 2#) ElseIf vy = 0 And vx > 0 Then '与x轴正半轴平行 JSFWJ = RadianToAngle(0) ElseIf vy = 0 And vx < 0 Then '与x轴负半轴平行 JSFWJ = RadianToAngle(PI) ElseIf vx > 0 And vy > 0 Then '第一象限 JSFWJ = RadianToAngle(Atn(vy / vx)) ElseIf vx < 0 And vy > 0 Then '第二象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx < 0 And vy < 0 Then '第三象限 JSFWJ = RadianToAngle(Atn(vy / vx) + PI) ElseIf vx > 0 And vy < 0 Then '第四象限 JSFWJ = RadianToAngle(Atn(vy / vx) + 2 * PI) End If End Function '已知A、B两点坐标计算距离，JSJLS的中文意思是计算距离S Public Function JSJLS(xa As Double, ya As Double, xb As Double, yb As Double) As Double Dim vx As Double, vy As Double vx = xb - xa: vy = yb - ya '如果A、B两点坐标相同，出现提示对话框 If vx = 0 And vy = 0 Then MsgBox "您选择的是同一个点！", vbOKOnly + vbExclamation, "提示信息" JSJLS = 99999999# End If '计算距离 JSJLS = Sqr(vx * vx + vy * vy) End Function '弧度化角度 Public Function RadianToAngle(ByVal alfa As Double) As Double Dim alfa1 As Double, alfa2 As Double alfa = alfa * 180# / PI
fx-5800p全线坐标正反算带高程计算程序(线元法)
曲线任意里程中边桩坐标正反算(CASIO fx-5800P计算器)程序 一、程序功能及原理 1.功能说明：本程序由一个主程序(TYQXJS)和五个子程——正算子程序(SUB-ZS)、反算子程序(SUB-FS)等构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。本修改版程序既可实现正算全线贯通，亦可实现反算全线贯通。本程序在CASIO fx-5800P计算器运行。 2．计算原理：利用Gauss-Legendre 5点通用公式正算线路中边桩坐标、线外测点至曲线元起点和终点的垂距的符号是否相异（即Dca×Dcb<0=>该测点在其线元内）进行判断并利用该线元要素反算中桩里程、支距，最后计算出放样数据。 二、源程序 1.主程序(TYQXJS)(A) Deg:fix 3 119→DimZ “INPUT(0) Or DATA(Else)”?I Lbl 0:“1.SZ=>XY,2.XY=>SZ，3.TF=>CK,4.SD=>FY，5.TW=>FY”?N If N=1 Or N=5:Then Goto 1 Else If N=2 Or N=3 Or N=4:Then Goto 2 Else Goto 3 IfEnd:IfEnd Lbl 1:“K(m)=”?S If S<0:Then Goto 0:IfEnd “JL(m)=”?Z If Z≠0:Then “ANGLE→R(Deg)=”?M:IfEnd If I=0:Then Prog “DAT1”:Else Prog “DAT2”:IfEnd S-O→W:If W<0:Then Goto 0:Else If W>H:Then Goto 0:IfEnd:IfEnd Prog “SUB-ZS”:Prog “SUB-GC” If Z<0:Then“XL(m)=”:X◢“YL(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else If Z>0:Then “XR(m)=”:X◢“YR(m)=”:Y◢ If N=5:Then Prog “SUB-TW”:IfEnd Else “X(m)=”:X◢“Y(m)=”:Y◢“Hs(m)=”:L◢“FWJ=”: F?DMS◢ IfEnd:IfEnd
道路施工测量公路边线桩点的坐标计算及放样方法
公路边线桩点的坐标计算及放样方法 中建四局一公司 （贵阳市云岩区松柏巷1号５5000３） 【摘要】本文主要讨论了在高等级公路施工放样过程中,公路边桩的坐标计算和放样方法。一、引言 公路施工放样测量是按照设计和施工要求将图纸上的路线设计方案放样到实地上去的一项工作，对新建的高等级公路而言，各方面的质量要求都很高,为确保路基在施工过程中路基宽度、坡比符合设计要求，笔者在此主要探讨了利用全站仪对公路边桩放样时的坐标计算方法 二、曲线上任一点的中桩坐标的计算 以直缓(ＴS）或缓直（ST）点为原点,以直缓点（或缓直点)的缓和曲线的切线为X轴,过直缓点（或缓直点)且垂直于X轴为Y轴,建立切线直角坐标系如图1，用切线支距法计算出曲线上每一点切线坐标。 １、曲线上任一点的中桩坐标的计算: 1.1、缓和曲线上任一点i的切线坐标计算: xｉ=l i - l５i/（４0R2ｌ02） 参考文献（1） ｙi=ｌ3ｉ/(6Rl０) 式中：x i、y i：缓和曲线上任一点的切线坐标。 l i :缓和曲线上任一点到直缓点(或缓直点)的距离。 l0：缓和曲线长度。 Ｒ:圆曲线半径。
1.２、带有缓和曲线的圆曲线上任一点的坐标计算 x ｉ=Ｒsin αi ＋ｍ y i ＝R(１-ｃos αi )＋P 式中：ｘｉ、y i ： 带有缓和曲的圆曲线上任一点的坐标。 m ：增加缓和曲线后,切线增值长度。 ｍ= l ０／2 - l 02/（24０Ｒ2) p ：增加缓和曲线后,圆曲线相对切线的内移量 p=ｌ02/（24R) αｉ: i 点至缓和曲线起点弧长所对应的圆心角 αi =l ｉ/R?18０°/π+β0 式中：ｌi :圆曲线上任一点到圆曲线起点的长度。 β0：缓和曲线角度。 β０= l 0/（2R)? 180°／π l o : 缓和曲线长度 １.3、利用坐标系变换，将切线直角坐标系变换为测量坐标系: 图1 １)、第一段缓和曲线上的点，即从TS 点SC 点之间: 参考文献（1）
测量坐标计算及高程计算
在测量岗位工作已经有三个月到时间了，三个月的时间学习和收获了许多，现对这三个月的工作学习做一下总结。 测量工作内容主要有以下两个方面：测量放线（坐标计算），高程控制。 一、测量放线 测量放线到主要技术包括坐标计算和仪器使用。坐标计算包括直线段坐标计算和曲线段坐标计算。 1、直线段坐标计算。直线坐标计算分为中桩坐标计算和边桩坐标计算。 1）中桩坐标计算。根据公式 ααsin ,cos d Y Y d X X +=+=起中起中 d — 所求点到起点距离； α— 该直线坐标方位角。在此顺带详细介绍一下坐标方位角到计算方法： （1）坐标方位角的计算 AB AB A B A B AB x y x x y y ??=--=arctan arctan α当 R y x R y x R y x R y x -360,0,0180,0,0-180,0,0;,0,0?=?+?=??>?αααα；； （2）坐标方位角的推算
， ， 218021*********βαβααβαβαα-?+=-=+?+=+=B B AB BA B 由此推出：βαα±?+=180后前（“左”→“+”， “右”→“-”），计算中，若α值大于360°，应减去360°；若小于0°，则加上360°。 2）边桩坐标计算 应用公式 )90sin(90cos(?±+=?±+=ααl y y l x x 中边中边）， 进行边桩坐标到计算。北客站为直线车站，坐标计算较简单，现以位于机场线第二段底板的变电所夹层东北角C 点为例进行计算： 以机场线右线为基准来计算中、边桩坐标。已知起点坐标A （22264.4009，11553.2031），终点坐标B （22180.2655，11279.0739），起点里程为YDK0+255.275,C 点里程为YDK0+286.075,偏距为15.33m ，则由以上公式计算C 点坐标： α=arctan(（11279.0739-11553.2031）/（22180.2655-22264.4009）)+180°=252.938°， =中x 22264.4009+（286.075-255.275）*cos252.938°=22255.3640 =中y 11553.2031+（286.075-255.275）*sin252.938°=11523.7586 =c x +15.33*cos （252.938°+90°）=22270.0193 = c y +15.33*sin （252.938°+90°）=11519.2606，则可求出C （22270.0193，11519.2606）。 2、曲线段坐标计算 1）不带缓和曲线的圆曲线中、边桩坐标计算 北 中 x 中 y
怎样计算高速公路路线坐标及高程
一个excle 模板的制作 在当今社会，excle的使用已经是越来越来频繁了，几乎涉及所有的行业，路桥施工也 不例外。我在某路桥公司曾经负责过某项目部的测量工作。大家都知道，测量最主要的就 是计算了，如坐标、高程、横坡度等。我现在给大家推荐一款我自己编制的关于测量计算 的excel模板。 首先我会跟大家介绍一下模板的作用，然后再一一讲解此模板的制作过程。 首先给大家看一下此模板的界面如下： 也许大家咋一看，切~ 这算啥，我也会做这张表格，实在是太简单了。不错，如果仅 仅是靠手动输入这样子的数字，也许只要懂一点点excle 的人都会制作出这张表格吧。不过，这张表格并不是你表面所看到的仅仅是几个数字而已，其内在的公式才是它的亮点。也许 这样讲大家还不是很清楚，我继续给大家截个图，看看它里面的公式是什么。 大家注意到上面的公式了吗，并不是仅仅是输入数字就完事的，它是一个自定义函数 zbx（），那么后面的都是一样吗？完全正确，后面的都是自定义函数，它们分别是zby（）、sqx（）、hpz（）、hpy（）。也许大家会问，恩，是不错，但是有什么用呢？那让我先给大家 简述一下这个自定义函数的用法。竟然是一个函数，那么它就必须要有一个自变量，这几个 函数的自变量又是什么呢？其实这个模板里面所有函数的自变量只有一个，就是桩号。什么 意思？就是只要你给出任意一个桩号，都能得到其对应的坐标、中桩高程和横坡度。假设我 们要K38+000~K38+200 段落内每隔20M 一个断面所有点的坐标、中桩高程、以及左右横坡。我就用这个模板给大家演示一下（此模板暂时数据只针对黄祁高速公路六标项目部）。 先在桩号那一列把K38+000~K38+200 输入进去，可不要真的把字母“K”和加号
部分道路坐标计算公式
如果桩号满足线性规律,我们来求桩号m+n (比如m=5,n=10,则:桩号005+010) 它的坐标应满足: (X+k*m,Y+k*n), 其中k为常数 当n=20,Y轴坐标为:Y+20k,而按所给条件,此坐标应为:Z 则:Y+20k=Z k=(Z-Y)/20 所以:桩号m+n 的坐标: (X+(Z-Y)*m/20, Y+(Z-Y)*n/20) 所以,0+010处的坐标:(X,(Z-Y)/2) 要是曲线关系,要看满足什么曲线关系,具体求解,方法与上面差不多 X0=X1+dcos（a） Y0=Y1+dsin（a） Z0=Z1+Dtan(B) 其中d为水平距离，D为倾斜距离，a为方位角，B为天顶距（视线与水平线的夹角，注意正切正负值） 圆曲线中边桩坐标计算公式： L=F-H； 注：L---所求点曲线长；F---所求点里程；H---圆曲线起点（ZY点桩号里程） X=XZY+2×R×SIN（L÷2R）×COS｛α±(L÷2R)｝+S×COS｛α±(L÷R)+M｝; Y =YZY+2×R×SIN（L÷2R）×SIN｛α±(L÷2R)｝+S×SIN｛α±(L÷R)+M｝. 注： α---线路方位角； M---所求边桩与路线的夹角； S---所求边桩至中桩的距离； "±"---曲线左偏取“-”右偏取“+”； 当S=0时为中桩坐标。
经高速公路施工一线使用效果很好。 记住在公式中加入Excel的Radians（）函数将度转为弧度即可轻松方便地使用， 从ZY点坐标准确快速推算地计算出整条圆曲线。 注意要分清左偏右偏两种情况。 第一条缓和曲线部分：X=L- L 5/（40×R2×L 02） Y=L3/(6×R×L 0) 这是以ZH点为坐标原点测设到YH点的计算公式 圆曲线部分X=R×sina+m Y=R×(1-cosa)+p a=( L i- L)×1800/(R×π)+β0 m = L 0/2- L 03/(240×R2) P= L 02/(24×R)- L 04/(2688×R3) δ0= L 0×1800/(6×R×π) β0= L 0×1800/(2×R×π) T=（R+P）×tg（a/2）+m L= R×（a-2β0）×π/1800+2L 0 切线角的计算β= L2×1800/（2×R×L0 ×π） 缓和切线角的弧度计算：β= L2/（2×R×L0） 圆曲线切线角的弧度计算：a=( L i- L 0) /R+ L 0/(2×R) 上式中：m表示切垂距。P表示圆曲线移动量。β0表示缓和曲线的切线角。δ0 为缓和曲线的总偏角。T表示切线长。L表示曲线长。β表示缓和曲线上的切线 角。a表示圆曲线的切线角。 第二条缓和曲线部分：X= L - L 5/（40×R2×L 02） Y=L3/(6×R×L 0) 第二条缓和曲线部分是以HZ点为坐标原点计算到YH点的计算公式。 坐标转化：X=XHZ-X cosa-Y sina Y= YHZ- X sina+ Y cosa XHZ=T×（1+ cosa） YHZ= T×sina Li 为曲线点i的曲线长，T为切线长，a为转向角 全站仪坐标放样的有关计算 发布时间：[返回] .................................................................................................................................................................
5800坐标高程计算程序
CASIO5800计算器 公路测量计算程序 程序设计:魏加训 2009.2.28
Casio 5800计算器数据库型万能坐标正反算计算程序 一、主程序：1XY Lbl 0:“1.ZS 2.FS”?→V↙ If V=1: Then “CZ X” ?H: “CZ Y” ?T:Goto 1: Else If V=2: Then Goto 2 :IfEnd: IfEnd ↙ Lbl 1: “K××+×××”?D:?Z: “RJ”?G↙ Prog “P.Z”↙(注:计算另一线路时修改替换此处和FS子程序中的P.Z为对应线路的数据库名称即可) Prog “ZS” ↙ If Z<0: Then Cls:“X（L）=”: “Y（L）=”: Locate 6，1，X : Locate 6，2，Y◢ Pol（X-H，Y-T）: Cls: “S（L）=”: Locate 6，1，I : "F（L）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z=0: Then Cls:“X（Z）=”: “Y（Z）=”: Locate 6，1，X : Locate 6，2，Y : “QXFWJ （Z）=”: 360Frac（（J+360）÷360▼DMS◢ Pol（X-H，Y-T）: Cls: “S（Z）=”: Locate 6，1，I : "F（Z）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ If Z >0: Then Cls:“X（R）=”: “Y（R）=”: Locate 6，1，X : Locate 6,2，Y◢ Pol（X-H，Y-T）: Cls: “S（R）=”: Locate 6，1，I : "F（R）="：360Frac（（J+360）÷360▼DMS◢ Goto 1:IfEnd↙ Lbl 2: 0→Z:0→G:”X” ?M:”Y” ?I:Prog “FS”: Cls:“K=”：“Z=”：Locate 4，1，D : Locate 4，2，Z◢ Goto 2↙ 二、正算子程序：ZS 5→N: U(E-1-R-1)÷Abs（K-F）→P: Abs（D-F）÷N→Q: 90Q÷π→S: (注:此处5→N是控制计算精度可修改的,一般取值为4～6即可) C+(NPQ+2UR-1)NS→J:1→L↙ A+Q÷6×(Cos (C)+Cos (J) +4∑（Cos (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Cos (C+((LPQ+2UR-1)LS,L,1,(N-1))）+ZCos（J+G) →X : B+Q÷6×(Sin(C)+Sin( J) +4∑（Sin (C+((L+0.5)PQ+2UR-1)×(L+0.5)S),L,0,(N-1)）+2∑（Sin (C+((LPQ+2UR-1)LS,L,1,(N-1))）+Z Sin（J+G)→Y ↙ 三、反算子程序：FS Lbl 0:Prog “P.Z”:Prog “ZS”↙ (注:计算另一线路时修改替换此处和1XY主程序中的P.Z为对应线路的数据库名称即可) (I-Y)sin(J)+(M-X) cos(J)→ P :D+P→ D ↙ If Abs(P)≥0.001:Then Goto 0 : Else Goto 1 : IfEnd↙ Lbl 1: (I-Y)cos(J)-(M-X) sin(J) →Z
坐标、高程计算公式
一个建筑设计师应知道的基本数据 一、普通住宅建筑混凝土用量和用钢量： 1、多层砌体住宅： 钢筋：30KG/m2 砼：0.3～0.33m3/m2 2、多层框架： 钢筋：38～42KG/m2 砼：0.33～0.35m3/m2 3、小高层11～12层： 钢筋：50～52KG/m2 砼：0.35m3/m2 4、高层17～18层： 钢筋：54～60KG/m2 砼：0.36m3/m2 5、高层30层H=94米：钢筋：65～75KG/m2 砼：0.42～0.47m3/m2 6、高层酒店式公寓28层H=90米： 钢筋：65～70KG/m2 砼：0.38～0.42m3/m2
7、别墅：混凝土用量和用钢量介于多层砌体住宅和高层11～12层之间； 以上数据按抗震7度区规则结构设计 二、普通多层住宅楼施工预算经济指标 1、室外门窗（不包括单元门、防盗门）面积占建筑面积0.20～0.24 2、模版面积占建筑面积2.2左右 3、室外抹灰面积占建筑面积0.4左右 4、室内抹灰面积占建筑面积3.8 三、施工功效 1、一个抹灰工一天抹灰在35平米 2、一个砖工一天砌红砖1000～1800块 3、一个砖工一天砌空心砖800～1000块 4、瓷砖15平米 5、刮大白第一遍300平米/天，第二遍180平米/天，第三遍压光90平米/天 四、基础数据 1、混凝土重量2500KG/m3 2、钢筋每延米重量0.00617×d×d 3、干砂子重量1500KG/m3，湿砂重量1700KG/m3 4、石子重量2200KG/m3 5、一立方米红砖525块左右（分墙厚） 6、一立方米空心砖175块左右 7、筛一方干净砂需1.3方普通砂 建筑程序歌 要想建设效果好，选择队伍要招标。
小白自学ExcelVBA道路坐标高程计算程序流程
小白自学ExcelVBA道路坐标高程计算程序流程 1声明 1.1 本人是个工作时间不长测量施工员。 1.2听说想轻松愉快的干好测量得学门编程，又听说ExcelVBA是个简单的可视化的常用的…… 1.3 本人很懒，面对厚厚的全是“昏天暗地”代码的ExcelVBA教科书籍，实在是没心没力。其实俺还是懂点儿VB编程的（学校学过“=”是赋值，if、while、end的意思，嘿嘿，还有画窗体图框，其他的就都还给老师了）。 1.4 谷歌、度娘，是咱的好帮手。 1.5 仰望的存在，神一般的存在，无私的化身！ 道路中边桩坐标计算程序120424.xls（王中伟”教授”QQ：595077） 曲线坐标计算程序VBA 4.6.xls（陈超”中铁”QQ：295188316） 陈师傅的VBA代码乍一看感觉比王老师的让人头痛，怎么说咱们也是个有理想有目标的人，要啃就啃硬骨头！就选~~~嘿嘿~~~王老师的程序吧！ 1.6 道路中边桩坐标计算程序120424.xls代码获取。 王老师、陈师傅担心不懂编程的人，不小心修改代码导致程序错误，设置了vba密码（个人认为），其次我跟他们不熟，没有正大光明的要的密码，于是求助谷歌度娘，这个关于VBA 密码破解，于是很不厚道的得到了密码，为了方便本次学习，又很不厚道的把道路中边桩坐标计算程序120424.xls的密码贴出来（df750726），神人勿怪呀！ 2 代码理解ing… 我们通过密码打开vba代码窗口，大家可以先把每个表格打开浏览一下代码，是不是感觉很短呀，感觉应该是超级链接的意思，嘿嘿，主要的代码在模块“lx”里，打开下，代码多吧，这就是咱们要肯的骨头。现在咱们冲呀！
5800计算器公路坐标计算程序(全线)直缓和圆曲线程序
5800计算器公路坐标计算程序(全线) 原４８５０程序改编 Lb1 1 ”K”?K:”W”?W:”O”?O:”I”?I IF K<41490.879:Then 40776.825→A: 41490.879→ B: 3761346.715→ M: 505279.147→N：166°45′36.3″→F： 1/1045→D：1/1045→E ：Goto 0 :Return:Ifend IF K<41690.879:Then 41490.879→A: 41690.879→ B: 3760651.641→ M: 505442.686→N：166°45′36.3″→F： 1/1045→D：1/1000→E ：Goto 0 :Return:Ifend IF K<42242.154:Then 41690.879→A: 42242.154→ B: 3760455.626→ M: 505481.961→N：172°29′22.78″→F： 1000→ R：Goto 2: Return:Ifend IF K<42442.154:Then 42242.154→A: 42442.154→ B: 3759916.982→ M: 505403.549→N：204°04′31.62″→F： 1/1000→D： 1/1045→E： Goto 0 : Return:Ifend IF K<42673.884:Then 42442.154→A: 42673.884→ B: 3759740.299→ M: 505310.019→N ：209°48′18.1″→F： 1/1045→D： =1/1045→E ：Goto 0 : Return:Ifend IF K<42863.884:Then 42673.884→A: 42863.884→ B:3759539.223→ M:505194.838→N：209°48′18.1″→F：-1/1045→D:-1/800→E：Goto 0 : Return:Ifend IF K<43636.692:Then 42863.884→A: 43636.692→ B:3759370.853→ M:505107.051→N：203°00′04.15″→F：R=-800：Goto2 : Return:Ifend IF K<43826.692:Then 43636.692→A: 43826.692→ B:3758630.216→ M: 505167.591→N：147°39′10.35″→F： -1/800→D：E=-1/1045→E :Goto 0 : Return:Ifend IF K<44825.092:Then 43826.692→A: 44825.092→ B:3758478.338→ M: 505281.555→N：140°50′56.4″→F：-1/1045→D：-1/1045→E: Goto 0 : Return:Ifend IF K<45025.092:Then 44825.092→A: 45025.092→ B:3757704.093→ M: 505911.911→N：140°50′56.4″→F： 1/1045→D：1/1000→E：Goto 0 : Return:Ifend IF K<45300.109:Then 45025.092→A: 45300.109→ B:3757544.945→ M: 506032.892→N：146°34′42.88″→F：R=1000：Goto 2 : Return:Ifend IF K<45500.109:Then 45300.109→A: 45500.109→ B:3757297.588→ M: 506151.102→N：162°20′09.32″→F： 1/1000→D： 1/1045→E ：Goto 0 : Return:Ifend IF K<45805.835:Then 45500.109→A: 45805.835→ B:3757103.485→ M: 506198.937→N：168°03′55.8″→F： 1/1045→D：1/1045→E： Goto 0 : Return:Ifend IF K<45980.835:Then 45805.835→A: 45980.835→ B:3756804.367→ M: 506262.160→N：168°03′55.8″→F： -1/1045→D： -1/1000→E：Goto 0 : Return:Ifend IF K<46136.333:Then 45980.835→A: 46136.333→ B:3756634.336→ M: 506303.312→N：163°03′07.63″→F：R=-1000：Goto 2 : Return:Ifend Lb1 0 (E-D)÷(Abs(B-A)) →P： Abs(K-A) →Q： F+(PQ+2D)Q×90÷∏→J F+(PQ÷4+2D)Q×45÷(2∏) →G F+(3PQ÷4+2D)Q×135÷(2∏) →H F+(PQ÷2+2D)Q×45÷∏→S：
道路中边桩坐标计算
道路中边桩坐标计算 道路工程放样的主要工作包括：线路中线放样、路基施工放样、路面施工测量等内容。而线路线路中线是由直线与曲线组成的，直线的测设相对容易，故曲线测设是工程建筑物放样的重要组成部分之一。就线路而言，由于受地形、地物及社会经济发展的要求限制，线路总是不断从一个方向转到另一个方向。这时，为了使车辆平稳、安全地运行，必须使用曲线连接。这种在平面内连接不同线路方向的曲线，称为平面曲线，简称平曲线。 平面曲线按其半径的不同分为圆曲线和缓和曲线。圆曲线上任意一点的曲率半径处处相等。缓和曲线是在直线与圆曲线，圆曲线与圆曲线之前设置的曲率半径连续渐变的一段过渡曲线；缓和曲线上任意一点曲率半径处处在变化。当缓和曲线作为直线与圆曲线之间的介曲线时，其半径变化范围自无穷大至圆曲线半径R，若用以连接半径为R1和R2的圆曲线时，缓和曲线的半径便自R1向R2过渡。 按曲线的连接方式不同，可分为： a、单圆曲线，亦称为单曲线，即具有单一半径的曲线 b、复曲线，由两个或两个以上的单曲线连接而成的曲线 c、反向曲线，由两个不同方向的曲线连接而成的曲线 d、回头曲线，由于山区线路工程展现需要，其转向角接近或超过180度的曲线 e、螺旋线，线路转向角达360度曲线 f、竖曲线，连接不同坡度的曲线，竖曲线有凹形和凸形两种，顶点在曲线之上的为凸形竖曲线，反之为凹形竖曲线。
平面曲线放样数据计算基本公式 缓和曲线基本公式 1、缓和曲线具有的特征是曲线上任意点的曲率半径与该点至起 点的曲线长成反比。如图所示，设缓和曲线上任一点P 的半径为ρ， 该点至起点的曲线长为l ，则回旋线的基本公式为： h L R l A l A l C ?=?===ρρ22 （2-1） 式中，2A 为常数，ρ为缓和曲线参数，表示缓和曲线半径的变化率。 图 带缓和曲线的圆曲线 2、切线角公式，如图所示，可知切线角公式为：
[整理]fx-5800P坐标高程计算程序交点法.
CASIO fx-5800P单交点通用型曲线坐标高程计算程序 一、说明： 本程序采用交点法计算道路基本型曲线坐标及高程，在建立好数据库后，能连续计算全线各桩号的中边桩坐标及高程。本程序共包括一个主程序和九个子程序，其中有坐标计算、高程计算、坡口坡脚线放样，锥坡放样坐标计算等子程序。 二、内容： 1．PM5-3 XYZJS（主程序） “SINGLE BASIC TYPE CURVE”◢ “METHOD OF COORDINATE PM5-3”◢ Deg:ClrStat:FreqOn:Fix 3 40→DimZ “INPUT(0) Or DATA(Else)”?N “FUNCTION”?P Prog “SUB5-35” If Z[30]<0:Then -1→Z[20]:Else 1→Z[20]:IfEnd Abs(Z[30])→D Pol(Z[26]-Z[28],Z[27]-Z[29]):Cls If J<0: Then J+360→Z[11]:Else J→Z[11]:IfEnd 计算ZH→JD方位角 Z[11]+Z[30]+180→Z[16] 计算HZ→JD方位角 If Z[16]>360:Then Z[16]-360→Z[12]:Else Z[16]→Z[12]:IfEnd If Z[12]>180:Then Z[12]-180→Z[23]:Else Z[12]+180→Z[23]:IfEnd计算JD→HZ方位角 S2÷（24R）-S4÷(2688R3)→Z[1] 计算第一缓和曲线内移值 0.5S-S3÷(240R2)+S5÷(34560R4)→Z[2] 计算第一缓和曲线切线增长值 T2÷(24R)-T4÷(2688R3)→Z[3] 计算第二缓和曲线内移值 0.5T-T3÷(240R2)+T5÷(34560R4)→Z[4] 计算第二缓和曲线切线增长值 (R+Z[3])÷sin(D)-(R+Z[1])÷tan(D)+Z[2]→Z[5] 计算第一切线长 (R+Z[1])÷sin(D)-(R+Z[3])÷tan(D)+Z[4]→Z[6] 计算第二切线长 90S÷(πR)→Z[7]:90T÷(πR)→Z[8] 计算第一、二缓和曲线偏角πR(D-Z[7]-Z[8])÷180→Z[9] 计算圆曲线长度 S+T+Z[9]→Z[10] 计算曲线总长度 Z[25]-Z[5]→List X[1] 计算直缓点桩号 1→K:Prog “SUB5-37” List X[1]+S→List X[2]:List X[2]+Z[9]→List X[3] 计算缓圆点、圆缓点桩号 Z[26]-Z[5]cos(Z[11])→List Y[1]:Z[27]-Z[5]sin(Z[11])→List Freq[1] If S≠0:Then“ZH PEG(m)=”:List X[1]◢显示直缓点桩号 Else “ZY PEG(m)=”:List X[1]◢显示直圆点桩号 IfEnd “X(m)=”:List Y[1]◢显示直缓(圆)点X坐标 “Y(m)=”:List Freq[1]◢显示直缓(圆)点Y坐标