&>&&>&&>&&>&道路直线缓和曲线圆曲线坐标计算EXCEL程序
道路直线缓和曲线圆曲线坐标计算EXCEL程序
上传大小：98KB
直线__缓和曲线_圆曲线坐标计算EXCEL程序
超级实用 输入主要元素既可以计算
综合评分：3.8（13位用户评分）
所需积分：1
下载次数：170
审核通过送C币
创建者：baiyuzhong2012
创建者：baiyuzhong2012
创建者：baiyuzhong2012
课程推荐相关知识库
上传者其他资源上传者专辑
行业热门标签
VIP会员动态
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
android服务器底层网络模块的设计方法
所需积分：0
剩余积分：720
您当前C币：0
可兑换下载积分：0
兑换下载分：
兑换失败，您当前C币不够，请先充值C币
消耗C币：0
你当前的下载分为234。
道路直线缓和曲线圆曲线坐标计算EXCEL程序
会员到期时间：
剩余下载次数：
你还不是VIP会员
开通VIP会员权限，免积分下载
你下载资源过于频繁，请输入验证码
您因违反CSDN下载频道规则而被锁定帐户，如有疑问，请联络:!
若举报审核通过，可奖励20下载分
被举报人：
举报的资源分：
请选择类型
资源无法下载
资源无法使用
标题与实际内容不符
含有危害国家安全内容
含有反动色情等内容
含广告内容
版权问题，侵犯个人或公司的版权
*详细原因：前面的LB10是放样的程序中后视点和置镜点已知数；评：+10；35楼：'刚刚09-3-2610:18回；大哥能帮我该下输入垂直角标高等能算XYZ的多谢；评：+10；36楼：'刚刚；座标正算(输平距)5800；DXA‖?A:DYA‖?B；LbI0:Cls:DJULI&?E:&；cos(F)×E+A→C；sin(F)×E+B→D:Cls
前面的LB1 0是放样的程序中后视点和置镜点已知数据的输入，在你这段线路中，置镜点XZJ和YZJ不可能为0的，最后显示中XI/YI为中桩坐标，XP、YP为边桩坐标，本人350的坐标为14.1454
35 楼：'刚刚 09-3-26 10:18 回 分
座标正算(输平距)5800 DXA‖?A:DYA‖?B LbI 0:Cls:DJULI&?E:&FWJ&?F cos(F)×E+A→C sin(F)×E+B→D:Cls &XB=&:C &YB=&:D Goto 0
大哥能帮我该下
输入垂直角标高等能算XYZ的
36 楼：'刚刚
座标正算(输平距)5800
DXA‖?A:DYA‖?B
LbI 0:Cls:DJULI&?E:&FWJ&?F
cos(F)×E+A→C
sin(F)×E+B→D:Cls
大哥能帮我该下
输入垂直角标高等能算XYZ的
37 楼：'防撞护栏 09-3-26 15:17 回
09-3-26 10:20 回 分
楼主你好：我按你说的检查了好几遍且XZJ和YZJ都输了JD2的坐标干嘛算出来的XI,YI和原来的一样？究竟是哪里出错了我真的搞不明白希望你在百忙中给我指点以下，我的邮箱
38 楼：'-3-26 15:29 回
请问各位仁兄，DMS符号怎么找不到啊？能告诉我一下吗？
39 楼：彭赐明 楼主
JD2的HY点117.85坐标为69.7215
QZ点201.549坐标24.5217
YH点285.249坐标21.3509
JD 2计算明显不对，原因在
2 中 09-3-26 18:23 回
Abs(F-E)→A
曲线偏角计算考虑不周，修改如下，在LB1
2中删除Abs(F-E)→A ，在数据输入中直接将偏角赋值给A
40 楼：彭赐明 楼主
09-3-26 20:59 回
线路末尾直线段的输入改为IF K& AND
K≥801.348:THEN 1→O:→Z[3]::→Z[16]:→Z[17]:303-48-18→E:GOTO 4:IFEND 41 楼：z_b-3-27 16:25 回 评：+10
各位老师请帮我看看,这是我们标段的曲线要素,我按要求输了,可是计算出来的设计坐标对不上,
你们帮我看看谢谢我用的是在JD20范围内的里程坐标 :
JD19,K95+156.266,转角:5-24-48.9,右转.半径:6000,切线长:283.666/283.666,
曲线长:566.910.外距:6.702,X=,Y=
JD20,K97+883.200,转角:51-47-55.6,左转.半径:1230,缓和曲线长:260/220,切线长:727.475/708.832,
曲线长:.外距:139.515,X=,Y=
JD21,K98+798.543,转角:7-44-29.2,右转.半径:2450,缓和曲线长:250,切线长:290.828/290.828,
曲线长:581.029.外距:6.667,X=,Y=
以上是曲线要素:
下面我给上几组在JD20范围内的设计坐标:
K97+240,X=,Y=4
K97+380,X=,Y=2
K98+400,X=,Y=6
然后我在给上两个导线点坐标
GY053,X=0,Y=0
NJ-6, X=9,Y=4
老师们帮我试试看
我算出来的坐标跟设计坐标对不上的,谢谢了 1
42 楼：彭赐明 楼主
又来一位,不知道37楼那位问题解决没有，
41楼看你方位角输入对不对，这个程序我昨天做了一点完善，你再核对一下是否输入有09-3-27 18:58 回
43 楼：'qingkong-27 21:13 回 评：+10
各位兄弟：在输入楼主程序之前请仔细核对数据，对楼主提到的说明和注意事项要详细阅读，对自己所做的工程要有充分的了解，然后再用最少12个小时的时间熟悉程序，编写数据库的时候再做一次复核，好了，可以使用了。谢谢楼主共享，向楼主的奉献精神致敬！
44 楼：z_b
我是41楼的那个
方位角有E,F,小里程向交点是E,大里程向交点F, 也就是说 从JD19到JD20的方位角是E,从JD20到JD21的方位角为F,是不是啊,那个偏角是不是转向角啊?
45 楼：'了
请问一下这个程序能计算不对称曲线的吗？
46 楼：'afei 09-3-28 10:44 回 评：+10
09-3-28 7:44 回
09-3-28 9:7 回 评：+6 分
彭工，能不能把你最新修改完善的程序发布一个出来。谢了
47 楼：'防撞护 09-3-28 11:42 回
彭工，我按你的要求修改后350X=
Y= 但980的X=
Y=和设计相差0.001mm就是350坐标和设计相差太多，是不是IFK还要多分段呀？
48 楼：彭赐明 楼主
09-3-28 12:55 回
这个程序应该不能计算匝道（我没有试过，但含有不完全缓和曲线的肯定不能算，圆曲线有几个半径的复曲线应该不能使用，回头曲线和虚交点曲线基本没戏），我在上面已经进行了最终修改，就是在LB1
1里数据输入时加了一个
曲线偏角（就是转向角）→A（不管左偏右偏一律输入正值），在LB1
2里删除了Abs(F-E)→A，另外直线段的输入是针对单独一条直线的，因为在每一条IF ……IFEND中都含有本交点中ZH点前一段直线和本段曲线的算法。
每一个交点对应一条IF ……IFEND语句。
本程序经我仔细核对，没有任何的输入错误，只要不输错已知数据和算法公式就可以用了
有时间我再加入反算程序，看看速度如何再说
5800编程其实很简单，起码我认为比4850功能强大就是速度太慢，多看说明书，能读懂别人的程序就能为己用
49 楼：中专毕业 09-3-28 12:57 回
J&0=&J+360→J:&FH=&:J→DMS请问下楼主为什么运行到DMS的时候就错误不转换成度分秒？
还有运行到子程序结束的时候 到RETURNL 这里也提示错误我就整明白。
还有楼主程序运行正确
50 楼：中专毕业 09-3-28 13:16 回
在给有问题的同行们提点意见，比如：Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^
在5800程序里面的显示是这样的
Z[6]÷2- Z[6]^（3）÷（240*R^2)+Z[6]^（5）÷（34560*R^（4)）→Z[8]
我开始的时候都没看说明书也没注意后来才发现多平方和Sin Cos后面的括号很重要。所以有的时候在计算错误的情况下大家都回一位是曲线要数出现问题。其实程序本身也很重要。
K&本曲线缓直点桩号
K≥上个曲线缓直点桩号 ：THEN
本曲线缓直点桩号→Z[1] : 上个曲线缓直点桩号→Z[2] ：1→O （注：左偏曲线输入-1→O,右偏曲线输入1→O）: 偏角（就是本交点的转角，因为大家的平时叫法不同）→A：半径→R : 第一缓和曲线长度→Z[6] : 第二缓和曲线长度→Z[7] : 交点 X→B :交点 Y→C : 小里程向交点方位角（我输入的是本交点的方位角）→E : 交点向大里程方位角（我输入的是下个交点的方位角)→F : GOTO
2 : IFENDL
不知道这两理解这两个方位角是不是正确，但是我计算出来的结果是正确的。希望对大家有帮助。
还有楼主我是49的我说的错误的问题要怎么解决啊。我不明白程序语言求助啊 51 楼：彭赐明 楼主
09-3-28 14:29 回
→DMS输入为FUNCTION键加5键加4键可以找到,
RETURN为Return,FUNCTION键加3键下翻到最后可以找到
你的方位角输入是对的！
括号很重要，必须扩全，只有在语句末尾才能省略一个
52 楼：'娄 09-3-28 22:28 回
我试过了，很好呀。谢谢了。要是把反算加入更好了。
53 楼：'娄
你有隧道超欠挖的程序吗？给发个吗？谢谢
54 楼：彭军 09-3-29 0:27 回
09-3-28 22:29 回
彭老师你好，按照你的指导，该程序我已经可以成功利用，谢谢！只是有一点，第二缓和曲线计算始终不正确，不知道是什么原因！公式输入没有问题！举例说明：JDX,JDY,PJ46'12'02.1',PJ转向左,半径110,缓和曲线长35，计算方位角小里程264‘31?51.2‘，大里程218'19'49.1',QDK0+000,ZHK0+022.971,HYK0+057.971,QZK0+084.821,YHK0+111.670,HZK0+146.670
输入是FK&146.670AND K≥0.000:THEN146.670→Z[1]:0.000→Z[2]:-1→O:46'12'02.1'→A：110→R:35→Z[6]:35→Z[7]:→B:→C:264‘31?51.2‘→E:218'19'49.1'→F:GOTO2:IFEND无论用那段曲线算都是第二缓和曲线计算不正确！复核用的设计坐标：K0+020 X:Y:,K0+040 X:Y:,K0+060 X:Y: K0+100 X:Y:,K0+120 X:Y:麻烦你了
55 楼：z_b
我今天将整条线路输进去了
在计算最开始一段也就是直线段,还可以,有时就差1到2个毫米,但在计算非对称的时候就会有出入,而且越来越大,到最后都能差到小数点前4位数上~
请老师帮我分析下,我就是41楼和44楼的那个学生
56 楼：中专毕业 09-3-29 8:32 回
09-3-29 8:6 回
楼主我在转换度分秒的时候就提示我语法错误。我把显示度分秒的DMS去掉就可以运行程序是不是我设置上有什么不对？
57 楼：中专毕业 09-3-29 9:2 回
RETURN 提示我语法错误 我核对了输入没问题 还有在计算缓和曲线的时候运行到PROGDTYZBCX‖ ：GOTO
包含各类专业文献、生活休闲娱乐、中学教育、高等教育、专业论文、外语学习资料、幼儿教育、小学教育、行业资料、应用写作文书、各类资格考试、文学作品欣赏、915800中边桩坐标计算程序等内容。
5800道路中边桩坐标计算程序5800道路中边桩坐标计算程序隐藏&& 中铁二十五局集团 修改(一) 道路中边桩 5800 计算器程序中铁二十五局集团二 0 一 0 年九月 第... CASIO5800计算器中边桩坐... 2页 4下载券 5800计算器全线坐标计算... 3页...“TYZBCX” :GOTO 1 L 子程序: “TYZBCX” L(统一坐标计算) IF I&0 ... 5800 中边桩坐标计算程序 ZZZZZZ(主程序)Lb1 1:”NO.I”?H:Prog”Z1”换行(E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I 换行 C+ (I+2D) ×Q×90... 50全​线​中​边​桩​坐​标​计​算​程​序 暂无评价|0人阅读|0次下载|举报文档坐标正算 fx-58000 程序 源程序 1... 50中​边​桩​坐​标​计​算​程​序​,​第​一​个​程​序​可​以​计​算​任​何​线​形... 5800 中边桩坐标计算程序(含数据库) 由
程序直接引用改编 ZZZZZZ(主程序) Lb1 1:”NO.I”?H:Prog”Z1”换行 (E-D)/Abs(G-F)→P: Abs(H-... FX-5800P 中边桩坐标计算程序 已经改写) 中边桩坐标计算程序(已经改写 已经改写) 35→DIMZ Fix 4 LBI 0 “K[JD]=”?B:“X[JD]=”?C:“Y[JD]=”?... 5800 中边桩坐标计算程序 ZZZZZZ(主程序) Lb1 1:”NO.I”?H:Prog”Z1”换行 (E-D)/Abs(G-F)→P: Abs(H-F)→Q: PQ→I 换行 C+(I+2D)×Q×90... 计算机程序 0 计算器普通线路全线坐标中边桩计算程序 彭赐明 “XLZBJSCX”
CLS : FIX 4 : 12→DIM Z L LB1 1 L “K=”?K (计算里程...&>&&>&卡西欧5800的公路测量程序
卡西欧5800的公路测量程序 投稿：万拋拌
卡西欧5800的公路测量程序【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】L1: &O.→B:&O.5-B→C:1→U:U=1:Then Prog 子程序1：【ZS-FD】L1: Ø…
年大学生元旦晚会的策划方案一、活动基本信息时间:日 晚上16:30---21:30地点:管理学院404教室主题:“狂欢元旦,喜迎新年”主办单位:工商0801班协办单位:管理学院目的:为欢庆2012年元旦为为广大同学提供一个平台，表…
学习十八大，做好文明寝室创建工作日，中国共产党第十八次代表大会就要在北京隆重召开，中国共产党是人民的领导核心，中国共产党是带领全国人民从一个胜利走向另一个胜利的掌舵人，只有中国共产党才能带领中国人民建设繁荣昌盛富强的新中国。“科学发…
卡西欧5800的公路测量程序
【分段线路坐标正反算程序】
主 程 序：【XLZB-FD】
L1: &O.→B:&O.5-B→C:1→U:
U=1:Then Prog
子程序1：【ZS-FD】
L1: &O→Z:9&O→V↙
L2: Lbl &O:
L3: Fix 3:
L5: Norm:Goto &O↙
子程序2：【FS-FD】
L1: Lbl 2:{VW}:
L2: Lbl 3:Prog
Abs(I)<1m:Then Fix 3:
L3: Norm:Else Goto 3:IfEnd↙
子程序3：【ZZ-FD】
[2]→Z[5]↙
L2: For 1→I to 5:A+MrZ[I](1÷P+OMZ[I])→Z[I]:Next:Z[3]→F↙
L3: X+M(Bcos(Z[1])+Ccos(Z[2])+Ccos(Z[4])+Bcos(Z[5]))→S↙
L4: Y+M(Bsin(Z[1])+Csin(Z[2])+Csin(Z[4])+Bsin(Z[5]))→T↙
子程序4：【DATA-FD】
L1: &O→U:If K<(线路起点里程):Then
里程):Then
L2: (线元起点里程)→Q:If K≤L+Q:Then (线元起点半径)→P:(线元终点半径)→R:(线元起点X坐标)→X:(线元起点Y坐标)→Y:(线元起点方位角)→A:Goto
E:IfEnd:L+Q→L↙
L3: (重复L2）
L4: Lbl E↙
输入说明： L2开始每行程序为一个线元参数要素，有几个线元就输入几行。
直线半径按输入。
功能常数可能位置会不同，请仔细查询；
位于<Function－1－▽▽▽▽－1；
位于；位于键；
************************************************************************
*******************************
【完整线路坐标正反算程序】
主 程 序：【XLFY-ALL】
L1: 5→DimZ:1→Z:
子程序1：【ZS-ALL】
L01: Z→&O:V→9&O↙
L02: Lbl &O:
L03: Fix 3:
L05: Norm:Goto &O↙
子程序2：【FS-ALL】
L01: Lbl 8:
L02: Lbl 9:Prog
Abs(I)<1m:Then Fix 3:
L03: Norm:Else Goto 9:IfEnd↙
L04: 1→Z:
子程序3：【ZZ-ALL】
L02: L²÷24÷R-L^4÷2688÷R^3→P:L÷2-L^3÷24&O÷R²→Q↙ L03: M²÷24÷R-M^4÷2688÷R^3→U:M÷2-M^3÷24&O÷R²→O↙
(R+U-(R+P)cos(Abs(B)))÷sin(Abs(B))+Q→T:(R+P-(R+U)cos(Abs(B)))÷sin(Abs
(B))+O→S:J-T+1m→D↙
L05: If K≤D:Then Goto 1:IfEnd:If K≤D+L:Then K-D→C:L→U:Goto 2:IfEnd:If K≤D+L+G:Then 1→C:Goto 3:IfEnd:If K≤D+M+L+G:Then K-D-M-L-G→C:M→U:Goto
2:IfEnd:If K>D+M+L+G:Then K-D-L-M-G→C:Goto 5:IfEnd↙
1:E+(J-K)cos(A+18&O)→X:N+(J-K)sin(A+18&O)→Y:A→F:Goto E↙
2:C-C^5÷(4&OR²U²)+C^9÷()→H:C^3÷(6RU)-C^7÷(336R^3U^3)+C^11÷(4224&OR^5U^5)→I:If C=K-D:Then Goto 4:IfEnd:Goto
L08: Lbl 3:9&O(2K-2D-L)÷π÷R→U:Rsin(U)+Q→H:R(1-cos(U))+P→I↙
L09: Lbl 4:If B<&O:Then
-I→I:IfEnd:E+Tcos(A+18&O)+Hcos(A)+Icos(A+9&O)→X:N+Tsin(A+1
8&O)+Hsin(A)+Isin(A+9&O)→Y:Goto 7↙
L10: Lbl 5:A+B→F:E+(C+S)cos(F)→X:N+(C+S)sin(F)→Y:Goto E↙
L11: Lbl 6:If B>&O:Then
-I→I:IfEnd:E+(S+H)cos(A+B)+Icos(A+B+9&O)→X:N+(S+H)sin(A+B)+Isin(
A+B+9&O)→Y↙
L12: Lbl 7:R→U:If B<&O:Then -R→U:IfEnd:If C=K-D:Then
A+9&OC²÷(πUL)→F:IfEnd:If C=K-D-L-M-G:Then
A+B-9&OC²÷(πUM)→F:IfEnd:If C=1:Then
A+18&O(K-D-L÷2)÷π÷U→F:IfEnd↙
L13: Lbl E↙
子程序4：【DATA-ALL】
L1: &O→Z[1]:If K<(线路起点里程):Then
路终点里程):Then
L2：If K≤(起点或上一段曲线缓直点里程):Then (交点里程)→J:(交点X坐标)→E:(交点Y坐标)→N:(半径)→R:(第一缓和曲线长度)→L:(第二缓和曲线长
度)→M: (偏角)→B:(起始边方位角)→A:Goto E:IfEnd ↙
L3：（重复L2）
简要说明：每行程序为一个曲线的参数要素，有几个曲线就输入几行。
************************************************************************
*******************************
【中桩标高计算程序】
主 程 序：【H-SJ】
L1: Lbl &O:
L2: Abs(R(G-F))÷200→T↙
L3: If K≤N-T:Then O-0.01F(N-K)→S:Goto 1:IfEnd↙
L4: If K≤N:Then O-0.01F(N-K)-(T+K-N)^2÷R÷2→S:Goto 1:IfEnd↙ L5: If K≤N+T:Then O-0.01G(N-K)-(T+N-K)^2÷R÷2→S:Goto 1:IfEnd↙
L6: If K>N+T:Then O-0.01G(N-K)→S:IfEnd↙
L7: Lbl 1:Fix 3:
子程序4：【DATA-SJ】
L1: &O→Z:If K<(线路起点里程):Then
里程):Then
L2：If K≤(起点或上一段竖曲线终止里程):Then (变坡点里程)→N:(变坡点高程)→O:(竖曲线半径)→R:(前纵坡值)→F:(后纵坡值)→G:Goto
L3：(重复L2)
************************************************************************
*******************************
【坡脚宽度计算程序】
程序名：【PJD】
L1: 25→L:2.5→G:1.5→T:8→N:0.9→A:0.9→B:1.10→C:1.5→D:
L2: Lbl 1:
L3: If S-M≥0:Then L+HD→K:Goto 2:IfEnd↙
L4: If H≤N:Then L+G+HA→K:Goto 2:IfEnd↙
L5: If H≤2N:Then L+G+NA+T+(H-N)B→K:Goto 2:IfEnd↙
L6: If H>2N:Then L+G+NA+T+NB+T+(H-2N)C→K:Goto 2:IfEnd↙
L7: Lbl 2:Fix 3:
L8: Norm:Goto 1↙
************************************************************************
*******************************
【坐标反算程序】
程序名：【XY-DF】
&O→I:&O→J:
:If J<&O:Then J+36&O→J:IfEnd↙
L2: Fix 5:
L3: Fix 3:
L4: Norm↙
************************************************************************
*******************************
【坐标正算程序】
程序名：【DF-XY】
L2: Fix 3:
L4: Norm↙
************************************************************************
*******************************
【面积计算程序】
程序名：【AREA】
L1: Lbl &O:
L2: Lbl 1:
L3: X→M:Y→N:Goto 1↙
************************************************************************
*******************************
【两直线交点计算程序】
程序名：【JD】
L2: C-A→N:D-B→O:G-E→P:H-F→Q:QN-OP→K:NB-OA→U:PF-QE→V↙
L3: Fix 3:
L5: Norm↙
************************************************************************
*******************************
【点到直线距离计算程序】
程序名：【PLDIST】
L2: Pol((G-E),(H-F)):J-90→J↙
L3: A+10cos(J)→C:B+10sin(J)→D↙
L4: C-A→N:D-B→O:G-E→P:H-F→Q:QN-OP→K:NB-OA→U:PF-QE→V↙
L5: (PU-NV)÷K→X:(QU-OV)÷K→Y:Pol((X-A),(Y-B))↙
L6: Fix 3:
L7: Norm↙
CASIO 5800计算器测量计算程序
14:51:21 来自: ritsing(祥瑞之士)
简要介绍：
1. 新版程序把线元法和交点法已经集成在一个模块中了，用户只需修改JD程序和ZA程序中的数据部分即可,其余不需作任何的改动。
2. 因为每条路高程计算不尽相同，且比较复杂，现在可利用PC机EXCEL计算好打印成表格带到工地上使用，所以本版程序未对线路高程序进行专门的编程计算，而是利用统计计算模式中来输入桩号（第一列X）及左、右高程（第二、三列Y，Freq），这种输入数据的方式最为直观，易发现错误，也易修改，输入完毕后运行S程序对数据按桩号进行排序，在程序中通过调用GG程序来进行内插计算，SG=-1得左标高，SG=1得右标高（若SG输入0,则可进行一般的线性内插计算）。
3. 在JD程序和XY程序中，先将一个计算单元的数据置入矩阵F中（1行8列或1行9列），这样程序可读性极好。
4． 相比原CASIO4850程序操作习惯，作了一点小小的改动，测站坐标存在Z[10]，N中，X坐标原存在M中容易被误操作修改，而设计标高存在M中，这样易于修改，因为CASIO5800没有IN，OUT功能，很不方便。
4. 程序利用Z[2]变量值来判断是采用交点法还是线元法模型计算，Z[2]＝0为线元法，否则为交点法。
一、PQX程序：计算中边桩坐标及近似的桩号反算，在运行模式直接调用。
① Z[10]→S:”XO”?S:S→Z[10]:”YO”?N:Prog “AU”
② Lbl 2:?L:Prog “Z”:Prog “E”:1n→O:90→S
③ Lbl 4:”JJ”?S:”YC”?O:SO=0 =>Goto 2,,原来lbl 后没有标号４的。
④ O=-1 =>Goto 6
⑤ “X,Y”:R+OCos(Z+S)→X▲U+OSin(Z+S)→Y▲Prog “D”:Goto 4
⑥ Lbl 6:Z[7]→X:Z[8]→Y:”XF”?X:”YF”?Y:XY=0 =>Goto 4
X→Z[7]:Y→Z[8]:Pol(X-R,Y-U+1p):Z+S-J→J:”YC,DL,L”:ICos(J)→O▲ISin(J)→I▲L+I▲Goto 6
二、P程序：在程序中提供一个自由运算的模式。
①Lbl 1:”TMP”?I:If I≠0:Then “RST”:I▲Goto 1:IfEnd
二、LYC程序：进行桩号反算及边坡放样，在运行模式直接调用。
①Prog “AU”
②Lbl 1:Z[7]→X: Z[8]→Y: Z[6]→S: ”XF”?X :X→Z[7]:”YF”?Y:Y→Z[8]: ”ZF”?S: S→Z[6]
③Lbl 2:Prog “Z”:Y=U =>Y+1p→Y
④Pol(X-R,Y-U):J-Z→J:Isin(J)→O:Icos(J)→I
⑤If Abs(I)≤0.1:Then Prog “E”:”L,YC”:L+I→L▲O▲Goto 3:IfEnd
⑥If Z[9]≠0:Then Pol(Z[9]-SO,I):πJZ[9]÷180→I:IfEnd
⑦”DL”:I▲L+I→L:Goto 2
⑧Lbl 3: Z[6]→S:If S=0:Then Goto 1:IfEnd
⑨ Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then X→Z:IfEnd:Z→M:IfEnd
⑾If Z=0:Then Z[11]→C:Z[12]→D: Z[13]→E:
Z[14]→F:”LA”?C:C→Z[11]: ”HA”?D:D→Z[12]: ”LB”?E:E→Z[13]: ”HB”?F:F→Z[14]:D+(E-C)-1(F-D)(L-C)→Z:Z→M:IfEnd
⑿Lbl 5:”SG”:Z:”TW”:Z-S→C▲:Z[3]→P:
Z[4]→Q: :Z[5]→T:”YC0”?P:P→Z[3]: :”HC0”?Q:Q→Z[4] :”M”?T:T→Z[5]:O÷Abs(O)→I:”BL”:I(P+TC(C+Q)÷Abs(C))→U▲”DB”:IU-IO→J▲
Ans→I:Prog “P”:Goto 1
四、I程序：通过手工方式输要素
①Z[2]=0 =>Goto 2
Z[1]→R:Z[2]→U:”JL”?K:”JX”?G:”JY”?H:”JA”?V:”JJ”?W:”R”?A:”LS”?B:”L1”?R:”L2”?U:R→Z[1]:
U→Z[2]:ReTurn
③Lbl 2:”L0”?K:”X0”?G:”Y0”?H:”A0”?V”:”L1”?F:”L-0 Z=-1 Y=1”?W:W=0 =>ReTurn
④”R0”?A:”R1”?B
五、D程序：根据测站点的坐标及放样点的坐标计算水平距离及方位角
①Y=N =>Y+1n→Y
②Pol(X-Z[10],Y-N):JJ+360→J
③”A,D”:J→DMS▲I▲
六、E程序：桩号出界判断
①Z[2]=0 =>Goto 2
②If L>Z[2]: Then “>L2”:L▲IfEnd
③If L<Z[1]: Then “<L1”:L▲IfEnd
⑤Lbl 2:If L<K:Then “<L0”:L-K▲IfEnd
⑥If L>F:Then “>L1”:L-F▲IfEnd
七、GG程序：用统计数据中桩号，左右高程数据进行内插计算。
①FreqOff : n→C:FreqOn:If L<minX: Then “L<minX”:1→I:Goto 8:IfEnd
②If L>maxX: Then “L>maxX”:C-1→I:Goto 8:IfEnd
③For 1→I To C-1
④If L≤List X[I+1]: Then Break:IfEnd:Next
⑤Lbl 8 : (L-List X)÷(List X[I+1]- List X)→J : List Y+J(List Y[I+1]-List Y)→X : List Freq +J(List Freq [I+1]-List Freq )→Y
八、S程序:对统计数据列表中数据按桩号进行排序。
①FreqOff : n→C:FreqOn“WAIT…n=”:Locate 10,1,C
②If C<2 Then Return:IfEnd
③For 1→D To C: D→I:
④For D+1→E To C:
⑤If List X[E]<List X:Then E→I:IfEnd:Next
⑥If I≠D: Then List X[D]→F:List X→List X[D]:F→List X: List Y[D]→F:List Y→List Y[D]:F→List Y: List Freq[D]→F:List Freq→List Freq [D]:F→List Freq :IfEnd:Next
⑦Locate 1,2,”minX:”Locate 6,2,minX
⑧Locate 1,3,”minX:”Locate 6,3,maxX
九、X程序:计算缓和曲线坐标增量xx,yy
①AB→U:U÷O→Z[9]:0.5O2÷U→R:O-0.1OR2→I:6-1OR(2-7-1R2)→J:Rr→R
十、JS程序:内插计算的接口程序，在运行模式直接调用。
①Prog “S”
②Lbl 1:”L=”?L:L=0 =>Return
③Prog “GG”:”X,Y”:X▲Y▲Goto 1
十一、GZW程序：构造物坐标放样计算，在运行模式直接调用。
①Z[10]→S:”XO”?S:S→Z[10]:”YO”?N：0→T
②Lbl 1;”X0”?R:”Y0”?U:”A0”?Z:IF Z=-1 :Then “A0,DD”:J→Z▲I▲IfEnd
③If Z=0:Then R→X:U→Y:Prog “D”:Goto 1:IfEnd
'在④后增加一句，解决了程序再次运行时，交角的初值被置为测站点的Ｘ坐标的BUG.
④O-Z→S:”J0”?S:Z+S→O:”0-XX,YY→X,Y”:”1-X,Y→XX,YY”?T:If T≠0: Then Goto 3:IfEnd
⑤Lbl 2:”XX”?P:”YY”?Q:If PQ=0:Then Goto 1:IfEnd
⑥”X,Y”:R+Pcos(Z)+Qcos(O)→X▲U+Psin(Z)+Qsin(O)→Y▲Prog “D”:Goto 2
⑦Lbl 3:”XF”?X:”YF”?Y:If XY=0: Then Goto 1:IfEnd
⑧”XX,YY”:((X-R)sin(O)-(Y-U)cos(O))÷sin(S)→P▲((Y-U)cos(Z)-(X-R)sin(Z))÷sin(S)→Q▲
十二、Y程序：线元法计算匝道坐标
①L-K→C:If L>F:Then F-K→C:IfEnd
②If W=0 or C<0:Then G+Ccos(V)→R:H+Csin(V)→U:0→Z[9]:Goto 8:IfEnd
③W÷Abs(W)→W:If A=B:Then 0→B:IfEnd
④If B=0:Then (A-1C)r→C:Asin(C)→I:A(1-cos(C))→J:A→Z[9]:Goto 7:IfEnd
⑤A-B→S:B(F-K)÷Abs(S)→R:AR→U:S÷Abs(S)→S:0.5R2÷U→D:R+SC→T:
0.5T2÷U→E:U÷T→Z[9]:T(1-0.1E2+E22÷216-E^(6)÷9360)-R(1-0.1D2+D22÷216-D^(6)÷9360)→I:
⑦3-1(TE(1-E2÷14+E22÷440-E^(6) ÷25200)-RD(1-D2÷14+D22÷440-D^(6)
÷25200))→J:Pol(1n+Abs(I),Abs(J):Rec(I,Abs(J-Dr):Abs(E-D)r→C
⑧Lbl 7:G+Icos(V)-WJsin(V)→R:H+Isin(V)+WJcos(V) →U:V+WC→Z
⑨Lbl 8:If L>F:Then R+Rec(L-F,Z) →R:U+J→U:0→Z[9]:IfEnd
十三、Z程序：交点法计算中桩坐标
①If Z[2]=0:Then Prog “Y”:Return:IfEnd
②B2÷A÷24→P:0.1B(5-P÷A) →Q:Q+(A+P)tan(0.5Abs(W)) →T:K-T→C:C+B→D:D+πAAbs(W) ÷180→F:F-B→E
③W÷Abs(W)→S:0→Z[9]:If L≤C:Then L-K→O:V→Z:Goto 2:IfEnd
④If L≥F:Then L-F+T→O:V+W→Z:Goto 2:IfEnd
⑤If L≥E:Then
F-L→O:Prog ”X”:V+W→O:O-SR→Z:G+(T-I)cos(O)-SJsin(O)→R:H+(T-I)sin(O)+Sjcos(O) →U:Goto 3:IfEnd
⑥If L>D:Then ((L-D+0.5B)÷A)r→O:Q+Asin(O)→I:P+A(1-cos(O)) →J:A→Z[9]:V+SO→Z:Goto 4:IfEnd
⑦L-C→O:Prog “X”:V+SR→Z
⑧Lbl 4:G+(I-T)cos(V)-Sjsin(V)→R:H+(I-T)sin(V)+Sjcos(V)→U:Goto 3
⑨Lbl 2:G+Ocos(Z)→R:H+Osin(Z)→U
十四、AU程序: 注：L0-输测段桩号近似值，”AU”子程序根据桩号近似值自动调用曲线要素（包括线元法和交点法要素），Z[2]=0则调用线元法数据，否则为交点法数据
（L0=0-默认为原曲线要素 L0=-1-手工输入曲线要素）
①Cls:” L0= 0-Conti.”:” L0=-1-Input”:If Z[2]=0:Then Locate 13,2,”(XY)”:Else Locate
13,2,”(JD)”:IfEnd
②Z[2]→S:”0－XY E.－JD”?S:S→Z[2]:”L0”?L:If L=0:Then ReTurn:IfEnd
③If L=-1:Then Prog “I”:ReTurn:IfEnd
④If Z[2]=0:Then Prog “ZA”:Else Prog “JD”:IfEnd
⑤Mat F[1,1]→K: Mat F[1,2]→G: Mat F[1,3]→H: Mat F[1,4]→V: Mat F[1,5]→W: Mat F[1,6]→A: Mat F[1,7]→B: If Z[2]=0:Then Mat F[1,8]→F:Else Mat F[1,8]→Z[11]: Mat F[1,9]→Z[12]:IfEnd
十五、JD程序：交点法矩阵每一行数据依次为交点桩号，交点X坐标,交点Y坐标,起始边方位角，偏角，圆曲线半径,缓和曲线长度,计算单元起点，计算单元终点
①If L＜24900: Then “L＜minX”:L▲Stop:IfEnd
②If L＞30801.27: Then “L＞maxX”:L▲Stop:IfEnd
③IF L≤:Then [[,
,,6°24°59.6°,-70°50°10.6°,770,300.007,.359]]→Mat F:Return:IfEnd
④IF L≤:Then [[,
,,295°34°49.°,-15°31°18.5°,,318.276]]→Mat F: Return:IfEnd
⑤IF L≤:Then [[,
,,280°03°30.5°,41°45°02.1°,780,206.532,522.182]]→Mat F: Return:IfEnd
⑥IF L≤:Then [[,
341,321°48°32.6°,-22°33°08.8°,,246.112]]→Mat F: Return:IfEnd
⑦IF L≤30801.27:Then [[,
995,299°15°23.8°,49°29°52.7°,720,160.598,801.27]]→Mat F: Return:IfEnd
十六、ZA程序
注2：线元法矩阵每一行数据依次为起点桩号，起点X坐标，起点Y坐标，起点方位角，左右
转标志，起点曲率半径，终点曲率半径，终点桩号
①If L＜0: Then “L＜minX”:L▲Stop:IfEnd
②If L＞1479.85: Then “L＞maxX”:L▲Stop:IfEnd
③If L＞1000: Then Goto 2:IfEnd
④If L＞553.49: Then “L＞maxX”:L▲Stop:IfEnd
⑤IF L≤82.699:Then [[0,,,290°03°00°,-1,9.5,82.699]]→Mat F:Return:IfEnd
⑥IF L≤111.519:Then
[[82.699,,,286°54°40°,-1,T,111.519]]→Mat F:Return:IfEnd
⑦IF L≤155.022:Then
[[111.519,,,286°21°51°,-1,1T,]]→Mat F:Return:IfEnd
⑧IF L≤269.54:Then
[[155.022,,,285°07°04°,-1,9.54]]→Mat F:Return:IfEnd
⑨IF L≤359.475:Then
[[269.54,,,278°33°23°,-1,9.475]]→Mat F:Return:IfEnd
⑩IF L≤434.421:Then
[[359.475,,,275°58°48°,1,1T,]]→Mat F:Return:IfEnd
⑾IF L≤463.597:Then
[[434.421,,,277°46°09°,1,3.597]]→Mat F:Return:IfEnd
⑿IF L≤501.14:Then [[463.597,,,279°09°44°,1,1.14]]→Mat F:Return:IfEnd
⒀IF L≤553.488:Then [[501.14,,,280°03°31°,0,1T,1T,553.488]]→Mat F:Return:IfEnd
⒁Lbl 2:IF L≤:Then
[[.323,,102°55°07°,0,1T,1T,]]→Mat F:Return:IfEnd
⒂IF L≤:Then
[[919.325,°55°07°,-1,1T,6]]→Mat F:Return:IfEnd
⒃IF L≤:Then
[[909.471,,102°03°28°,-1,61.836]]→Mat
F:Return:IfEnd
⒄IF L≤:Then
[[900.408,,100°16°11°,-1,83.436]]→Mat F:Return:IfEnd
⒅IF L≤1307.44:Then [[896.66,,99°51°26°,-1,1T,700,1307.44]]→Mat F:Return:IfEnd
⒆IF L≤:Then
[[892.686,,98°52°30°,-1,700,700,]]→Mat F:Return:IfEnd
⒇IF L≤1363.61:Then
[[887.767,,95°42°03°,-1,700,1T,1363.61]]→Mat F:Return:IfEnd
(21)IF L≤:Then
[[886.183,,94°59°20°,1,1T,500,]]→Mat F:Return:IfEnd
(22)IF L≤:Then
[[883.869,,96°23°02°,1,500,500,]]→Mat F:Return:IfEnd
(23)IF L≤:Then
[[872.845,,103°39°03°,1,500,7.462]]→Mat
F:Return:IfEnd
(24)IF L≤:Then
[[866.175,,105°38°50°,1,0.5,]]→Mat
F:Return:IfEnd
卡西欧5800测量实用程序(含直线圆曲线大地转施工程序)
发布日期：
卡西欧5800测量实用程序(含直线圆曲线大地转施工程序)
时间： 21:44:01
来源：测量专家
作者：hifimusic
个人小程序 如有不明白 联系QQ：
直线计算程序
0→I:0→J:”X0”?D:”Y0”?E:”X1”?B:”Y1”?C:Pol(B-D,C-E):J→A:If A<0:
Then A+360→A:Else A→A:IfEnd:Lbl 0:?O:?S:If O≠0:Then Goto 1:IfEnd:
D+Scos(A) →X:”X=”:X ◢
E+Ssin(A) →Y:”Y=”:Y ◢
Goto 0:Lbl 1:D+Scos(A)+Ocos(A+90) →X:”X=”:X ◢
E+Ssin(A)+Osin(A+90) →Y:”Y=”:Y ◢
输入程序时注意区别字母 O 与数字 0
程序运行时符号说明
X0? Y0? 分别输入直线起点的 XY 坐标值
X1? Y1? 分别输入直线终点的 XY 坐标值
O? 输入边桩与中桩的距离 ( 左边桩为负值 , 右边桩为正值 ), 如计算中桩坐标输入 0
S? 输入所求点到直线起点的距离
圆曲线计算程序
0→I:0→J: ”X0”?C:”Y0”?D:”X1”?E:”Y1”?F:?R:”L:-1 R:1”?N:”ZY”?W:Lbl 0:”LN”?T:
T-W→O:Pol(E-C,F-D):I→S:J→A: If A<0:Then A+360→A:Else A→A:IfEnd:
sin-1(S÷(2R)) →K:2∏RK÷180→L:180O÷(2∏R) →G:(2R)sin(G) →H:C+Hcos(A-KN+GN) →X:”X=”:X ◢
D+Hsin(A-KN+GN) →Y:”Y=”:Y ◢
R-0.5√(4R2-H2) →Q:”Q=”:Q ◢
“S=”?V:If V=0:Then Goto 0:IfEnd:”L:-90 R:90”?U:X+Vcos(A-KN+2GN+U) →X:”X=”:X ◢
Y+Vsin(A-KN+2GN+U) →Y:”Y=”:Y ◢
输入程序时注意区别字母 O 与数字 0
程序运行时符号说明
X0? Y0? 分别输入直线起点的 XY 坐标值
X1? Y1? 分别输入直线终点的 XY 坐标值
R? 输入圆曲线半径
L:-1 R:1? 圆曲线向左转弯时输入 -1, 向右转弯时输入 1
ZY? 输入起点桩号
LN? 输入所求点桩号 ( 按下 exe 键后显示中桩坐标 )
S? 输入所要求的边桩与中桩的距离
L:-90 R:90 要求左边边桩输入 -90, 右边边桩输入 90( 按下 exe 键后显示边桩坐标 )
二、程序清单
程序名 ：大地转施工
“QK=” ？ Z:“QX=” ？ A:“QY=”?B:“ZX=” ？ O :“ZY=” ？ Q ↙
Pol( O -A,Q-B) ↙
JJ+360→J ↙
J>360=>J-360→J ↙
J→F:“JF=” ： F ◆ DMS ◢
？ X:?Y ↙
Pol （ X-A,Y-B):I→D ↙
JJ+360→J ↙
J>360=>J-360→J ↙
J-F→T:T→G ↙
TT+360→G ↙
T>360=>T-360→G ↙
Z+Dcos （ G)→K:“K=” ： K ◢
Dsin （ G)→C:“C=” ： C ◢
三、程序使用说明：
QK-- 输入线路起始点里程
QX-- 输入线路起始点中桩 X 坐标
QY-- 输入线路起始点中桩 Y 坐标
ZX-- 输入线路前进方向中桩 X 坐标
ZY-- 输入线路前进方向中桩 Y 坐标
JF=-- 显示线路测量坐标方位角
X-- 输入线路附近任意点测量 X 坐标
Y-- 输入线路附近任意点测量 Y 坐标
K-- 显示计算结果：里程桩号，即工程 X 坐标
C-- 显示计算结果：左右偏距，即工程 Y 坐标 , 中桩 =0 ，左偏 = 负值，右偏 = 正值。
卡西欧5800隧道测量程序
[ 标签：卡西欧,隧道,测量 ]
哪位大哥有隧道开挖测量需要的程序啊（超欠挖，后方交会 ，放养程序 之类的） 发给我下 谢谢啦
匿名 回答:1 人气:1 解决时间: 10:17
好评率：83%
坐标、桩号换算
4:”1.SZ=>NE”:”2.NE=>SZ”:?Q:Prog “文件名―3”
:Q=1=>Goto 1:Q=2=>Goto 2
1:?S:?Z:Prog “文件名―1”:”N”:N◢
“E=”:E◢
“F=”:FΔDMS◢
2:”N=”:?B:”E=”:?C:B→N:C→E:Prog” 文件名―2”:”S=”:S◢ “Z=”：Z◢
Prog “文件名―3”:0.5(1÷R-1÷P) ÷L→D:S-O→X
U+∫(cos(A+(X÷P+DX2)×180÷∏),O,X)→N
V+∫(sin(A+(X÷P+ DX2)×180÷∏),O,X)→E
A+(X÷P+ DX2) ×180÷∏→F
N+Zcos(F+90) →N:E+Zsin(F+90) →E
1:0→Z:1→Q:Prog “文件名―3”:Prog “文件名―1”
Pol(N-B+10＾(-46),E-C+10＾(-46):Isin(F-90-J) →W:S+W→S
Abs(W)>0.001=>Goto 1
2:0→Z:Prog “文件名―1”:(C-E) ÷sin(F+90) →Z
If S≧QD 桩 号And S< ZY点桩号：Then Goto 0：IfEnd
If S≧ZY点桩号And S< YZ点桩号：Then Goto 1：IfEnd
If S≧YZ点桩号And S< ZD 桩 号 ：Then Goto 2：IfEnd
If S≧ZD 桩 号 And S< ZD延长桩号：Then Goto 3：IfEnd
LbI 0：QD 桩 号→O：QD横坐标→U：QD纵坐标→V：QD段直线方位角→A：→P：
ZY至QD距离→L：→R：Return
LbI 1：ZY点桩号→O：ZY横坐标→U：ZY纵坐标→V：上段直线方位角→A：半径→P：
参数中L值→L：半径→R：Return
LbI 2：YZ点桩号→O：YZ横坐标→U：YZ纵坐标→V：下段直线方位角→A：→P：
YZ至ZD距离→L：→R：Return LbI 3：ZD桩号→O：ZD横坐标→U：ZD纵坐标→V：对应直线方位角→A：
ZD至延长位置距离→L：→R：Return
注：圆曲线交点在路线左边R为正，在路线右边R为负。直线半径为无穷大
方位角―距离
“X1”？A ：“Y1”？B
Pol（C-A，D-B）：Cls
J＜0=>J+360→J
“A”:JΔDMS◢
? K : Lbl 0 : ? N : ? E
A+(N-K)cos(J) – Esin(J) →X:X→X◢
B+(N-K)sin(J) + Ecos(J) →Y:Y→Y◢
注：K为所输坐标（X1,Y1）对应的桩号
N为所求坐标的桩号
E为所求坐标的偏距
0:?X:?Y:?A:?R:?Q:?Z:(Z-Q) ÷R×180÷∏→J:2Rsin(0.5j) →T:A+J→W◢
X+Tcos(A+0.5J) →M◢
Y+Tsin(A+0.5J) →N◢
?S:M+cos(W+90) →B◢
N+Ssin(W+90) →C◢
纵断面设计高程
0:?K:If K≧起点桩号 And K≦ZY点桩号：Then Goto 1：IfEnd If K≧ZY点桩号 And K≦YZ点桩号：Then Goto 2：IfEnd
If K≧YZ桩号 And K≦ZD点桩号：Then Goto 3：IfEnd
Lbl 1:QD高程→V：QD桩号→Q:QD~ZY坡度→W:半径→R：Goto X
Lbl 2:ZY点高程→V：ZY点桩号→Q: QD~ZY坡度→W:半径→R：Goto X Lbl 3:YZ点高程→V：YZ点桩号→Q:YZ~ZD坡度→W:半径→R：Goto X Lbl X:V+(K-Q)W+(K-Q)2÷(2×R) →Y◢
注：圆曲线交点在路线上方R为负，在路线下方R为正。直线半径为无穷大（1×10^45）
卡西欧5800的公路测量程序【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】L1: &O.→B:&O.5-B→C:1→U:U=1:Then Prog 子程序1：【ZS-FD】L1: Ø…
卡西欧5800的公路测量程序【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】L1: &O.→B:&O.5-B→C:1→U:U=1:Then Prog 子程序1：【ZS-FD】L1: Ø…
卡西欧5800的公路测量程序【分段线路坐标正反算程序】 主 程 序：【XLZB-FD】L1: &O.→B:&O.5-B→C:1→U:U=1:Then Prog 子程序1：【ZS-FD】L1: Ø…
本文由()首发，转载请保留网址和出处！
免费下载文档：
