4800,4850编写程序详解

2020/8/27
16
N：E：F：W A<0=>S=－1:≠>S=1△ U=F+A÷2+90S H=G+R
B=N+HcosU
O=E+HsinU
J=100000
Lbl 1 ﹛K﹜ K≦Z[1]=>L=T+Z[1]-K H=F+180
U=F
2020/8/27
17
Goto 2△ K≦Z[2]=>L=K-Z[1] X=L-L5÷40(RC)2+L9÷3456(RC)4-L13÷599040(RC)6 Y=L3÷6RC-L7÷336(RC)3+L11÷42240(RC)5-
代表的意思是X0=赋于计算器里面的M的存 储器内，“=”这样编辑，M所赋于就为常 量，就为M为起点的坐标，相对应，N就 为Y坐标，F为起点位置的方位角，O为起 点的桩号。
2020/8/27
3
第2步
LBI0:{K,J} :D=K-O
LBI在4800，4850计算器中是一个标识符命令。 K,J这样编辑是变量赋予，K是直线范围内的任意
L15÷9676800(RC)7 H=√(X2+Y2) Q=Stan-1(Y÷X)
P=F+180
Q=F+Q U=F+180SL2÷(2∏RC) Goto 4△ K≦Z[4]=>L=F+A÷2+180+90S+(K-Z[3])×180S÷R÷∏
U=L+90S
2020/8/27
18
Goto 5△ K≦Z[5]=>L= Z[5]-K X=L-L5÷40(RC)2+L9÷3456(RC)4-L13÷599040(RC)6 Y=L3÷6RC-L7÷336(RC)3+L11÷42240(RC)5-
第2步： LBI0:{K} 同上直线
2020/8/27
8
第3步： D=ABS(K-O):任意点至起点的弧长。 A=180D/R∏: 这段弧长的角度。 H=√（（RsinA)2(R(1-cosA)) 2）： 任意点至起点的直线长度。
I=tg-1((R(1-cosA))/(RsinA)): 任意点至起点直线的偏角。
C8÷154828800÷R7 Q=C÷2-C3÷240÷R2+C5÷34560÷R4-C7÷8386560÷R6 B=90C÷R÷∏ T=（R+P）tan（AbsA÷2）+Q◢ G“E”=（R+P）÷cos（A÷2）-R◢ L=（AbsA-2B）R∏÷180+2C◢ Z[1]=D-T◢ Z[2]=Z[1]+C◢ Z[3]=Z[1]+L÷2◢ Z[4]=Z[1]+L-C◢ Z[5]=Z[1]+L◢
2020/8/27
图12-6 某水利工程高程施工控制网
10
第三节 缓和曲线程序
缓和曲线测量多用于在道路测量里面，经 多年的实践经验，自己的总结，编出适 应于完整缓和曲线和不完整缓和曲线上
★
，并用于道路的实际放线工作中，现在 将缓和曲线中缓和段的计算程序给大家 做讲解，希望大家在以后的工作中能够 用上。
14
综合上述关于直线，圆曲线，缓和曲线缓和段程序 的介绍，道路测量就是这三种线型的组合，计算 方法就是这些。希望做的同事在回去工作中多看 关于这方面的书籍，了解其原理，能够自己写出 更多更好实用性更强的程序。
2020/8/27
15
道路测量直线，缓和曲线。圆曲线综合程序
路线程序（LX） D“JD”：A：﹛R﹜：C“LS” P=C2÷24÷R-C4÷2688÷R3+C6÷506880÷R5-
点桩号，J为距左右边桩的距离，左-，右+， D=K-O，是指直线范围内的任意点桩号-直线 起点桩号，D就是两桩号之差，就是距离
2020/8/27
4
第3步 X=M+D* COS F▲
Y=N+D* SIN F▲
X-K点桩号的X坐标百度文库Y -K点桩号的X坐标，即所 求点的XY坐标，D同第2步一样，
2020/8/27
经多年的实践经验，自己的总结，编程出了一个 通过偏角法进行计算坐标的程序，适用于各种圆 曲线，包括匝道的卵形曲线中的圆曲线，希望大 家在以后的工作中能够用上。
2020/8/27
7
第1步： M “X0=”:N”Y0=”:R”R=“: F”F=”: 0”0=”:Z”Z=” 同直线赋予值一样，只介绍 R—半径，Z—转 角，左-右+
4800，4850编写程序详解
2020/8/27
编写人：xxx
1
计算器编写程序
我们前面所学直线，曲线，缓和曲线 内容做了充分的了解和掌握，现在把关 于直线，曲线，缓和曲线计算坐标的计 算器编程给大家介绍下，如下
2020/8/27
2
第一节、直线程序
第1步： M “X0=”:N”Y0=”:F”F=”:0”0=”
2020/8/27
13
第4步： X=M+Hcos(F+ZI) ▲ 所求任意点X坐标。 Y=N+Hsin(F+ZI) ▲ 所求任意点Y坐标。 第5步： J”J=” 距中桩距离。左-，右+。 X=X+Jcos(V+90) ▲ Y=Y+Jsin(V+90) ▲ 边桩X,Y坐标结果。 Goto 1 同上
2020/8/27
5
第4步
X=X+J*cos(F+90) ▲ Y=Y+J*sin(F+90) ▲
所求的XY坐标就是左右边桩的坐标，90度为 正交。
第5步 Goto 0 Goto为无条件转移命令， Goto 0即为无条件转移到
标识符为0的程序运行段落中来
2020/8/27
6
第二节 圆曲线程序
圆曲线程序： 由于圆曲线用的在道路测量里面用的很多，
V=F+ZA： 圆曲线上任意点切线方位角
2020/8/27
9
第4步： X=M+Hcos(F+ZI) ▲ 所求任意点X坐标 Y=N+Hsin(F+ZI) ▲ 所求任意点Y坐标 第5步： J”J=” 距中桩距离。左-，右+。
X=X+Jcos(V+90) ▲
Y=Y+Jsin(V+90) ▲ 边桩X,Y坐标结果。 Goto 0 同上
2020/8/27
11
第1步： M “X0=”:N”Y0=”:R”R=“: F”F=”: S”LS=”：
0”0=”:Z”Z=” 同圆曲线赋予值一样，只介绍 S-缓和曲线
长 第2步：
LBI0:{K} :D=ABS(K-O): 同上圆曲线
2020/8/27
12
第3步： H=√（（D-D5/40R2S2)2+(D3/6RS)2): 任意点至起点的直线长度。 I=tg-1（（D3/6RS）/（D-D5/40R2S2）） 任意点至起点直线的偏角。 U=180D2/2∏RS:测量点位置的切线 V=F+ZU▲ 切线方位角