最新公路工程坐标正反算原理及5800计算器程序

最新公路工程坐标正反算原理及5800计算器程序
最新公路工程坐标正反算原理及5800计算器程序

公路工程坐标正反算原理及5800计算器

程序

目录

一、坐标正算基本公式 (02)

二、坐标反算原理 (04)

三、高程数据库录入变换 (05)

四、计算器程序 (07)

01、ZBZS(坐标正算) (07)

02、ZBFS(坐标反算) (08)

03、GCJF(高程积分) (09)

04、PJFY(坡脚放样) (10)

05、JFCX(积分程序) (11)

06、ZBFY(坐标放样) (11)

07、DT(递推) (12)

08、HP(横坡) (13)

09、LK(路宽) (14)

10、SJK1(平面数据库) (14)

11、SJK2(纵面数据库) (14)

12、SJK3(左路宽度数据库) (15)

13、SJK4(右路宽度数据库) (15)

14、SJK5(横坡数据库) (16)

15、SJK6(下边坡数据库) (16)

16、SJK7(左上边坡数据库) (17)

17、SJK8(右上边坡数据库) (18)

五、后记 (19)

CASIO 5800计算器公路工程测量程序

一、正算所涉及的计算公式

X

R i

d X

α

β

B

d Y

d l

d β

I

图表 1

在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标点。设:

A 点的X 坐标为X A ,Y 坐标为Y A ,A 点的切线方位角为α,A 点的曲率为ρA ,A 点的里程为L A ,

B 点的曲率为ρB ,B 点的里程为L B ,I 点的曲率为ρI ,I 点的里程为L I 。I 点的切线角为β。

由于回旋线上各点曲率半径R i 和该点至曲线起点的距离L 成反比。故此任意点的曲率为;

C

L

R i i ==

1ρ (c 为常数) (1) 由式(1)可知,回旋曲线任意点的曲率按线性变化,由此回旋曲线上里程为L i 点的曲率为;

A

B A

i A B A i L L L L --?

-+=)(ρρρρ (2) 当曲线右偏时ρB 、ρA 取正值,反之取负值。设:

A

B A

B L L M --=

ρρ ------ 曲率变化率 (3)

A i L L L -= ------ I 点至起点A 的距离 (4)

则有:

ML A i +=ρρ (5)

在I 点处取一微段,则有:

l i i

l

d R d d ρβ==

(单位为弧度) (6) 对上式进行积分并代入式(3)(4),则有;

????+=+=+==l

l

l

l

A l l A l A l i i ML L Ld M d d ML d 0000

2

2)(ρρρρβ (7) 因已知回旋曲线起点A 的切线方位角α,则里程为L i 点的切线方位角为:

i i βαα+= (8)

将式(7)代入式(8)得:

2

2

ML L A i ++=ραα(单位为弧度) (9)

对于式(9),当ρA =0,M=0时,则αi =α,式(9)变成计算直线段上任意点切线方位角的计算公式;当ρA =c (c 为常数),M=0时,则αi =α+ρA L ,式(9)变成计算圆曲线上任意点切线方位角的计算公式。

由图1中不难得出回旋曲线上任意点在路线坐标系下的坐标:

?+=l

l i A d X X 0)cos(α

?+=l

l i A d Y Y 0

)sin(α (10)

将式(9)代入式(10),即得本次编程计算基本公式:

?+++=l

l A A d ML L X X 0

2

)2cos(ρα

?+++=l

l A A d ML L Y Y 0

2

)2sin(ρα (11)

二、反算原理

X

α

B

A

β

C

图表 2

在图2中,A 点为已知坐标而待求对应中桩桩号及边距的点。B 点为假定的A 点对应中桩桩号点。显然,B 点并不对应于A 点。做出B 点的切线,过A 点做辅助线垂直于B 点的切线,相交于C 点。设:

B 点的切线方位角为α,B 点的桩号为K B ,B 点的坐标分别为X B 、Y B ,A 点的桩号为K A ,A 点的坐标分别为X A 、Y A ,“B-A ”的方位角为β,“B-A ”的距离为N , “B-

C ”的距离为L ,“C-A ”的距离为Z 。

根据前面的坐标正算的公式可以得到α,X B 、Y B 值。

根据计算器内置的Pol (X A -X B ,Y A -Y B )公式(直角坐标转换为极坐标)能得到β,N 值。

)cos(αβ-=N L (1) )sin(αβ-=N Z (2)

当L=0时,B 点是对应于A 点的,K B =K A ,Z 即为A 点的距中桩的距离。 当L ≠0时,则采用K B =K B +L,对B 点进行新的假定,进而再次对L 进行解算,直至L=0,或则L 值在容许误差范围之内。 三、高程数据库录入变换计算

H

L

O

i 1R 1

i 2

R 2

i 3

α1

α2

A

B C

D

图表 3

为利用前面已知的积分公式对高程进行求算,故需对设计给定的纵断面数据进行换算。如图3中所示,以高程H 轴代替平面坐标系的X 轴,以里程L 代替平面坐标系的Y 轴,以H 轴为起点,顺时针方向旋转而得到方位角α。

由设计图中已知数据为:纵坡i ,竖曲线半径R ,坡长L 等。

根据通用的纵断面高程计算公式,容易解算出每个线形变化点的里程及高程,即图3中,A 、B 、C 、D 点的“H 、L ”值。

由于纵坡坡度所采用的为坡度值,即:

L

H

i =

(1) 利用反三角函数,即能解算出以L 轴为起点,逆时针方向旋转的角值β。

)(tan 1i -=β (2)

β

显然: βα-=90 (3)

同时结合平面线元,凸曲线可以看为右偏线元,曲率取正值。反之为负值。

L

H

O

A'

B'

图表 4

由于积分程序代入运算的为坡线长度,即上图中的的0A 、AB ,而已知里程为水平距离,即上图中的0A ’、A ’B ’。所以在计算出起点积分运算的基本要素:图3中的(α,H ,L )后,我们需将水平距离L 换算为坡线长度L ’或弧线长度L~。

直线换算比较简单,利用三角函数即能得出下式:

)

90cos(α-=

'L

L (4)

竖曲线形式,一般采用二次抛物线或圆曲线,在圆心角很小而半径相对较大的使用范围内,二者的吻合是良好的。以下推导采用圆曲线作为竖曲线的形式。

卡西欧5800计算器坐标正反算程序

M = (1.0/Re-1.0/Rs)/Ls; x=∫{cos(Ta + L/Rs + 0.5*M *L*L),0,L}; y=∫{sin(Ta +L/Rs + 0.5*M *L*L),0,L}; a(i)= Ta +L/Rs + 0.5*M *L*L Rs:缓和曲线起点半径 Re:缓和曲线止点半径 Rs,Re (NE坐标系下,右偏为正,左偏为负) Ta:缓和曲线起点的真北方位角 Ls:不完整缓和曲线长度。 此公式为缓和曲线在坐标系下任意位置的通用积分公式,能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs NE”:“2.NE=>SZ”:?Q:?S:Prog“QXJS-SUB0”↙ Lbl 0:Q=1 => Goto1:Q=2 => Goto2:↙ Lbl 1:?Z:?G:Prog“QXJS-SUB1”:“N=”:N◢“E=”:E◢“F=”:F◢Goto4↙ Lbl 2: “N=”:?B: “E=”:?C:B→N: C→E:Prog“QXJS-SUB2”: “S=”:S◢: “Z=”:Z◢: Goto4↙ QXJS-SUB0 数据库子程序 Goto1↙同时保存多个曲线时的指针 Lbl 1 IF S<***(线元终点里程):Then***→A(线元起点方位角):***→O(线元起点里程):***→U(线元起点X):***→V(线元起点Y):***→P(线元起点曲率半径):***→R(线元终点曲率半径): ***→L(线元起点至终点长度): Return:IfEnd↙ IF S<***:Then***→A:***→O:***→U:***→V:***→P:***→R: ***→L: Return:IfEnd↙………………………..为了便于解读,每增加一个线元增加一行语句,每增加一条曲线增加一个Lbl,每增加一个工程增加一个文件。 QXJS-SUB1 正算子程序 0.5(1÷R-1÷P)÷L→D:S-O→X↙ U+∫(cos(A+(X÷P+DX2)×180÷π,0,X)→N↙ V+∫(sin(A+(X÷P+DX2)×180÷π,0,X)→E↙ A+(X÷P+DX2)×180÷π→F↙ N+Zcos(F+G) →N:E+Zsin(F+G) →E QXJS-SUB2 反算子程序 Lbl 1:0→Z:1→Q:Prog“QXJS-SUB0”: Prog“QXJS-SUB1”↙

卡西欧5800P计算器程序

卡西欧5800P计算器TYQXJSI坐标正反算 (经过修改) 1.主程序(TYQXJSI) 10→DimZ:"1.SZ → XY":"2.XY → SZ":?N:"XO"? U:"YO"? V:"SO"? O:"FO"? G:"LS"? H:"RO"? P:"RN"? R:? Q: 1÷P→C:(P-R)÷(2HPR) →D:180÷π→E:If N=1: Then Goto 1: Else Goto 2: IfEnd Lbl 1:"DK? +?"? S:?Z: Abs(S-O)→W:If W>H or SH or S157297: Then Prog”OPRP2-0”: Else Prog”OPRP1-50” IfEnd: IfEnd Else If N=3: Then Prog”OPRP4”: IfEnd :IfEnd

2. 正算子程序(SUB1) 0.1739274226 →Z[3]:0.3260725774→B:0.0694318442→K: 0.3300094782→L:(1-L) →F:(1-K)→M: (U+W(Z[3]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW (C+FWD))+ Z[3]cos(G+QEMW(C+MWD)))) →X: V+W(Z[3]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( C+FWD))+ Z[3]sin(G+QEMW(C+MWD))) →Y:G+QEW(C+WD)+90→F:(X+Zcos(F))→X:(Y+Zsin(F))→Y 注:Z[3]替代源程序A。 3. 反算子程序(SUB2) G-90 →Z[2]:Abs((Y-V)cos(Z[2])-(X-U)sin(Z[2])) →W:0→Z:Lbl 0:Prog "SUB1":Z[2]+QEW(C+WD)→L: (J-Y)cos(L)-(I-X)sin(L)→Z:If Abs(Z)<10^(-6):Then Goto1:Else W+Z→W:: IfEnd: Goto 0 Lbl 1:0→Z:Prog "SUB1":(J-Y)÷sin(F)→Z 注:Z[2]替代源程序T。 ] 4、隧道超欠挖计算(OPRP1) "PZ":Z-2.0→L◢

5800曲线道路全线坐标正反算(已验证)

CASIO fx-5800P线元法坐标正反算程序V2.0 说明:本程序适用于卡西欧计算器 CASIO fx-5800P,可对全线贯通坐标正反算、竖曲线高程计算。该程序可计算任意线型,包含(直线、圆曲线、缓和曲线、卵形曲线)等,还可以能通过坐标反推该点里程和距中线距离,适用测量员专用。 主程序名:ABCYT 第1步Deg:Fix 3:10→DimZ 第2步Lbl 3:"1.DK=>XY":"2.XY=>DK":"Q"?W:"K0+"?S:Prog"ABCYTSJ":If P=0:Then 10^(45)→P:IfEnd:If R=0:Then 10^(45)→R:IfEnd 第3步1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:If W=1:Then Goto 1:Else Goto2:IfEnd 第4步Lbl 1:"E"?Z 90=N:Abs(S-O)→W:Prog "ABCYTZ" 第5步Cls:"F=":Locate 3,1,F°:"X=":Locate 3,2,X:"Y=":Locate 3,3,Y◢ 第6步Prog"ABCYTSQX":Cls:"H=":Locate 3,1,H◢ 第7步1→W:90→N:Goto 3 第8步Lbl 2:?X:?Y:X→I:Y→J:Prog"ABCYTF":O+W→S 第9步Cls:"K=":Locate 3,1,S:"E=":Locate 3,2,Z◢ 第10步2→W:Goto 3 正算子程序名:ABCYTZ 第1步0.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L 第2步1-L→F:1-K→M 第3步U+W×(A×cos(G+Q×E×K×W×(C+K×W×D))+B×cos(G+Q×E×L×W×(C+L×W× D))+B×cos(G+Q×E×F×W×(C+F×W×D))+A×cos(G+Q×E×M×W×(C+M×W×D)))→X 第4步V+W×(A×sin(G+Q×E×K×W×(C+K×W×D))+B×sin(G+Q×E×L×W×(C+L×W× D))+B×sin(G+Q×E×F×W×(C+F×W×D))+A×sin(G+Q×E×M×W×(C+M×W×D)))→Y 第5步G+Q×E×W×(C+W×D)→F:F+ N→Z[1] 第6步X+Z×cos(Z[1])→X:Y+Z×sin(Z[1])→Y 反算子程序名:ABCYTF 第1步Lbl 2:(S-O)→W:0→Z:Prog "ABCYTZ":F-90→Z[9]:(J-Y)×cos(Z[9])-(I-X)×sin(Z[9])

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":

卡西欧5800计算器工程应用程序.

卡西欧5800计算器测量专用程序 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。 3、高程计算修改, 4、附计算坐标及高程参数设计要素输入实例 二、源程序(绿色为程序名;蓝色为输入计算器内容)0.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按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":WhileEnd: While Z[3]=33:Prog"9SD":WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: 1.主程序:一般坐标计算及放样程序

CASIO fx-5800P计算器测量程序设计2.1版

CASIO fx-5800P计算器测量程序设计2.1版 一、程序功能 主要功能:采用线元法与交点法相结合计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本特点:1、建主程序合并原所有计算类型,在主程序中可选择操作类型。隧道欠超挖增加变量衬砌厚度,因有设计衬砌厚度根据石岩来定的。增加锥坡放样计算。 二、源程序 1.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后输入1~9数子则选择1至9的程序,返回时,在桩号输入-1,返回选择选择计算类型。输入-2,返回选择线路。坐标计算中输入-3,则显示本段曲线要素。 程序名:0ZCX LbI Q: 15→DimZ:Norm 2:1→A:"A:XY=1,ZD=2 ,GC=3,GD=4,BP=5,FM=6,ZP=7,JS=8,SD=9"?A: A=1=>Goto 1:A=2=>Goto 2:A=3=>Goto 3:A=4=>Goto 4: A=5=>Goto 5:A=6=>Goto 6:A=7=>Goto 7:A=8=>Goto 8:

A=9=>Goto 9 LbI 1:Prog "DX":LbI A:Prog"QX":90→B: "PJ1"?B:B→C: "PJ2"?C:B→Z[1]:C→Z[8]:LbI B:1→F: "KM"?Z:Z= -1=>Goto 0:Z=-2=>Goto A:Z=-3=>Goto X:Prog"KM":?D:Porg"THB":O→L: "L0"?L:Z[2]+Z[1]-Z[8] →E:X+L cos(E) →X:Y+Lsin(E) →Y:Prog"XY":Prog"JS":Goto B LbI 2:2→F:90→Z[1]:Prog"QX":LbI C: "KM"?Z: Z=-1=>Goto 0:Z=-2=>Goto 2:Z=-3=>Goto X:Prog"KM": "X O"?X: "Y0"?Y:Prog"THB":Porg"ZD":Goto C: LbI 3:Prog"QX":0→B: "H-B"?B:B→Z[9]:LbI D: "KM"?Z: Z=-1=>Goto 0:Z=-2=>Goto 3:?D:Porg"H":Fix 3: "H=":Lc oate 6,4,H-Z[9] ◢ "I=":Locate 6,4,I◢Goto D LbI 4:Prog"QX":LbI E: "KM"?Z:Z=-1=>Goto 0:Z=-2=>Goto 4:?D:Prog"GD":Fix 3: "SJGD=":Locate7,4,L◢Goto E LbI 5:Prog"QX":0.5→B:"TH-GD"?B:B→Z[15]:LbI F:2→F:90→Z[1]:"KM"?Z:Z=-1 =>Goto 0:Z=-2 =>Goto 5:Prog"KM": "X0"?X: "Y0"?Y:0→M:”M0”?M: M→Z[4]:Prog"3FBZ"Fix 2:Z[3] →D:Abs(D)-S→O: "L0=":Locate 6,4,O◢Prog"ZD": Z[5]→T:"TW=":Lcoate 6,4,T◢Goto F: LbI 6:Prog"DX":LbI G:Prog"QX":LbI H:1→F:90→Z[1]: "K M"?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog"KM":?D:Prog"TH

卡西欧fx-5800计算器缓和曲线编程

1fx-5800P计算器编程 缓和曲线程序 14→DimZ :“ZHK”:?K:?R :? A:?L:? T:? F:“Y+1,Z-1”:?P:“JDX”:?Q:“JDY”:?W:180÷(πR)→Z:0.5L-L^3÷(240R2)→Z[8]:“LZ”:ZL÷2→B:A÷Z+L→Z[13]◢ “ZHK=”:K◢ “HYK=”:K+L→Z[1]◢ “YHK=”:K+ Z[13] -L→Z[2]◢ “HZK=”:K+ Z[13]→Z[3]◢ “ZHX=”:Q+Tcos(F+180)→U◢ “ZHY=”:W+Tsin(F+180)→V◢ “HZX=”:Q+ Tcos(F+PA)→Z[6]◢ “HZY=”:W+ Tsin (F+PA)→Z[7]◢ Lb1 0:“CDZH”:?M If M≤K:Then Goto 6:Else If M≤Z[1] :Then Goto 1:Else If M≤Z[2] :Then Goto 2:Else If M≥Z[3] :Then Goto 7:Else If M≥Z[2] :Then Goto 5:If End:If End:If End:If End:If End Lb1 1:M-K→G:√((G-G^(5)÷(40L2R2)+G^(9)÷(3456R^(4)L^(4)))2+(G^(3)÷(6RL)-G^(7)÷(336R^(3)L^(3)) +G^(11)÷(42240R^(5)L^(5)))2)→D F+PZG2÷(6L)→C:F+PBG2÷L2→H:Goto 3 Lb1 2:M-Z[1]→G:R(1-cos(B+ZG))+L2÷(24R)→Z[9]:√(Z[9]2+(Rsin(B+ZG)+Z[8])2)→D F+Ptg-1(Z[9]÷(Rsin(B+ZG)+Z[8]))→C:F+P(B+ZG)→H Lb1 3 “X=”:U+Dcos(C)→X◢ “Y=”:V+Dsin(C)→Y◢ Lb1 B:“ZBJS1,FY-1”:?J If J>0:Then Goto 4:Else If J〈0:Then Goto A:If End:If End Lb1 4:“ZB”:?S “ZBX”:X+Scos(H-90)◢ “ZBY”:Y+Ssin(H-90)◢ “YB”:?N “YBX”:X+Ncos(H+90)◢

卡西欧5800公路坐标正反算程序教程文件

卡西欧5800公路坐标正反算程序

目录 一、坐标正算基本公式 (02) 二、坐标反算原理 (04) 三、高程数据库录入变换 (05) 四、计算器程序 (07) 01、ZBZS(坐标正算) (07) 02、ZBFS(坐标反算) (08) 03、GCJF(高程积分) (09) 04、PJFY(坡脚放样) (10) 05、JFCX(积分程序) (11) 06、ZBFY(坐标放样) (11) 07、DT(递推) (12) 08、HP(横坡) (13) 09、LK(路宽) (14) 10、SJK1(平面数据库) (14) 11、SJK2(纵面数据库) (14) 12、SJK3(左路宽度数据库) (15) 13、SJK4(右路宽度数据库) (15) 14、SJK5(横坡数据库) (16) 15、SJK6(下边坡数据库) (16) 16、SJK7(左上边坡数据库) (17) 17、SJK8(右上边坡数据库) (18) 五、后记 (19) CASIO 5800计算器公路工程测量程序

一、正算所涉及的计算公式 X R i d X αβB d Y d l d βI 图表 1 在图1中,A 点为回旋曲线起点,B 点为回旋曲线止点,I 点为所求坐标 点。设: A 点的X 坐标为X A ,Y 坐标为Y A ,A 点的切线方位角为α,A 点的曲率为 ρA ,A 点的里程为L A ,B 点的曲率为ρB ,B 点的里程为L B ,I 点的曲率为ρI ,I 点的 里程为L I 。I 点的切线角为β。 由于回旋线上各点曲率半径R i 和该点至曲线起点的距离L 成反比。故此任 意点的曲率为; C L R i i ==1ρ (c 为常数) (1) 由式(1)可知,回旋曲线任意点的曲率按线性变化,由此回旋曲线上里程为L i 点的曲率为; A B A i A B A i L L L L --?-+=)(ρρρρ (2) 当曲线右偏时ρB 、ρA 取正值,反之取负值。设:

计算器编程(修改版5800)

FX5800计算器公路测量常用程序集2.3 版 一、程序功能 主要功能:采用交点法方式计算多条线路坐标正反算,可算任意复杂线型及立交匝道,包括C型,S型、卵型、回头曲线等;极坐标放样,全线路基边坡开挖口及坡脚放样计算、路基任意点设计高程、横坡、设计半幅宽度.隧道欠超挖放样计算。 新版本优化:1、优化程序语句、2、取消原线元法计算,化线元法为交点法。 3、高程计算修改, 4、附计算坐标及高程参数设计要素输入实例 二、源程序(绿色为程序名;蓝色为输入计算器内容)红色为网友调试后修改笔误。 0.总主程序(1、坐标计算放样程序2、坐标反算程序;3、高程计算查阅程序;4、路基半幅标准宽度查阅程序;5、路基边坡及开挖口放样程序;6、路基标准距离放样;7、桥梁锥坡计算放样程序;8、极坐标计算程序;9、隧道超欠挖计算程序)运行后按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":WhileEnd: While Z[3]=33:Prog"9SD":WhileEnd:LpWhile Z[3]≠25:”XIE XIE SHI YONG”: 1.主程序:一般坐标计算及放样程序 程序名:1XY Prog "DX":Prog"QX":90→A: "PJ1"?A:A→B: "PJ2"?B:A→Z [1]:B→Z[9]: Do:"KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": ? D: 0→L: "L0"?L:L→Z[10]: Porg"A":Z[2]+Z[1] →A :A-Z[9]→E:I+Dcos(A)+Z[10]cos(E→X:J+Dsin(A)+Z[10]sin(E→Y:Prog"XY": Prog"JS":LpWhile Z≠-1 2.主程序:由大概桩号及坐标反算桩号及距离 程序名:2ZD Prog"QX":Do: "KM"?Z:Z=-1=>Stop:Z=-2=>Break: Prog"K": "XO"?X: "Y0"?Y: Porg"B": Prog"ZD":LpWhile Z≠-1 3.主程序:任意点高程计算及横坡 程序名:3GC P rog"QX":0→B: "H-B"?B: B→Z[9]: Do: "KM"?Z:Z=-1=>Stop: Z=-2=>Break:?D:Prog"H":Fix 3: " H=": Locate 6,4,H-Z [9]:" I=":Locate 6,4,I:LpWhile Z≠-1

公路测量卡西欧5800万能程序

一、前言本程序是《CASIO fx-5800P计算与道路坐标放样计算》中道路坐标放样计算程序的升级改进版本。原道路坐标放样计算程序只基于道路的单个基本型曲线,有效计算范围仅包括平曲线部分和前后的两条直线段,使用时需要输入平曲线设计参数,无坐标反算桩号功能。改进后的程序名称为:道路中边桩坐标放样正反算程序(全线贯通),增加了可实现全线贯通的数据库功能和坐标反算桩号功能,主要是: 1.使用道路平面数据库子程序,可将一段或若干段道路的交点法格式平面参数(可容易从直线、曲线及转角表中获得)以数据库子程序形式输入计算器,程序在计算时省却了输入原始数据的麻烦; 2.坐标正算方面,输入桩号即可进行道路的中、边桩坐标计算,若输入了测站坐标,还可同时计算全站仪极坐标放样数据(拨角和平距); 3.坐标反算方面,输入平面坐标,即可计算对应的桩号和距中距离(含左右信息); 4.对于存在断链的道路,可分段分别编写数据库子程序,然后在主程序中添加一个路段选择的功能即可实现(可参照立交匝道程序中匝道的选择)。程序的特点: 1.可进行中桩坐标的正、反算,程序代码简洁,便于阅读和改写; 2.主程序通过调用数据库子程序,省却了使用时输入平面参数的繁琐; 3.使用数据库子程序,换项目只需改写数据库子程序,程序通用性强。二、道路示例项目基本资料基本资料同《CASIO fx-5800P计算与道路坐标放样计算》第6章HY高速公路第2合同段(合同段起止桩号: K4+800~K9+600)。这里摘取直线、曲线及转角表资料如下.

.

. 三、程序代码 .

. .

. .

5800计算器公路三维全能程序.(丢掉图纸轻松测量)(棋走四方超牛)!

请大家不要因为我的程序去买5800计算器了,建议买9860,我有时间了,就把这个程序改成9860 本程序比较复杂.测量原理不是很明白的朋友慎用 请大家经常关注程序B-H的更新 2009,5,10日修改见超高子程序B-H黄色部分,另超高数据库增加在超高缓和段输入超高为公路外侧超高说明 2009,5,8日正反算选择程序:ZS-FS 更改小错,详见紫色修改内容 2009,4,30日更改如下:把原来的4个子程序分解成5个子程序,解决了一个大的竖曲线不能包含几个超高变化段,另外程序内也有两处改变请看红色区域. 本程序经过综合考虑5800的设计缺陷,计算速度较慢故只使用高斯四节点法为计算内核.支持多条线路正反算,中桩,边桩高程计算,超高计算,超高缓和计算,加宽计算,加宽缓和计算,边坡开口线计算,挡土墙坡脚线计算,考虑了中间绿化带的影响,适用与国家高速公路至乡村四级公路计算和放样,路基路面工程可以直接得出中边桩的设计三维坐标,去掉加宽和超高影响的计算困难,边坡和坡脚线计算可直接在边坡上提取坐标带入程序,经过所有设计因素的综合,得出更改边距并显示修改偏差后的坐标.反算速度明显提高,只需要3秒.程序无错,可放心输入,另本程序可以增加隧道超欠挖计算子程序,非常方便,因为每个隧道的断面数据不一样,所以在此没有明确写出,有需要的可以联系我.本人QQ76805071,只为交友. 计算器主程序:ZHU-CHENG-XU Lbi0:“1,ZS=FS,2ZS,3FS,4XY=>SG,5。。。。。。。”?U: U=1=>Prog”ZS-FS”:进入公路三维程序 U=2=>Porg”ZS”:进入坐标正算程序 U=3=>Porg”FS”:进入坐标反算程序 U=4=>Porg”XY =>SG”:进入大地坐标转施工坐标程序 …………Goto0: 说明:计算器总的主程序,进入选择各种分支计算程序。1为公路三维计算,2为普通正算,3为普通反算,4为大地坐标转施工坐标。。。。。。。。选择错误重新选择。此程序可以不用输入,只为给大家一个思路,可以把计算器所有程序集中到一个主程序内管理. 公路三维部分 正反算选择程序:ZS-FS Deg: //设置角度模式 20→DimZ: //扩展变量 “1LZ=>XY,2XY=>LZ,3BIANPO-FY”?U://正反算选择,正算选1,反算选2,坡口坡脚选3 If U=1: ThenProg”ZS-XH”:IfEnd://进入正算循环主程序 IfU=2:Then Prog”FS-XH”:IfEnd: //进入反算循环主程序 IfU=3:ThenProg”BP-FY”:IfEnd://进入边坡开挖主程序 正算循环主体程序ZS-XH “1PT-2SJ”?W://普通计算和设计边距计算选择 “XL-XZ“?U://选择线路1~N

5800简单全线坐标计算程序

5800全线任意坐标计算程序 1. 正算主程序(ZHCX) (不运行) 8→DimZ 1÷P→Z[4 ]:(P-R)÷(2HPR)→D: 180÷π→E “Z=”?Z:”YJJ=”?A:Abs(S-O)→W 0.26→Z[1 ]: 0.74→B: 0.02→K: 0.82→Z[3 ]: 1-Z[3 ]→F:1-K→Z[2 ] U+W(Z[1 ]cos(G+QEKW(Z[4 ]+KWD))+Bcos(G+Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+Bcos(G+QEFW (Z[4 ]+FWD))+ Z[1 ]cos(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→X: V+W(Z[1 ] sin (G+QEKW(Z[4 ]+KWD))+B sin(G+ Z[3 ]QEW(Z[4 ]+ Z[3 ]WD))+B sin(G+QEFW (Z[4 ]+FWD))+ Z[1 ] sin(G+ Z[2 ]QEW(Z[4 ]+ Z[2 ]WD)))→Y: G+QEW(Z[4 ]+WD)→F:X+Zcos(F+A)→X:Y+Zsin(F+A)→Y:If F≧360:Then F-360→F:IfEnd ”X=”:X→X◢ ”Y=”:Y→Y◢ If F﹤0:Then F+360→F:IfEnd ”QX FWJ=”:F▼DMS◢ “C=1=>XX: C=2=>XZ”: ”C=”?C: ”QHJU=”?L: If C=1:Then Goto 1:Else Goto 2: IfEnd 可以计算斜交斜做或斜交正做的桥涵坐标 Lbi 1 X+L cos(F)→X:Y+Lsin(F)→Y: Goto 3 Lbi 2 X+L cos(F+A-90)→X:Y+Lsin(F+A-90)→Y: Goto 3 Lbi 3 “QH-X=”: X →X◢ “QH-Y=”: Y →Y◢ Prog “FY” 2 . 参数子程序(直接运行) M(主线) 一条线路一个名称 “S=”?S If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEnd … … If S≦线元终点:Then 线元起点X值→U: 线元起点Y值→V:线元起点切线方位角→G:线元起点桩号→O:线元长度→H:线元起点半径→P:线元终点半径→R:(左偏-1,或右偏 1)→Q:Goto 1:IfEnd Lbi 1 Prog “ZBJS” 3. 放样程序(FY)(不运行) “X0=”?M:“Y0=”?N Pol((X-M, Y-N)

【2019年整理】CASIO5800计算器测量计算程序

CASIO 5800计算器测量计算程序 来自: ritsing(祥瑞之士) 2009-08-17 14:51:21 简要介绍: 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 后没有标号4的。 ④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 ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then

卡西欧5800p计算器所有编程命令解释

卡西欧5800p计算器所有编程命令解释 1. Norm 1 指数显示Norm 2 小数显示2. ?→x 只显示? 字符+?→x 显示字符+? ?x 显示x? “字符”?x 显示字符+? 有→则不显示该变量当前值 3.(判断表达式)语句1 : 语句2。。。如果判断表达式为真(或非零),则不跳过语句1. 如果判断表达式为假(或是零),则会跳过语句1. 4. If...then…else…ifend 如果语句为真,则执行then(不执行else),然后执行ifend. 如果语句为假,则执行else(不执行then),然后执行ifend. 5. Break 中断语句 中断For,Do,While循环,并从该循环的下个命令起继续运行 6. Dsz 使控制变量递减一,在变量的值为零时执行转移7. Isz

Isz<变量>:<语句1><语句2>,变量应为A~Z 以1 为增量逐次增加变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2 8. Cls Dsz<变量>:<语句1><语句2>。变量应为A~Z。以1 为减量逐次减小变量的值,当变量的值不等于0 时,执行语句1,否则执行语句2 9. Locate 定位显示语句 句法1:Locate <列数>, <行数>,<数值> 句法2:Locate <列数>, <行数>,<表达式> 句法3:Locate <列数>, <行数>, "字符串" fx-5800P 的屏幕最多可以显示4 行、16 列字符,因此定位语句中的列数值应为大于等于1、小于等于16 的整数,行数值应为大于等于1、小于等于4 的整数。 10. Lbi n ~ Goto n Goto n~Lbl n 无条件转移至Lbi n 位置 11. Getkey 返回与上次按键相对应的代码,Getkey= 12. DO ~ LpWhile循环语句 Do <语句块> LpWhile<条件> 先执行语句块,然后测试条件,条件为真时重复执行语句块,否则执行<条件>后的语句。无,论条件是否为真,语句块至少被执行一次。13. Pol 计算两坐标点之间距离,坐标为(4,4),与原点的距离就是POL(4,4)=4√2 14. Abs 求绝对值15. Fix 取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数16. Rnd 随机函数

工程测量中fx5800P计算器基本程序

工程测量中fx-5800P计算器基本程序 的编写及实际放线的应用 刘兵策刘杰 摘要在日常工程测量工作中,计算器是必不可少的工具。目前行业内用fx-5800P。 本文介绍测量工作中坐标正反算、大地转施工、施工转大地等常用程序的原理及编写,并 对其比较复杂的实际放线的灵活应用进行解析,为类似的测量工作提供借鉴。 关键词工程测量fx-5800P程序应用 1 引言 控制测量是施工的基础,为了便于施工,放线一般使用施工坐标系,坐标轴平行于建筑物主轴线。对于建筑物主轴线与坐标轴不平行的,为了方便放线,一般不再改变坐标系,用计算器程序进行计算,迅速判断需要定位的点。 利用fx-5800P计算器根据测出的坐标数据计算出与设计图纸上的差值,指挥棱镜进行移动,找到准确的设计位置。测量工作中主要用到坐标正反算,大地转施工,施工转大地等常用程序,下面介绍这几个程序的原理和编写,总结一些在实际工作中的应用。 2 Fx-5800计算器程序的原理与编写 2.1 大地坐标转换为施工坐标 大地坐标转换为施工坐标见图1。 Xp、Yp分别是P点在XOY坐标系中的纵横坐标,xp, yp分别是xo’y坐标系中的纵横坐标值,Xo,Yo分别是 xo’y坐标系的坐标原点o’在XOY坐标系中的纵、横坐 标值,Δα为两坐标系坐标纵轴的夹角。 将P点从XOY坐标系转换到xo’y坐标系中, 即大地转施工的公式如下:图1 大地坐标与施工坐标转换图 xp=(Yp-Yo)sinΔα+(Xp-Xo)cosΔα; yp=(Yp-Yo)cosΔα-(Xp-Xo)sinΔα; 用fx-5800P编制程序时,只要输入大地坐标的原点o’的坐标和要转换的点P点的大地坐标,即在坐标系XOY坐标系中的坐标,再用上述公式带入,输出P点的施工坐标。基本程序如下:

CASIO 5800计算器测量计算程序

CASIO 5800计算器测量计算程序 上上月做这个东西的时候没仔细检查,有好几处输错了的地方,今天把它修改过来。 简要介绍: 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 后没有标号4的。 ④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 ⑧M→Z ⑨Lbl 4:”SG”?Z:Z→M:If Abs(Z)=1: Then Prog “GG”:Y→Z:If X=1:Then

相关文档
最新文档