Casio5800交点法与线元法(积木法)匝道坐标正反算放样程序
Casio5800交点法与线元法（积木法）匝道坐标正反算放样程序
（XUFENG 2011.2.14）
本人一直以来想找一个交点法与线元法相结合的坐标正反算程序，在网上找了很久很久，没能找到一个较为满意的，有幸在测量空间看到大歪哥的《Casio5800交点法程序》与《线元法（积木法）匝道坐标正反算放样程序》，根据歪哥意见“需要的自行修改结合XY框架自己修改为数据库反算程序等”，本人不才，采用最笨的办法将两个程序综合了一下，使之能既能进行交点法正反算，又能进行线元法正反算。在此特别感谢大歪哥！
将程序发上来，愿与大家一同交流学习欢迎大家吐口水，只要能进步就行！
程序由一个主程序ZBZFS和8个子程序（JS、XY-A、XY-B、JDYS、1、2、3、4）构成，运行时只需运行主程序即可！
本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标正反算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并能对单一线元进行坐标正反算。
1主程序名：ZBZFS（功能：进入计算主程序）
65→Dimz↙
Deg:Fix 3↙
＂1.JD ZFS 2. ZHADAO ZFS＂? I: I→Z[61]: ＂1.ZHONG SHU JS 2. JS＂? I↙
If I=1: Then Goto1: Else Goto2:IfEnd↙
LbI 1 :If Z[61]=1: Then Prog＂JDYS＂:Else Cls:＂K0＂?A:＂KN＂?L :＂X0＂?U :＂Y0＂?V :＂F0＂?W :＂R0＂?P :＂RN＂?Q:＂ZX:-1,+1,0＂?G:IfEnd↙
LbI 2 :Prog＂JS＂
2子程序名：JS（功能：选择正算或反算模式）
Cls:＂XC＂?H:＂YC＂?Z↙
Cls:＂1.ZS 2.FS＂? I: I=2=>Goto 3↙
LbI 1 : Cls: If Z[61]=1: Then＂JD ZS KX+XXX＂?K :Prog＂4＂: Else ＂ZHADAO ZS KX+XXX＂?K :IfEnd↙
LbI 2: Cls:90→B: Cls:＂RJ Or 0 To K＂?B:B=0 =>Goto 1:＂Z＂?T↙
Prog＂XY-A＂↙
X+Tcos(M+B)→X↙
Y+Tsin(M+B)→Y↙
360Frac((M+360)÷360→M↙
Pol(X-H,Y-Z : 360Frac((J+360)÷360→J↙
2→O: Prog＂XY-B＂:Goto 2↙
LbI 3 : Cls: If Z[61]=1: Then＂JD FS KN+＂?K:＂X＂?C:＂Y＂?D:Prog＂4＂:Else Cls: ＂ZHADAO FS＂:＂X＂?C:＂Y＂?D:IfEnd↙
LbI 4 :Prog＂XY-A＂↙
(D-Y)sin(M)+(C-X)cos(M)→H↙
If Abs(H)＞X10-3 :Then K+H→K:Goto 4:IfEnd↙
(D-Y)÷cos(M)→T↙
3→O: Prog＂XY-B＂:Goto 3↙
3子程序名：XY-A（功能：坐标计算程序）
5→N: G(Q-1-P-1)÷Abs（L-A）→F: Abs（K-A）÷N→R: 90R÷π→S:
W+(FNR+2GP-1)NS→M:1→E↙
U+R÷6×(Cos (W)+Cos (M) +4∑（Cos (W+((E+0.5)FR+2GP-1)×(E+0.5)S),E,0,(N-1)）+2∑（Cos (W+((EFR+2GP-1)ES,E,1,(N-1))）→X ↙
V+R÷6×(sin (W)+sin (M) +4∑（sin (W+((E+0.5)FR+2GP-1)×(E+0.5)S),E,0,(N-1)）+2∑（sin (W+((EFR+2GP-1)ES,E,1,(N-1))）→Y↙
4子程序名：XY-B（功能：显示正算或反算结果）
If O=2:Then↙
Cls :＂K×××=＂:＂Z=＂:＂X=＂:＂Y=＂: Locate 6,1, K : Locate 4, 2, T : Locate 4,3, X : Locate 4,4, Y◢
If T=0 :Then Cls :＂QF(Z)=＂: Locate 8,1, M:M▼DMS◢
IfEnd↙
Cls :＂K×××=＂:＂S=＂: Locate 6,1, K : Locate 4, 2, I :
＂F=＂:J:J▼DMS◢
IfEnd↙
If O=3:Then ＂X=＂:＂Y=＂:＂K×××=＂:＂Z=＂: Locate 4,1,C: Locate 4, 2, D : Locate 6,3,K :Locate 4,4,T◢
IfEnd:Cls↙
5子程序名:4（功能：将交点参数转为线元计算参数）
LbI 1: IF Z[48]＜0 :Then -1→Z[62] : Else:1→Z[62]:IfEnd
LbI 2: If K≥Z[57]:Then Z[57]→A :Z[1]→L :Z[23]→U :Z[24]→V : Z[31]→W : 10^45→P :10^45→Q : 0→G:IfEnd↙
LbI 3:If K≥Z[1]:Then Z[1]→A : Z[2]→L : Z[19]→U : Z[20]→V :Z[29]→W : 10^45→P :Z[46]→Q : Z[62]→G: IfEnd↙
LbI 4:If K≥Z[2]:Then Z[2]→A : Z[4]→L :Z[25]→U : Z[26]→V :Z[32]→W : Z[46]→P : Z[46]→Q : Z[62]→G: IfEnd↙
LbI 5:f K≥Z[4]:Then Z[4]→A : Z[5]→L : Z[27]→U :Z[28]→V : Z[33]→W : Z[46]→P : 10^45→Q : Z[62]→G: IfEnd↙
LbI 6:If K≥Z[5]:Then Z[5]→A : Z[5]+1000→L :Z[21]→U : Z[22]→V : Z[30]→W :10^45→P : 10^45→Q : 0→G : IfEnd↙
6子程序名：JDYS（功能：输入交点要素、显示交点要素及主点坐标）
Cls : ＂BP＂?H:H→Z[57]：＂K（JD）＂?K:K→Z[41] :＂X（JD）＂?X :X→Z[42]:＂Y（JD）＂?Y:Y →Z[43]:＂LS1＂?B:B→Z[44] :＂LS2＂?C:C →Z[45]: ?R:R →Z[46]:＂（ZH）FWJ°＂?M:M→Z[47] : ＂α（Z-,Y+）°＂?O:O→Z[48] : Z[47]+Z[48]→Z[49]: Prog＂1＂:Prog＂2＂↙
Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1, Z[50] : Locate 4,2, Z[51]: Locate 4,3, Z[52] : Locate 4,4, Z[53]◢
Cls :＂E=＂: Locate 7,1, Z[54]
Cls :＂K（QD）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂Locate 7,1,Z[57] :Locate 7,2, Z[23] :Locate 7,3, Z[24] :Locate 7,4, Z[31] ◢
Cls :＂K（ZH）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂:Locate 7,1,Z[1] : Locate 7,2, Z[19] :Locate 7,3, Z[20] :Locate 7,4, Z[29]◢
Cls : ＂K（HY）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[2] : Locate 7,2, Z[25] :Locate 7,3, Z[26] :Locate 7,4, Z[32]◢
Cls :＂K（QZ）=＂: Locate 7,1,Z[3]◢
Cls :＂K（YH）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[4] : Locate 7,2, Z[27] :Locate 7,3, Z[28] :Locate 7,4, Z[33]◢
Cls :＂K（HZ）=＂: ＂X=＂: ＂Y=＂: ＂FWJ=＂: Locate 7,1,Z[5] : Locate 7,2, Z[21] :Locate 7,3, Z[22] :Locate 7,4, Z[30]◢
7子程序名：1（功能：计算交点要素）
If Z[48]＜0 :Then -1→Z[55] : Else 1→Z[55] : IfEnd : Z[55]* Z[48]→Z[56] ↙
Z[44] 2 ÷24÷Z[46]- Z[44]^(4)÷2688÷Z[46] ^(3) →Z[6] ↙
Z[45] 2 ÷24÷Z[46]- Z[45]^(4)÷2688÷Z[46] ^(3) →Z[7] ↙
Z[44]÷2-Z[44]^(3)÷240÷Z[46]2 →Z[8] ↙
Z[45]÷2-Z[45]^(3)÷240÷Z[46]2 →Z[9] ↙
Z[8]+(( Z[46]+Z[7]-( Z[46]+Z[6])cos(Z[56]))÷sin(Z[56]))→Z[50]↙
Z[9]+(( Z[46]+Z[6]-( Z[46]+Z[7])cos(Z[56]))÷sin(Z[56]))→Z[51]↙
Z[46]* Z[56]π÷180+( Z[44]+ Z[45]) ÷2→Z[52]↙
Z[46]* Z[56]π÷180-( Z[44]+ Z[45]) ÷2→Z[53]↙
(Z[46]+(Z[6]+Z[7])÷2)÷cos(Z[56]÷2)- Z[46]→Z[54]↙
Z[41]-Z[50]→Z[1] ↙↙
Z[1]+Z[44]→Z[2] ↙↙
Z[2]+Z[53]÷2→Z[3]↙
Z[1]+Z[52]-Z[45]→Z[4]↙
Z[4]+Z[45]→Z[5]↙
8子程序名：2（功能：计算主点坐标及切线方位角）
Z[42]-Z[50]cos(Z[47])→Z[19]: (直缓坐标)
Z[43]-Z[50]sin(Z[47])→Z[20]↙
Z[47]→Z : 360Frac((Z+360)÷360→Z[29] （方位角）
Z[42]+Z[51]cos(Z[49])→Z[21]: (缓直坐标)
Z[43]+Z[51]sin(Z[49])→Z[22]↙
Z[49]→Z: 360Frac((Z+360)÷360→Z[30] （方位角）
Z[1]-Z[57]→L↙（H→Z[57]为前直线起点桩号）
Z[42]-( Z[50]+L)cos(Z[47])→Z[23]↙ (前直线起点坐标)
Z[43]-( Z[50]+L)sin(Z[47])→Z[24]↙
Z[47]→Z : 360Frac((Z+360)÷360→Z[31]↙（方位角）
Z[44]→Z[12]:Z[44]→Z[13]:Prog＂3＂↙
Z[4]-Z[1]→L:90(2L-Z[44])÷Z[46]÷π→Z[11]↙
Z[46]sin(Z[11])+Z[8]→Z[14]:Z[46](1-cos(Z[11]))+Z[6]→Z[15]↙
Z[19]+Z[14]cos(Z[47])-Z[55]Z[15]sin(Z[47])]→Z[27]↙（圆缓点坐标）
Z[20]+Z[14]sin(Z[47])+Z[55]Z[15]cos(Z[47])]→Z[28]↙
Z[47]+Z[55]Z[11]→Z: 360Frac((Z+360)÷360→Z[33]↙（方位角）
Z[2]-Z[1]→L:90(2L-Z[44])÷Z[46]÷π→Z[58]↙
Z[46]sin(Z[58])+Z[8]→Z[14]:Z[46](1-cos(Z[58]))+Z[6]→Z[15]↙
Z[19]+Z[14]cos(Z[47])-Z[55]Z[15]sin(Z[47])]→Z[25]↙（缓圆点坐标）
Z[20]+Z[14]sin(Z[47])+Z[55]Z[15]cos(Z[47])]→Z[26]↙
Z[47]+Z[55]Z[58]→Z: 360Frac((Z+360)÷360→Z[32]↙（方位角）
9子程序名：3（主点坐标计算辅助程序）
If Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙
Z[12]- Z[12]^(5)÷40÷(Z[46]*Z[13])2+ Z[12]^(9)÷3456÷(Z[46]*Z[13])^(4) →Z[14]↙Z[12]^(3)÷6÷(Z[46]*Z[13])-Z[12]^(7)÷336÷(Z[46]*Z[13])^(3)+ Z[12]^(11) ÷42240÷(Z[46]*Z[13])^(5)→Z[15] ↙
IfEnd↙
程序说明：
1、进入程序：1.JD ZFS 2. ZHADAO ZFS? 选1为交点法正反算（以后操作均为交点法计算），选2为线元法正反算（以后操作均为线元法计算）
2、ZHONG SHU JS 2. JS?选1重输参数，选2直接进入交点法或线元法正反算（参数为已输过的参数）
3、参数输入：
一、交点法已知数据输入：
BP？上一交点ZH桩号
K（JD）?交点桩号
X（JD）?交点X坐标
Y（JD）?交点Y坐标
LS1 ?第一缓和曲线长度
LS2 ?第二缓和曲线长度
R ? 圆曲线半径
（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角
α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）
交点法计算要素显示：
T1=第一切线长
T2=第二切线长
L=曲线总长
LY=圆曲线长
E=曲线外距
K(ZH)=直缓点桩号
K(HY)=缓圆点桩号
K(QZ)=曲中点桩号
K(YH)=圆缓点桩号
K(HZ)=缓直点桩号
二、线元法已知数据输入：
K0？KN? R0? RN?F0?X0? Y0?ZX? 分别为线元起点桩号、终点桩号、起点半径、终点半径、起点切线方位角、起点X坐标、起点Y坐标、线元转向。
4、XC ? YC? 输入置镜点即测站的X,Y坐标
5、1.ZS 2.FS选1正算选2反算
程序线元判断原则:
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；
(2) 当所求点位于中线时，Z=0；当位于中线左侧时，Z取负值；当位于中线右侧时，Z取正值。
(3) 当线元为直线时，其起点、终点的曲率半径为无穷大，以10的45次代替输入×10x45。
(4) 当线元为圆曲线时，无论其起点、终点与什么线元相接，其曲率半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次代替输入×10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径为无穷大，以10的45次代
替输入×10x45；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。终点与直线相接时，曲率半径等于设计规定的值；与圆曲线相接时，曲率半径等于圆曲线的半径。
6、循环计算部份：
输入与显示简单说明
JD ZS KX+XXX? 或ZHADAO ZS KX+XXX？输入所求的桩号（交点法或线元法）
Z ？输入所求点距中线的边距(在中线输零，左负右正)
RJ？输入边桩时左右边桩连线与线路前进方向中桩切线的右交角（当输入数字0时进入下一个桩号计算输入）
X =、Y = 计算得出的所求点的左、中、右的X Y坐标
QF(Z)= ×××计算得出所求点的中桩切线方位角
F= ×××计算得出置镜点到测点的方位角
S= ×××计算得出置镜点到测点的水平距离
JD FS KN+? 交点法反算时需输入反算点所在（前直线，前缓和段、圆曲线、后缓和段、后直线）线元中的任一点桩号（定位线元用）
X=×××反算输入所求点的X坐标
Y=×××反算输入所求点的Y坐标
K=×××计算得出求点所对应的里程
Z=×××计算得出求点到所对应的里程的垂直距离（负就是左边，正就是右边）
5800边坡放样程序
直线段边坡超欠挖检查及开口线放样程序程序名：BPFY 程序：A“QX”：B“QY”：C“QZ”：E“ZX”：F“ZY”：G“ZZ”：P“PB”：K“XP”：L“YP”：M“ZP”：Fixm：Pol(E-A，F-B：J≤0=>J=J 360⊿D=Abs((K-A)*CosJ (L-B)*SinJ)：S=Abs((L-F)*CosJ-(K-E)*SinJ)：X=A D*CosJ：Y=B D*SinJ：Z=(G-C)/I*D C：W=AbS(M-Z)：V=S/P-W：V<0=>O“Hcw”=V◢⊿V≥0=>O“Hqw”=V◢⊿U=W*P-S：U<0=>N“Scw”=U◢⊿U≥0=>N“Sqw”=U◢⊿“END”说明：A、B、C为边坡底线的起点，显示为: QX?QY?QZ? 依次输入地线起点的X,Y,Z；E、F、G为边坡底线的终点，显示为: ZX?ZY?ZZ? 依次输入地线终点的X,Y,Z；P为坡比，无正负条件；K、L、M 为测量点，显示为: XP?YP?PZ? 依次输入测量点的X,Y,Z；中间计算测量点至边坡底线的垂足点，保存变量为X、Y、Z。O为边坡的高程超欠挖值，显示为Hcw或Hqw，分别表示超挖或欠挖，即测点高程设计高程减实测高程；N为边坡的距离超欠挖值，显示为Scw或Sqw，分别表示超挖或欠挖，按高差计算的设计距离减实测点到垂足点距离。圆弧段边坡超欠挖检查及开口线放样程序程序名：YFFY 程序：A“YX”：B“YY”：X“XP”：Y“YP”：Z“ZP”：Fixm：Pol(A-X，B-Y)：T=Abs(I-R)：W=Abs(H-Z)：S=W*P-T：V=T/P-W：S<0=>M“Scw”=S◢⊿S≥0=>M “Sqw”=S◢⊿V<0=>K“Hcw”=V◢⊿V≥0=>K“Hqw”=V◢⊿“END”说明：A、B为圆心坐标，显示为YX？YY？，依次输入圆心点的X、Y；X、Y、Z为测点坐标，显示为XP？YP？ZP？依次输入测点的X、Y，Z；R为到边坡底线的距离（半径）；H为边坡底线的高程（马道或平台的高程）；I不用管它，直接按“EXE”，显示下一个输入；P为坡比，无须输入正负号；M为计算的边坡距离超欠值，显示为Scw或Sqw，分别表示超挖或欠挖，距离超欠值为：设计距离减测量距离；K为计算的边坡高程超欠值，显示为Hcw或Hqw，分别表示超挖或欠挖，高程超欠值为：设计高程减测量高程。从网上弄来的，自己没有用过，你用的时候最好多做检核。 边坡测量（由坐标反算桩号及填挖高度方法的运用） 在施工测量放样中，最常用的就是正算放样（已知该点坐标进行定点放样），但在某些特殊情况下要进行的放样工作，这种办法就显得黔驴技穷了，比如在南方的山区道路施工中，往往会有高填高挖路段，有的高达几十米，那么这些段落的填土边线及挖方开口线放样就给我们施工测量带来了麻烦，如果采用常规的办法一般会有以下几个步骤： 1、首先放出中线 2、然后对填挖断面进行测量 3、再估算填挖边线距中桩的距离 4、试放出该点位置 5、对该点进行高程测量，比较该点实测高程与设计高程的差距，重新计算距中桩距离 6、重复4、5步，试放该点，测量高程，至到与设计高程相符为止
FX5800道路路线测量程序
道路中边桩坐标放样正反算CASIO fx-5800P程序（全线贯通） 编辑 | 删除 | 权限设置 | 更多▼ 设置置顶推荐日志转到私密记事本 转载自王中伟转载于2009年08月12日 17:34 阅读(1) 评论(0) 分类：技术交流权限: 公开 一、前言 本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。 改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。 程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。 二、道路示例项目基本资料 基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号：K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下（若图片不清晰，请参见参见教材P161附录1）： .
卡西欧5800路基测量程序讲课稿
卡西欧5800路基测 量程序
晋-测量-斐斐(532901847) 21:20:03 一、程序功能 本程序由一个主程序(ZHUCHENXU)和几个子程序——正算子程序(SUB1)、反算子程序(SUB2)、数据库(SUB3)、算方位角程序(FA)、使用方位角算坐标(NE)、边坡放样程序(BIANPO)、隧道圆心放样程序（SDYX）构成，可以根据直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。 二、源程序 增加变量16→DimZ 1.主程序(ZHUCHENXU) "1.SZ → XY，2.XY → SZ，3.SDYX，4. BIANPO "？N： Lbl 1：”ZHUANGHAO=”?S： Prog "SUB3"：N≥2=>Goto 2： Abs(S- O)→W：”BIANZHU=”?→Z:Prog "SUB1"： "XS=”:X→X◢"YS=”:Y→Y◢"FS=”:(F-90) →F:F►DMS◢Prog "FA"：Goto 1: Lbl 2：”CX=”?X: X→I：”CY=”?Y: Y→J：”DMG=”?→Z[7]：Prog "SUB2"："S=":(O+W) →S◢"Z="Z→Z◢If N=3:Then Prog”SDYX”: IfEnd ：If N=4:Then Prog”BIANPO”:IfEnd:Goto 2 2. 正算子程序(SUB1) 0.1739274226 →Z[1]：0.3260725774→B：0.0694318442→K： 0.3300094782→L： (1-L) →F： (1-K)→M： U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW
公路测量卡西欧5800万能程序
一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线，有效计算范围仅包括平曲线部分和前后的两条直线段，使用时需要输入平曲线设计参数，无坐标反算桩号功能。改进后的程序名称为：道路中边桩坐标放样正反算程序（全线贯通），增加了可实现全线贯通的数据库功能和坐标反算桩号功能，主要是： 1．使用道路平面数据库子程序，可将一段或若干段道路的交点法格式平面参数（可容易从直线、曲线及转角表中获得）以数据库子程序形式输入计算器，程序在计算时省却了输入原始数据的麻烦； 2．坐标正算方面，输入桩号即可进行道路的中、边桩坐标计算，若输入了测站坐标，还可同时计算全站仪极坐标放样数据（拨角和平距）； 3．坐标反算方面，输入平面坐标，即可计算对应的桩号和距中距离（含左右信息）； 4．对于存在断链的道路，可分段分别编写数据库子程序，然后在主程序中添加一个路段选择的功能即可实现（可参照立交匝道程序中匝道的选择）。程序的特点： 1．可进行中桩坐标的正、反算，程序代码简洁，便于阅读和改写； 2．主程序通过调用数据库子程序，省却了使用时输入平面参数的繁琐； 3．使用数据库子程序，换项目只需改写数据库子程序，程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段（合同段起止桩号： K4+800~K9+600）。这里摘取直线、曲线及转角表资料如下.
.
. 三、程序代码 .
. .
. .
交点法线元法坐标计算
3、交点法、线元法坐标计算 坐标计算是根据图纸中“直线及曲线转角一览表”提供的数据计算道路中桩坐标，然后和图纸提供的“逐桩坐标表”比对，如果一样则说明输入平曲线参数输入正确，可以计算边桩坐标和其他结构物坐标了；如果中桩坐标不一样，一般是平曲线参数输入有误，需要重新检查输入，另一种结果是图纸有错，这种情况少见，但不代表没有。“直线及曲线转角一览表”和“逐桩坐标表”见附件1、附件2。 线元法是以路线的起点坐标、方位角、起终点桩号等节点元素来计算出要求的坐标；交点法是以路线的交点要素和路线的主要要素来求得坐标。 ①交点法 交点：路线的转折点，路线改变方向是相邻两直线的延长线相交的点。用JD表示， 有些图 纸上用 IP表示。 看下图： 交 点是针对曲线的（包含圆曲线和缓和曲线），一段曲线就有一个交点。交点参数有：坐标（X,Y）、交点桩号、转角值、圆曲线半径R、缓和曲线长度。 教学提供软件（轻松测量、双心软件、测量工具）交点法曲线要素输入说明： 1、QD起点坐标： 起点坐标必须在直线段上，或填写前一交点的坐标。
2、JD交点曲线要素： （1）交点桩号 （2）交点坐标（X,Y） （3）曲线半径R 始点的话，起始里程有时候需要校正，当然，并不是每个图纸给出的起点里程都需要校正，大多数图纸的起点里程已经被设计院校正过，我们输入平曲线的时候需要验证一下。如果我们按照图纸给出的起点里程输入，发现后面的交点里程都和图纸相差一个相同的值，这就表明我们输入的起点里程需要校正。 起始点里程正常输入，第二、三个交点输入完成后，检查第二个交点的切线长和交点
里程是否和图纸一样，如果切线长正确，交点里程不正确，说明起点里程需要校正，将第二个交点的里程与正确里程的差值，应用到起点里程中，从而使第二个交点里程和后面交点的里程与图纸吻合。 注意：交点法计算坐标适用的平曲线为对称或不对称缓和曲线、圆曲线。对于非普通的三单元曲线，交点法不适用。非普通的三单曲线例如下页的JD18及JD19处的平曲线， 的输入是否正确，有的图纸给的方位角数据较少，需要每隔几个线元才能检验方位角。
Fx5800计算器公路测量程序设计
FX5800计算器测量程序集版 一、程序功能 主要功能：采用交点法方式计算多条线路坐标正反算，可算任意复杂线型及立交匝道，包括C型，S型、卵型、回头曲线等；极坐标放样，全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化：1、优化程序语句、2、以复数形式输入变量及做数据库，取消原矩阵数据库;3、修改隧道超欠挖程序为通用形，不受圆心个数限制、4、新增测量资料表计算
二、源程序（绿色为程序名；蓝色为输入计算器内容）紫色为新版改动处（可以根据自己标段情况用相关主程序及子程序，再在0程序中汇总）0.汇总程序（1、坐标计算放样程序(1XY、A、AB、HX、JS、DX、QX、F、XY、X1)；2、坐标反算程序（2ZD、A、B、AB、HX、QX、F、ZD、X1)；3、高程计算查阅程序（3GC、H、I、QX、S1、I1）；4、路基半幅标准宽度查阅程序（4GD、C、QX、G1）；5、路基边坡及开挖口放样程序（5BP、 A、B、AB、HX、H、I、C、JS、DX、QX、F、ZD、X1、S1、I1、G1、W1）； 6、路基标准距离放样（6FM、A、AB、HX、H、I、JS、DX、QX、F、XY、X1、S1、I1)； 7、桥梁锥坡计算放样程序（7ZP、A、AB、HX、C、JS、DX、QX、F、XY、X1、G1)； 8、极坐标计算程序（8JS、JS、DS）； 9、隧道超欠挖计算程序（A、B、AB、HX、H、I、QX、S、SD、F、ZD、X1、S1、I1、SD1）运行后按1~9数子约半秒，则选择1至9的程序，返回时，在桩号输入-1,返回选择计算类型。输入-2,返回选择线路。 程序名：0（数子0） ClrMat:ClrVar:12→DimZ：Norm 2:Do:＂(XY=1，ZD=2 ，GC=3，GD=4，BP=5，FM=6，ZP=7，JS=8，SD=9)===>QING AN 1-9＂：Getkey→Z[3]:While Z[3]=35:Prog＂1XY＂:WhileEnd:While Z[3]=36:Prog＂2ZD＂：WhileEnd: While Z[3]=37:Prog＂3GC＂：WhileEnd: While Z[3]=21:Prog＂4GD＂：WhileEnd: While Z[3]=22:Prog＂5BP＂：WhileEnd: While Z[3]=23:Prog＂6FM＂：WhileEnd: While Z[3]=31:Prog＂7ZP＂：WhileEnd: While Z[3]=32:Prog＂8JS＂：
交点法坐标计算
本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！ 本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！ 主程序名：JD 24→Dimz↙ Cls :＂XC＂?U :＂YC＂?V :＂K（JD）＂?K :＂X（JD）＂?X : ＂Y（JD）＂?Y :＂LS1＂?B :＂LS2＂?C : ?R : ＂（ZH）FWJ°＂?M : ＂α（Z-,Y+）°＂?O : M+O→N : Prog ＂JDA＂↙ Cls :＂T1=＂:＂T2=＂:＂L=＂:＂LY=＂: Locate 4,1,S : Locate 4,2,T : Locate 4,3,L : Locate 4,4,Q◢ Cls :＂E=＂:＂K（ZH）=＂: Locate 7,1,E : Locate 7,2,Z[1]◢ Cls : ＂K（HY）=＂:＂K（QZ）=＂:＂K（YH）=＂:＂K（HZ）=＂: Locate 7,1, Z[2] : Locate 7,2, Z[3] : Locate 7,3, Z[4] : Locate 7,4, Z[5]◢ LbI 0 : ＂K×+×××＂?P : ＂Z＂?D : If D≠0 :Then ＂RJ＂?H : IfEnd : Prog ＂JDB＂↙ If D＜0 :Then Cls : ＂X(L)=＂:＂Y(L)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(L)=＂: Locate 6,1,I : ＂F(L)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D=0 :Then Cls : ＂X(Z)=＂:＂Y(Z)=＂: Locate 6,1,F : Locate 6,2,G : ＂QXFWJ(Z)=＂: Z▼DMS◢ Pol(F-U,G-V : Cls : ＂S(Z)=＂: Locate 6,1,I : ＂F(Z)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ If D＞0 :Then Cls : ＂X(R)=＂:＂Y(R)=＂: Locate 6,1,F : Locate 6,2,G◢Pol(F-U,G-V : Cls : ＂S(R)=＂: Locate 6,1,I : ＂F(R)=＂: 360Frac((J+360)÷360▼DMS◢ Goto 0 : IfEnd↙ 子程序1名： JDA If O＜0 :Then -1→W : Else 1→W : IfEnd : WO→A ↙ B2 ÷24÷R-B^(4)÷2688÷R ^(3) →Z[6] ↙ C2 ÷24÷R-C^(4)÷2688÷R ^(3) →Z[7] ↙ B÷2-B^(3)÷240÷R2 →Z[8] ↙ C÷2-C^(3)÷240÷R2 →Z[9] ↙ Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S↙ Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T↙ RAπ÷180+(B+C) ÷2→L↙ RAπ÷180-(B+C) ÷2→Q↙
5800平曲线放样程序(分段)
5800-平曲线程序 程序目的：依平曲线要素计算直线、圆曲线、缓和曲线的任意中桩、左、右桩坐标。 程序说明：K0：起始桩号 X0：起始X坐标 Y0：起始Y坐标 ALF：起始方位角 R：半径 LS：缓和曲线长 N：曲线左转N=1，右转N=2 K：待求桩号 LL、LR：左、右桩距离 Q：左、右桩与中线斜交角求得XZ、YZ、XL、YL、XR、YR分别为中桩、左、右桩坐标。 一、直线段 文件名：ZX (COMP) “K0=”? L：“X0=”? O：“Y0=”? P：“ALF=”? W： Lbl 0：“K=”?：O+(K-L)cosW→X： P+(K-L)sinW→Y：“XZ=”：X◢“YZ=”：Y◢“LL=”?B：“XJJ=”?Q： X-Bcos(W +Q) →E：Y-Bsin(W+Q) →F：“XL=”：E◢“YL=”：F◢“RL=”？C： X+Ccos(W+Q) →I：Y+Csin(W+Q) →J：“XR=”：I ◢“YR=”：J◢Goto 0 注：在程序执行过程中，赋给的要素变数的值被固定不变，可对变数（K、LL、LR）赋予不同值，迅速求得所需坐标。 二、圆曲线段 文件名：YQX (COMP) “K0=”？ L：“X0=”？ O：“Y0=”？ P：“ZH—JD FWJ=”？ G：“LS=”？L：“R=”？R：G+L÷2÷R×180÷π→W：Lbl 0：“K=”？K：(-1)^N(K-L)÷R×180÷π→J： 2Rsin((-1)^N J÷2)→D：O+Dcos(W+J÷2)→X：P+Dsin(W+J÷2)→Y：“XZ=”：X◢“YZ=”：Y◢“LL=”？B：“XJJ=”？Q：X-Bcos(W+J+Q)：Y-Bsin(W+J+Q) →F：“XL=”：E◢“YL =”：F◢ “RL=”?C：“XJJ=”?Q：X+Ccos(W+J+Q) →U：Y+Csin(W+J+Q) →V：“XR=”：U◢“YR=”：V◢ Goto 0 注：公式里面W为HY点方位角，通过ZH-ＪＤ方位角计算，公式为Ｇ±Ls/2/R×180/π,(曲线左转-，曲线右转+)。 三、缓和曲线 文件名：HHQX (COMP) “K0＝”？K: “X0=”？O：“Y0=”？“ALF=”？W：“LS=”？M：“R=”？R： Lbl 0：“K=”？K：“N=”？N：(-1)^N ×(K-L)^2÷M÷R÷6×180÷π→I：(K-L)-(K-L)^5÷90÷(RM)^2→D：O+Dcos(W+I) →X：P+Dsin(W+I) →Y：“XZ=”：X ◢“YZ=”：Y◢“LL=”？B：“XJJ=”？Q：X-Bcos(W+3I+Q) →E：Y-Bsin(W+3I+Q) →F：“XL=”：E◢“YL=”：F◢“R L=”？C：X+Ccos(W+3I+Q) →I：Y+Csin(W+3I+Q) →J：“XR=”：I◢“YR=”：J◢Goto 0 注：1、坐标计算方法是根据偏角法原理； 2、缓和曲线（ZH~HY或YH~HZ）以ZH（或HZ）为起始点； 3、平曲线左转（ZH~HY段N=1，YH~HZ段N=2），曲线右转（ZH~HY段N=2，YH~HZ段N=1）。 2008/12/8
Casio fx-5800P 交点法坐标计算程序
Casiofx-5800P交点法坐标计算程序 XC U 测站X坐标 YC V 测站Y坐标 K(JD) K 交点桩号 X(JD) X 交点X坐标 Y(JD) Y 交点Y坐标 LS1 B 第一缓和曲线长度 LS2 C 第二缓和曲线长度 R 圆曲线半径 FWJ M 起始边切线方位角 α(Z-,Y+) O 本交点处线路转角(左转为负，右转为正，度分秒输入) K×+××× 待求桩号 Z 待求桩号距中距离(左负值，右正值，中为0) RJ 斜交右角(线路切线前进方向与边桩右侧夹角) →? 主程序名：JD 24→Dimz ”XC”?U:”YC”?V:”K(JD)”?K:”X(JD)”?X:“Y(JD)”?Y:”LS1”?B:”LS2”?C:?R “FWJ”?M:“α(Z-,Y+)°”?O:M+O→N Prog“JDA” Cls:”E=“:”K(ZH)=“:Locate7,1,E:Locate7,2,Z[1]◢ Cls:“K(HY)=“:”K(QZ)=“:”K(YH)=“:”K(HZ)=“:Locate7,1,Z[2]:Locate7,2,Z[3]:Locate7,3,Z[4]:Locate7,4,Z[5]◢LbI0:“K×+×××”?P:“Z”?D:If D≠0:Then “RJ”?H:IfEnd:Prog“JDB” If D<0:Then Cls:“X(L)=“:”Y(L)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(L)=“:Locate6,1,I:“F(L)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D=0:Then Cls:“X(Z)=“:”Y(Z)=“:Locate6,1,F:Locate6,2,G:“QXFWJ(Z)=“:Z?DMS◢ Pol(F-U,G-V:Cls:“S(Z)=“:Locate6,1,I:“F(Z)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd If D>0:Then Cls:“X(R)=“:”Y(R)=“:Locate6,1,F:Locate6,2,G◢ Pol(F-U,G-V:Cls:“S(R)=“:Locate6,1,I:“F(R)=“: 360Frac((J+360)÷360?DMS◢ Goto0:IfEnd 子程序1名：JDA If O<0:Then -1→W:Else 1→W:IfEnd:WO→A B2÷24÷R-B^(4)÷2688÷R^(3)→Z[6] C2÷24÷R-C^(4)÷2688÷R^(3)→Z[7] B÷2-B^(3)÷240÷R2→Z[8] C÷2-C^(3)÷240÷R2→Z[9] Z[8]+((R+Z[7]-(R+Z[6])cos(A))÷sin(A))→S Z[9]+((R+Z[6]-(R+Z[7])cos(A))÷sin(A))→T RAπ÷180+(B+C)÷2→L RAπ÷180-(B+C)÷2→Q (R+(Z[6]+Z[7])÷2)÷cos(A÷2)-R→E K-S→Z[1]
5800计算器全线坐标计算放样程序(修改第三版)
5800计算器全线坐标计算放样程序（修改第三版） 5800计算器全线坐标计算放样程序（修改版） “XLZBJSCX” ◢ LB1 0 ↙ CLS : FIX 4 : 30→DIM Z ↙ “XHS="?G(后视点X):"YHS="?L(后视点Y):"XZJ="?M(置镜点X):"YZJ="?N(置镜点Y)0l(G-M,L-N):"DH=":I(后视距)◢J<0=>J+360→J:"FH=":J→DMS◢(后视 方位角) LB1 1 ↙ “K=”?K ◢（计算里程） IF K<本段曲线终点里程 AND K≥上段曲线终点里程：THEN 本段终点里程→Z[1] : 上段曲线终点里程→Z[2] ：1→0 （注：左偏曲线输入-1→0,右偏曲线输入1→0）: 偏角→A：半径→R : 第一缓和曲线→Z[6] : 第二缓和曲线 →Z[7] : 交点X→B :交点Y→C : 小里程向交点方位角→E : 交点向大里程方位角→F : G0T0 2 : IFEND↙ …………（曲线段分段输入） 补充直线段输入如下 IF K<本段直线终点里程 AND K≥本段直线起点里程:THEN 1→0:本段直线终点里程→Z[2]:终点X→Z[16]:终点Y→Z[11]:方位角→E:G0T0 4:IFEND LB1 2 ↙（曲线要素计算） Z[6]/2- Z[6]^3/(240*R^2)+ Z[6]^5/(34560*R^4) →Z[8] ↙（M1） Z[7]/2- Z[6]^3/(240*R^2)+ Z[7]^5/(34560*R^4) →Z[9] ↙（M2） Z[6]^2/(24*R)- Z[6]^4/(2688*R^3) →Z[10] ↙（P1） Z[7]^2/(24*R)- Z[7]^4/(2688*R^3) →Z[11] ↙（P2） π*A*R/180+0.5*( Z[3]+ Z[2])→W ↙（曲线总长） 90* Z[6]/(R*π) →Z[14] ↙（第一缓和曲线总偏角） 90* Z[7]/(R*π) →Z[15] ↙（第二缓和曲线总偏角,可以省略） Z[8]＋（R+Z[10])TAN(A/2)-(Z[11]-Z[11] )/SIN A→Z[11]↙ (切线T1) Z[9]＋（R+Z[12])TAN(A/2)+(Z[10]-Z[12] )/SIN A→Z[12]↙ (切线T2) B+ Z[12]*C0S (E+180)→ Z[13] ↙（ZH点X） C+ Z[12]*SIN(E+180)→ Z[15] ↙（ZH点Y） Z[1]-S→Z[3] ↙ (ZH点里程) Z[3]+ Z[6]→Z[4] ↙ (HY点里程) Z[1]- Z[7]→Z[5] ↙ (YH点里程) G0T0 3 ↙ LB1 3 ↙(判断里程点与曲线关系) IF K≤Z[3] AND K> Z[2] : THEN G0T0 4 : IFEND ↙ IF K≤Z[4] AND K> Z[3] : THEN G0T0 5 : IFEND ↙ IF K≤Z[5] AND K> Z[4] : THEN G0T0 6 : IFEND ↙
5800p全功能程序
网上搜索来的 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2 F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂Ｄ＝＂：Locate 6,4,Ｄ◢ Ｇoto 0
２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:”H=”:Locate 6,4,H◢ “I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y： 1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 3:”S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: 5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：5FBX LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: LbI W:Prog “W0”:Z[10]+Z[11] →A: If G>A:Then Goto 1:Else If G>Z[10]:Then Goto 2:Else Goto 3:IfEnd: LbI 1:L+Z[12]+Z[13]+Z[14]+(G-A)×Z[9]+Z[11]×Z[8]+Z[10]×Z[7]:Goto Z: LbI 2:L+Z[12]+Z[13]+(G-Z[10])×Z[8]+Z[10]×Z[7]:Goto Z: LbI 3:L+Z[12]+G×Z[7]:Goto z: LbI T:L+0.5→N:If G>Z[17]:Then (N+Z[18]+(G-Z[17])×Z[16]+Z[17]×Z[15])→S:Goto Z:Else (N+G×Z[15])→S:Goto z: LbI Z:Z[3]→D:Fix 2:Abs(D)-S→T:”L0=”:L Locate 6,4,T◢ ＂ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂Ｄ＝＂：Locate 6,4,Ｄ◢ “TW=”: Locate 6,4,Z[5]◢
边坡放样程序
边坡放样程序 问题的出现 在土石方开挖中,有时由于地形复杂,会发生地形变换点未能加测坡口桩的情况,或因施测人员对内业图纸不熟悉,造成放样数据不准确等,这均会导致放样方法不准确使边坡超挖欠挖严重,或者边坡开挖后使设计的落石平台无法形成,只能一挖到底。有的保证了路面宽度,却不能保证坡度缓于设计值。不仅造成严重的质量问题,还对后期工程带来一定的影响,直接降低工程质量等级。由于土石方工程的边坡是个很直观的外露工程,也是直接影响评定工程质量等级的重要因素,为避免出现以上问题,本人将给出在特区市负责高速公路施工时,对复杂地形的边坡放样处理方法。 放样方法的选择及实施 (1) 放样前熟悉工程地形图、道路平面图、路线图与施工组织设计及断面图,实地踏勘后沿线路做好首级控制,控制点应选在边坡范围外侧,考虑边坡深挖控制点不能离坡口太远,一般距坡口1～1. 5m 即可,测设线路中线桩断面图,根据设计值计算出每级边坡放样数据,最好内业计算出不同坡面的放样数据图,同时放出开挖坡口桩,放坡口桩时应加放拱面至坡面5cm。考虑中桩点位误差以保证路面宽度不小于设计宽度,坡面不陡于设计陡面,故坡口桩应放宽5cm。在确定坡口开挖边线时,若边桩与相邻边桩纵向地形的坡度基本一致,两坡口桩之间无明显凸地形出现,可根据设计图纸和实测的高程计算出路中桩至坡口的水平距离。坡
口桩因高程变化而改变平距,故坡口桩要经过多次修改才可确定。然后在相邻坡口桩之间拉一细线洒上白灰即为坡口开挖边线,此为正常放样。 (2) 坡回桩与坡口桩之间有明显凹凸或中间有深沟路堑、路堤甚至小山等,则应加测局部中桩各边坡口边坡桩,图1 中的点为加测桩。加测的边桩应在地形的变换点上。此为方法之二。 (3) 在高挖地段的边坡都设有几级台阶或落石平台,在同一级平台内坡面桩与坡面桩之间按直线洒白灰,作为坡面开挖边线。坡面桩与坡面桩之间不在同一个平台内,则应测出平台出口的内外桩,用上面的桩点与平台出口的外桩相连。平台出口内桩与下面的桩点相连。此为方法之三。 (4) 坡度尺的应用。根据地形变化,可以自制坡度尺。在两个坡口桩之间拉一条线,然后以线为准,用坡度尺向上或下延伸到地形变换的每一个点上,坡度尺的方向必须垂直坡面。根据桩点和延伸点用白灰洒一条线,注意洒出的开挖线不是直线,用坡度尺也可指导每一级的坡面开挖或填方,一般坡面每挖深纵向20m 用仪器测定每一个坡面桩。这样可检查是否挖到设计坡面,同时也可以掌握坡面平整度。横向坡面可以在坡面桩上下拉一坡度线,一面开挖,一面将线向下延伸。纵向则可以在两坡度线纵向20m 拉一细线,检查坡度平整度或控制超欠挖。这样能使坡面象是用刀按设计的坡度切出的一个完整坡面,使设计美真正成为一种施工中的艺术美。横向拉坡度线,纵向拉坡面线开挖可一次开挖到位,不需第一次预挖,第二次修坡。此为方法之四。
最新CASIO程序线路计算70版匝道版汇总
C A S I O程序线路计算 70版匝道版
一、扩展变量设置说明 1．统计各种要素点的数目 各要素点数目表 设置扩展变量总数目为： 2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74个 2．设置各扩展变量数据 ①固定变量及自由变量Z[1]～Z[39] 固定变量及自由变量设置表
②导线点扩展变量Z[40]～Z[69] 各导线点坐标值于扩展变量中的位置表
③平曲线要素扩展变量Z[70]～Z[84+2a1+2a2+2a3+2a4+2a5] 各匝道平曲线要素于扩展变量中的位置表 ④竖曲线要素扩展变量Z[85+2(a1+a2+a3+a4+a5)]～ Z[74+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)] 各匝道竖曲线要素于扩展变量中的位置表
⑤超高设计扩展变量Z[75+2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)]～ Z[2(a1+a2+a3+a4+a5)+3(b1+b2+b3+b4+b5)+2(c1+c2+c3+c4+c5)+74] 各段超高设计数值于扩展变量中的位置表 说明：存入设计横坡数值时，当路基左右幅的横坡为互补时，只要把左幅的设计横坡存入扩展变量即可（从路中间向两侧，上坡为“＋”，下坡为“－”），当左右幅的设计横坡为相同时，则在对应扩展变量中存入横坡为0。 3.扩展变量设置说明 当线路改变或数据更改时，应首先根据各要素点的数目设置扩展变量总数目（若要素点数目也发生变化），再按上述各扩展变量位置表中的约定重新设置扩展变量中的数据。 存入平曲线的曲率时，左转为“－”，右转为“＋”，曲率为半径的倒数，即1/R；
公路边坡(开挖点或坡脚点)精准放样通用程序
公路边坡（开挖点或坡脚点）精准放样通用程序 抛弃渐进法、放坡脚线开挖点，一次准确定位。开挖点或坡脚点无论填方挖方通用，再也无需逐级边坡主子程搞边坡放样程序，根据数学模型推理计算编写的实用的5800程序，用此法可以解决边坡放样，卡西欧5800代码如下： 1.程序名：BP LbI S↙ Cls↙ “K×+×××”?V:“L（-1） Or R（+1）”？Q:“Z0(SJ)”？E: “H0(SJ)”？F:“Z1(W)”?A:“H1(W)”？B: “Z2(N)”？C↙ If C≥A:Then Cls:Locate 6 ,2 ,“ERR!”▲ Stop:Goto S:Else↙ Cls: “H2(N)”？U: “BP(1:m)”?N↙ If U=B:Then 0→M:Else Abs（（A-C）÷（B-U））→M:IfEnd↙Abs（U-F）→G:C-E→S:(MG-S)N÷（M-N）→L↙ Q=-1=>-(E+L) →D↙ Q=1=>E+L→D↙ Cls:“Z=”:Locate 4，1，D▲ Cls:“HC”？H↙ L÷Abs（H-F）→K↙ Cls:“K×××=”: “1:M=”:“1:m=” :“M- m=”:Locate 5，1，
V:Locate 5，2，K:Locate 5，3，N:Locate 5，4，K-N▲ Goto S↙ IfEnd↙ 2.程序设计原理： 公路挖方段的开口线或填方段的坡脚线是沿着原地面随高程变 化的一条曲线，放样坡口开挖点或坡脚的坡脚点实际上是放样不同里程桩号断面地面线上的点。通常的放样法是：先计算断面上坡口（角）点附近一点的坐标进行放样并测出该点的高程，再根据设计边坡坡度值用逐渐趋近的方法放出开挖点或坡脚点，弊端是当放出的点高程满足边坡坡度设计要求时候却又很难 保证该点是否在该断面上了的，并且外业作业繁琐，反复试放，点位精度也低。 本程序是根据先放出断面上坡口（角）点附近的两点（不打桩）直接测量两点的实测高程，由程序内部计算出该坡口点所在的地面线的自然坡度，并与该横断面的设计边坡值联立方程，从而直接推导出计算真正坡口（角）点距该断面中桩的水平距离值，如此，代入一般的线路中边桩坐标计算程序中从而相当精确的计算出坡口（角）点的坐标利用全站仪直接一次放样的思路原理。同时程序加入了实际所在点位所形成的实际边坡坡比值与设计坡比值比较校核的功能，若与设计边坡吻合则就可一次直接打桩定位，若相差不大吻合，则是断面上坡口（角）点附近的两点选择的不合适，将两点重新缩进重新找
CASIO fx-5800p测量程序
CASIO fx-4800P、fx-5800P型计算器用于线路施工 曲线中线点坐标的计算程序 中铁十局三建公司工程技术部 摘要：本文介绍了CASIO fx-4800P 、fx-5800P型计算器程序编制用于铁路、公路曲线线路内任意中线点的坐标计算程序及使用方法。本计算程序具有操作简便、计算快捷、应用广泛等特点、极大地减轻了测量工作者的内业工作量，对于测量工作者有较大的参考和指导作用。关键词：曲线线路施工测量计算程序 1．概述 过去，线路中线施工放样基本依靠经纬仪和钢尺了来进行角度及距离测量。对于曲线线路一般的测量方法是：经纬仪置于某一中线点上，采用偏角法拨角再用钢尺量距来定出中线点。随着电子技术进步和经济发展，测量仪器和测量方法的不断改进，目前，全站仪已广泛地应用于工程施工测量中，极大的提高了测量工作效率。但是，在进行铁路、公路工程的曲线线路施工测设时，需要在线路所在区域建立统一坐标系或独立坐标系，利用坐标变换的方法，将整个曲线的三个部分（第一缓和曲线、中间圆曲线、第二缓和曲线）统一到同一坐标系中。根据坐标系的建立，计算出整个曲线内任意点的坐标，再采用全站仪利用极坐标方法进行施工放样。前提是首先利用计算器计算出各中线点坐标，然后才能进行放样。而普通型计算器不仅计算速度慢，且要求计算者必须正确地记忆很多计算公式，计算繁琐而且容易出错，满足不了现场测设工作的要求。为了能够快速准确地为全站仪提供测设
数据，发挥全站仪快速测设的特点，提高测量工作效率，应采用可编程的计算器，编制计算程序。本文主要介绍应用CASIO fx-4800P型计算器的计算程序，供公司测量同行们参照使用。 2．计算程序 QXZBJS（文件名：曲线坐标计算fx-4800P） Defm2:R：L：A：N“ZH：X=”：E“ZH：Y=”：F：“FWJ=”：K“ZH：LC=”： P=L2/(24R)-L4/(2688R3):M=L/2-L3/(240R2):T“T”=（R+P）tng(A/2)+M ◢G=RAπ/180：“S”S=G+L◢ LbiA：｛C，V｝：C“CSDLC=”：V“HXPJ=”：D=C-K：D≤L＝＞I=D-D5/（40R2L2）：U=D3/(6RL)-D7/（336R3L3):J=√（I2+U2）：Goto1：≠＞D≤G＝＞O=90（2D-L）/( Rπ)：I=RsinO+M：U=R（1-cosO）+P：J=√（I2+U2）：Goto2：≠＞D=S-（C-K）： = D-D5/（40R2L2）：Z[2]=D3/6RL-D7/（336R3L3）：I=T+（T-Z[1]）cosA-Z[2]sinA：U=（T-Z[1]）sinA+Z[2]cosA：J=√（I2+U2）：Goto3：Lbi1:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-30D2/ （RLπ）：H=F-90D2/ （RLπ）：≠＞Q=F+30D2/ （RLπ）：H=F+90D2/（ RLπ）⊿ Goto4：Lbi2:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I)：H=F-O：≠＞Q= F+tng-1(U/I)：H=F+O⊿Goto4：Lbi3:{Q}:Q“Z=1；Y=2”：Q=1＝＞Q=F-tng-1(U/I):H=F-(A-90(S-(C-K))2/ （RLπ）): ≠＞Q= F+tng-1(U/I):H=F+(A-90(S-(C-K))2/ （RLπ）):⊿ Goto4： Lbi4:B=90+H:H＜0＝＞H“QXFWJ”=B+360◢≠＞H≥360＝＞H“QXFWJ”=H-360 ◢≠＞H“QXFWJ”=H◢⊿Goto5： Lbi5: X“CSD:X”=JcosQ+N+VcosB◢ Y“CSD:Y”=JsinQ+E+VsinB◢
5800常用程序
<<返回列表|上一篇下一篇 转载| 分享该日志| 评论| 举报 【转】 FX-5800计算器公路测量常用 程序 转载自：陈晓龙转载于：2010-12-22 12:56 | 分类：经典~~阅读：(2) 评论：(0) 一、程序功能 本程序由6个主程序、5个次子程序及5个参数子程序组成。主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。程序坐标计算适应于任何线型. 二、源程序 1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离) 程序名:1ZD-XY Lb1 0:Norm 2
F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量) Z[1]=90（与路线右边夹角） Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2 Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢ ＂Ｄ＝＂：Locate 6,4,Ｄ◢ Ｇoto 0 ２．主程序２：高程序横坡程序(设计任意点高程及横坡) 程序名：2GC LbI 0:Norm 2 “KM”?Z:?D: Prog”H”:Fix 3:”H=”:Locate 6,4,H◢ “I=”: Locate 6,4,I◢ Goto 0 3.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离) 程序名：3JS X：Y： 1268．123→K(置仪点X坐标) 2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦） Y-L→E：X-K→F：Pol(F,E):IF J<0:Then J+360→J:Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J)) →J:(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 4:” FWJ=”: Locate 6,4,J◢(不习惯小数点后四位为角度显示的，也可以用命令J◢DMS◢来直接显示) Fix 3:”S=”:Locate 6,4,I◢ 4．主程序4：涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离) 程序名：4JH-XY LbI 0:Norm 2 90→Z[1](涵洞中心桩与右边夹角，手工输入，也可以修改成前面加？后变为变量) 1→F:Prog”THB”:?L: Z[2]-Z[1] →E:X+Lcos(E) →X:Y+Lsin(E) →Y:Fix 3: ＂Ｘ=＂：Locate 6,4,Ｘ◢ ＂Ｙ＝＂：Locate 6,4,Ｙ◢ Ｐrog＂3JS”:Goto 0: 5．主程序5:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度） 程序名：5FBX LbI 0:Norm 2: 18→DimZ:2→F:90→Z[1]:Prog “THB”:Z:D:”M0”?M:M→Z[4]:D→Z[3]:Prog”6GD”:L→Z[6]:If D<0:Th en 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEnd LbI H:Prog”H”:H-0.03-Z[4] →Z[5]:Z[6] →L:If Z[5]<0:Then –z[5] →G:Goto W:Else Z[5] →G:Goto T: