CASIO fx5800p全线高程计算程序

卡西欧5800p道路纵断面高程计算

卡西欧5800P计算器道路纵断面高程计算通用程序广西水利电力职业技术学院11级工程测量班曾礼明1.“ZP:1 OR SQX:2”：？→A2. If A=1:then Goto1:IfEnd3. If A=2:then Goto2:IfEnd4. LbI 1:“BPZ=”?B:”BPG=”?C:”PL=”?D:LbI 3:”K=”?K5. C+(K-B)*D→H:”H=”:H⊿Goto36. LbI 2:”BPZ=”?B:”T=”?T : “BPG=”？C : “PL1=”？E : “PL2=” ?F : “R=” ?R :LbI 4 : “K=” ?K7. B-T→J8. B+T→L9. If K≥J And K＜B:Then C+(B-K)*-E→M:IfEnd10. If K≥J And K＜B:Then(K-J) ²/（2*R）→N IfEnd11. If K＞B And K≤L:Then C+(K-B)*F→O:IfEnd12. If K＞B And K≤L:Then (L-K) ²／(2*R) →P :IfEnd13. If E-F＞0:Then M-N →H: ”H=”:H⊿IfEnd14. If E-F＜0:Then O+P →H: ”H=”:H⊿IfEnd :Goto 4程序结束程序说明：变量含义变量含义B 变坡点桩号K 所求桩号C 变坡点高程H 所求桩号的设计地面高程D 纵坡坡率J 竖曲线起点桩T 竖曲线切线长L 竖曲线终点桩E 竖曲线坡率1 N、P 竖曲线纵距F 竖曲线坡率2 M、O 竖曲线处纵坡高程R 竖曲线半径使用说明：直坡段与竖曲线段要分开计算1．提示“ZP:1 OR SQX:2”，ZP表示纵坡、SQX表示竖曲线，根据需要输入对应的1或者2。

2．对于纵坡，提示BPZ表示纵坡变坡点即纵坡起点桩号，BPG 表示纵坡变坡点即纵坡起点桩号的设计高程，PL表示该段纵坡坡率，K表示所要求的桩号。

fx5800P程序(曲线任意里程中边距坐标正反算及高程)

fx5800P程序（曲线任意里程中边距坐标正反算及高程）TYQXJS(主程序）LbI 6:"1.SZ→XY"↙"2.XY→SZ"?S:?N:Prog"SUB0"↙1÷P→C:(P-R)÷(2HPR)→D:180÷π→E:N=1=＞Goto1:Goto2↙LbI 1:?Z:Abs(S-O)→W↙<LbI1:?K:K-2.35→Z:Abs(S-O)→W↙> Prog"SUB1"↙(红字换成后面的就是以中线）"XS=":X◢↙"YS=":Y◢↙"FS=":F-90▶DMS◢↙Goto 6↙LbI 2:?X:?Y↙X→I:Y→J↙Prog"SUB2":O+W→S:Cls↙"S=":S→S◢↙"Z=":Z◢↙<"Z=":Z-2.35◢↙>(上述中红色均可以换成<...>里的，计算出来的偏距为中线准）(顶点高程)→A:(上导高程）→B:（中导高程）→K:：（下导高程）→T:（仰拱低高程）→L↙(本程序现为3台阶7部法施工设计的，如有不同情做适当修改;同时,上述各高程必须与下面计算的S相对应，就是必须是同一里程的数据）"AH=":A+(<标点里程﹥-S）×1.08％◢↙"BH=":B+(<标点里程﹥-S）×1.08％◢↙"CH=":K+(<标点里程﹥-S）×1.08％◢↙"DH=":T+(<标点里程﹥-S）×1.08％◢↙"EH=":L+(<标点里程﹥-S）×1.08％◢↙"Z=":Z◢↙Goto 6↙SUB1（子程序）0.1739274226→A:0.3260725774→B↙0.0694318442→K:0.330009482→L↙1-L→F:1-K→M↙G+QEKW(C+KWD)→Z[1]↙G+QELW(C+L WD)→Z[2]↙G+QEFW(C+FWD)→Z[3]↙G+QEMW(C+MWD)→Z[4]↙A×cos(Z[1]﹚→X↙X×Bcos(Z[2]﹚→X↙X×Bcos(Z[3]﹚→X↙X×Acos(Z[4]﹚→X↙U+WX→Y↙Asin(Z[1])→Y↙Y+Bsin(Z[2])→Y↙Y+Bsin(Z[3])→Y↙Y+Asin(Z[4])→Y↙V+WY→Y↙G+QEW(C+WD)+90→F↙X+Zcos(F)→X↙Y+Zsin(F)→Y↙SUB2（子程序）G-90→T↙(Y-V)cos(T)-(X-U)sin(T)→W↙Abs(W)→W:0→Z↙LbI 6:Prog"SUB1"↙T+QEW(C+WD)→L↙(J-Y)cos(L)-(I-X)sin(L)→Z↙If Abs(Z)﹤0.000001:Then 0→Z:Prog"SUB1"↙(J-Y)÷sin(F)→Z↙Else W+Z→W:Goto 0:IfEnd↙SUB 0LbI 1:If S＜(元线终点里程）：Then(元线起点里程）→O:（元线起点X 坐标）→U:（元线起点Y坐标）→V:(元线起点计算方位角）→G:(元线起点半径）→P:(元线终点半径）→R:(元线长度）→H:(元线偏向标志-为左+为右）→Q:Return:IfEnd↙.............................................(可无限重复，有多少段就可以输入多少段得要素）注意：显示S代表里程，Z代表偏距，N代表选择（1）正算或（2）反算，X.Y为坐标。

5800p高程程序

CASIO-5800P路面高程控制测量程序（一）“XXX”主程序(注：本程序用“_”代替空格，其余均无空格)Clr Mat：Fix 3：Clr stat：FreqOn0→M(数字零)Cls：“1ZX_2YX”？→ECls：？KE=1＝＞prog“ZX”E=2＝＞prog“YX”Mat C[1,1] →F:Mat C[1,2] →Z:Mat C[1,3] →X:Mat C[1,4] →Y:Mat C[1,5] →R:Mat C[1,6] →B:Mat C[1,7] →GX/100→X:Y/100→YRabs(Y-X)/2→TCls:“HS”？A: “BM(HS)”?C:Cls:“SXG=”:Locate5,1,A+C◢Lb1 A:Cls: “QS”?PCls:?KIf K<F or K>Z:Then Cls :Locate6,2, “K Out ！”◢Stop :If EndIf Y>X:Then 1→W:Else -1→W:If EndIf K<B:Then -X→I:Else Y→I:If EndAbs(B-K) →LIf L>T:ThenG+IL→H:Cls:“H（ZZ）=”:Locate7,1,H◢Goto B:ElseG+IL+W(T—L) 2(平方)/2/R→H：Cls:“H(ZZ)=”Locate7,1,H◢Goto B:If EndLb1 B:“JGC（H）”？O“BJ”？N11→Dim Z“ZXHP__YXHP”? →JJ=1＝＞Prog“ZXHP”J=2＝＞Prog“YXHP”Mat D[1,1] →Z[2]:Mat D[1,2] →Z[3]:Mat D[1,3]→Z[4]:Mat D[1,4]→Z[5]:Mat D[1,5]→Z[6]:Mat D[1,6] →Z[7]:Z[4]+((Z[5]-Z[4])*(K-Z[3])):(Z[2]-Z[3]) →U:Z[6]+(Z[7]-Z[6])*(K-Z[3]))/(Z[2]-Z[3]) →SCls:If N≤0:Then H-0-U(N+1)/100→V:Else H-0+S(N+1)/100→V:If endCls :V-A-C+P→QCls:“HC=”: “HS=”:Loacte6,1,A+C-P:Locate6,2,V◢Cls:“H=”:Locate6,1,Q◢M+1→M:K→List→X[M]:V→List Y[M]:Q→List Freq[M]Goto A:If end（二）“ZX”（主线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(三)“ZXHP”（主线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，左幅起点横坡（只需输入横坡%前数字且低于中线为负），左幅终点横坡，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1(四)“YX”（右线竖曲线）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一曲线起点或本线路终点桩号：Then [[上一曲线终点或本线路起点桩号，下一曲线起点或本线路终点桩号，前纵坡（只输入%前的数字且上坡为正，下坡为负需输入负号），后纵坡（同上），本曲线半径，本曲线交点桩号，本曲线标高]]→Mat C：Goto 1 ：IfEnd ……………………………………………同理循环输入………………………………………LbI 1（五）“YXHP”（右线横坡）子程序If K<本线路起点桩号Or K>本线路终点桩号：Then Cls ：Locate 6,2，“K_ ERR!”◢Stop ：IfEndIf K≤下一横坡起变点或本线路终点桩号：Then [[下一横坡起变点或本线路终点桩号，上一横坡起变点或本线路起点桩号，0（此为数字零，一般左线为主线），0，右幅起点横坡，右幅终点横坡]] →Mat D：Goto 1 ：IfEnd……………………………………………同理循环输入………………………………………LbI 1。

5800全线高程计算程序

CASIO fx5800p全线高程计算程序GAOCHEN 主程序Lbl 1“KM=，<0,Stop”:?K：K<0=>Stop:“PY=”？L：Prog”GK”C-D→E:Abs(RE/2)→T：R(Abs(E)/E)→RIf K≤B-T:Then 0→H:Else:If K≥B+TThen 0→H:D→C:Else K-B+T→H:Ifend:IfendA-(B-K)C-H2/(2R)→G：Cls“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3“H=”：Locate 4，2，GProg “PODU”：（E-B）/（D-A）（K-A）+B→I：(F-C)/（D-A）（K-A）+C→J “HL=”：G+IL→X：Locate 4，3，X：Locate 11，3，“I=”：Locate 13，3，I*100 “HR=”：G+JL→Y：Locate 4，4，Y：Locate 11，4，“I=”：Locate 13，4，J*100◢显示中边桩高程Cls：Norm 2：“BM+HS≤0,Goto 1”？Z：Z≤0=> Goto 1：Cls (输入视线高)“KM=”：Locate 4，1，K：Locate 10，1，“PY=”：Locate 13，1，L：Fix 3 “QSM=”: Locate 6，2，Z-G (显示中桩读数)“QSL=”: Locate 6，3，Z-X (显示左桩读数)“QSR=”: Locate 6，4，Z-Y◢(显示右桩读数)Norm 2：Cls：Goto1（后面可加已知视线高计算读数部分，不想计算读数则视线高输入0或负数如不想显示麻烦，可将Locate语句去掉）以下两个子程序不需运行，只是两个独立的数据库赋值程序，字母重复不影响计算结果GK 数据库子程序If K≤第二曲线起点桩号：Then 第一曲线交点高程→A：第一曲线交点桩号→B：第一曲线前坡→C：第一曲线后坡→D：第一曲线半径→R（凸正凹负）：Return：Ifend…………….（有几个变坡点编几个If语句）If K≤76004：Then 622.890→A：75400→B：-0.005→C：-0.026→D：20000→R：Ret urn：IfendIf K≤77150：Then 602.350→A：76190→B：-0.026→C：0.005→D：12000→R：Retu rn：IfendIf K≤78420：Then 608.300→A：77380→B：0.005→C：--0.018→D：20000→R：Ret urn：IfendIf K≤79310：Then 585.260→A：78660→B：-0.018→C：-0.024→D：80000→R：Ret urn：IfendIf K≤80518.50：Then 564.380→A：79530→B：-0.024→C：-0.016→D：55000→R：R eturn：IfendIf K≤82230：Then 545.340→A：80720→B：-0.016→C：0.015→D：13000→R：Ret urn：IfendPODU 计算坡度子程序If K≤第一变（非变）坡段终点：Then 第一曲线起点桩号→A：第一曲线起点左坡→B：第一曲线起点右坡→C：第一曲终点桩号→D：第一曲终点左坡→E：第一曲终点右坡→F：Return：Ifend………………（每一个超高变化线元一个If语句）If K≤75884.442：Then 75000→A：-0.02→B：-0.02→C：75984.442→D：-0.02→E：-0.02→F：Return：Ifend(直线段)If K≤75984.442：Then 75884.442→A：-0.02→B：-0.02→C：75984.442→D：-0.03→E：0.03→F：Return：Ifend(JD66)If K≤76452.111：Then 75984.442→A：-0.03→B：0.03→C：76452.111→D：-0.03→E：0.03→F：Return：Ifend(JD66)If K≤76552.111：Then 76452.111→A：-0.03→B：0.03→C：76552.111→D：-0.02：-0.02→F：Return：Ifend(JD66)If K≤78271.813：Then 76552.111→A：-0.02→B：-0.02→C：78271.813→D：-0.02→E：-0.02→F：Return：Ifend(直线段)If K≤78371.813：Then 78271.813→A：-0.02→B：-0.02→C：78371.813→D：-0.03→E：0.03→F：Return：Ifend(JD67)If K≤78870.831：Then 78371.813→A：-0.03→B：0.03→C：78870.831→D：-0.03→E：0.03→F：Return：Ifend(JD67)If K≤78970.831：Then 78870.831→A：-0.03→B：0.03→C：78970.831→D：-0.02→E：-0.02→F：Return：Ifend(JD67)If K≤79284.976：Then 78970.831→A：-0.02→B：-0.02→C：79284.976→D：-0.02 3→E：-0.02→F：Return：Ifend(直线段)If K≤79404.976：Then 79284.976→A：-0.02→B：-0.02→C：79404.976→D：0.04→E：-0.04→F：Return：Ifend(JD68)If K≤79687.747：Then 79404.976→A：0.04→B：-0.04→C：79687.747→D：0.04→E：-0.04→F：Return：Ifend(JD68)If K≤79767.747：Then 79687.747→A：0.04→B：-0.04→C：79767.747→D：0→E：0→F：Return：Ifend(JD68)If K≤79847.747：Then 79767.747→A：0→B：0→C：79847.747→D：-0.04→E：0.04→F：Return：Ifend(JD69)If K≤80232.429：Then 79847.747→A：-0.04→B：0.04→C：80232.429→D：-0.04→E：0.04→F：Return：Ifend(JD69)If K≤80312.429：Then 80232.429→A：-0.04→B：0.04→C：80312.429→D：0→E：0→F：Return：Ifend(JD69)If K≤80392.429：Then 80312.429→A：0→B：0→C：80392.429→D：0.04→E：-0.04→F：Return：Ifend(JD70A)结果显示：高程显示KM=0000.000 PY=0.000H= 00.000HL=00.000 I=-1.5HR=00.000 I=-1.5读数显示KM=0000.000 PY=0.000 QSM= 00.000QSL= 00.000QSR= 00.000。

卡西欧Fx5800p道路三维坐标计算程序(线元法)

卡西欧5800p道路三维坐标计算程序（线元法）QXJS-000 主程序（文件名）Lbl 4：＂1.SZ=>NE＂:＂2.NE=>SZ＂:?Q:?S: Prog＂QXJS-SUB0＂↙Lblθ:Q=1 => Goto1:Q=2 => Goto2:↙θ为阿拉伯数字零Lbl 1:?Z:Prog＂QXJS-SUB1＂:Cls：＂N=＂:Locate5,1,N: （X坐标在第一行第五列显示）＂E=＂:Locate4,2,E: （Y坐标在第二行第四列显示）＂ZH=＂:Locate4,3,S:Locate9,3,＂BJ=＂:Locate12,3,Z: （桩号在第三行第四列显示）F▶DMS◢（方位角在第四行显示）Prog＂SQX-000＂: 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↙ (下一个完整的线元)，……无限添加线元。

QXJS-SUB1 正算子程序（文件名）0.5（1÷R-1÷P）÷L→D:S-O→X↙U+∫( cos(A+(X÷P+DX2)×180÷π,θ,X)→N↙V+∫( sin(A+(X÷P+DX2)×180÷π,θ,X)→E↙A+(X÷P+DX2)×180÷π→F↙N+Zcos(F+90) →N:E+Zsin(F+90) →EQXJS-SUB2 反算子程序（文件名）Lbl1:θ→Z:1→Q：Prog＂QXJS-SUB0＂: Prog＂QXJS-SUB1＂↙Pol(N-B+10^(-46), E-C+10^(-46)):Isin(F-90-J) →W:S+W→S↙Abs(W)>0.0001 => Goto1↙Lbl 2: θ→Z：Prog＂QXJS-SUB1＂:(C-E) ÷sin(F+90) →Z使用使用说明：1、规定以道路中线的前进方向（即里程增大的方向）区分左右；当线路左转时，P、R取负值，当线路右转时，P、R取正值，当线路为直线时，P、R以10的45次方代替，即10^(45)。

CASIO5800P 程序

CASIO5800P1：程序名：QXJS CO“L=”？L:“LI CHENG=”?W↓提示输入里程桩号LbI A↓For 1→N To 20↓输入交点编号为1至20L=1=＞Prog“1XY”←当输入L=1时，启用数据库“1XY”。

If W>Rep(Z)AndW<Imp(Z):Then Prog“MP”:Goto 0: IfEnd:Next↓“--LI CHENG---？”:Stop↓当输入里程Z大于或小于所启用的数据库的里程范围时停止计算LbI 0↓If K<0:Then Q→X:0→Q:0→J:S+C→I:AbS(K) →K:Goto 3 :IfEnd↓Goto 2↓LbI 1↓Q<0=＞360+Q→Q↓“LI CHENG=”?W↓If W>Rep(Z) AndW<Imp(Z):Then Goto 2:EIse“>>>>”:Goto A :IfEnd↓LbI 2↓0→J↓μ0+Abs(W-Abs(K))→I↓W:K<0=＞-W↓If Ans<K:Then 0→U:-I:Goto 4:IfEnd↓I>S+C=＞S+C→I↓LbI 3↓If I<S:Then I2r÷(2RS) →U:I-I∧(5) ÷(40R2S2)+i(I∧(3)÷(6RS)-I∧(7) ÷(336R∧(3)S∧(3)) :EIse (2I-S) r ÷(2R) →U:Z[2]+R(Sin(U)-icos(U)+i):IfEnd↓LbI 4↓J+Anscos(Q)+AnsiSin(Q) →J↓If I=S+C:Then Q+A→Q: -K-I-T→K:T→I:S→T:I→S:-R→R:Prog“MP”:Goto 3:IIfEnd↓If Q+A=0:Then X-A-180→Q:K+Rep(J)+Imp(J) ÷tan(A) →K:O+Imp(J)(cos(Q)+i sin(Q)) ÷sin(A)→O:Goto 2:IfEnd↓If I=S:Then Q-180→Q:O+J→O:Goto 2:IfEnd↓K <0=＞U-180→U↓Q+U→U↓“BIAN JU=”?E↓Rep(O)+Rep(J)-Esin(U) →X:Imp(O)+Imp(J)+Ecos(U) →Y↓CIs:Fix3:Locate1,1, “X=”: Locate7,2,X: Locate 1,3, “Y=”: Locate 7,4,Y▲If E=x10-6:Then Prog “BYXY”:Goto1:IfEnd↓Goto 1↓Prog“ZBFS”:Goto1↓备注：程序中“↓”为回车键，“-”CASIO计算器的（-）键，“i”虚数i。

卡西欧5800p道路纵断面高程计算

卡西欧5800P计算器道路纵断面高程计算通用程序广西水利电力职业技术学院11级工程测量班曾礼明1.“ZP:1 OR SQX:2”：？→A2. If A=1:then Goto1:IfEnd3. If A=2:then Goto2:IfEnd4. LbI 1:“BPZ=”?B:”BPG=”?C:”PL=”?D:LbI 3:”K=”?K5. C+(K-B)*D→H:”H=”:H⊿Goto36. LbI 2:”BPZ=”?B:”T=”?T : “BPG=”？C : “PL1=”？E : “PL2=” ?F : “R=” ?R :LbI 4 : “K=” ?K7. B-T→J8. B+T→L9. If K≥J And K＜B:Then C+(B-K)*-E→M:IfEnd10. If K≥J And K＜B:Then(K-J) ²/（2*R）→N IfEnd11. If K＞B And K≤L:Then C+(K-B)*F→O:IfEnd12. If K＞B And K≤L:Then (L-K) ²／(2*R) →P :IfEnd13. If E-F＞0:Then M-N →H: ”H=”:H⊿IfEnd14. If E-F＜0:Then O+P →H: ”H=”:H⊿IfEnd :Goto 4程序结束程序说明：变量含义变量含义B 变坡点桩号K 所求桩号C 变坡点高程H 所求桩号的设计地面高程D 纵坡坡率J 竖曲线起点桩T 竖曲线切线长L 竖曲线终点桩E 竖曲线坡率1 N、P 竖曲线纵距F 竖曲线坡率2 M、O 竖曲线处纵坡高程R 竖曲线半径使用说明：直坡段与竖曲线段要分开计算1．提示“ZP:1 OR SQX:2”，ZP表示纵坡、SQX表示竖曲线，根据需要输入对应的1或者2。

2．对于纵坡，提示BPZ表示纵坡变坡点即纵坡起点桩号，BPG 表示纵坡变坡点即纵坡起点桩号的设计高程，PL表示该段纵坡坡率，K表示所要求的桩号。

fx5800P测量公式及程序汇总

卡西欧5800P 测量程序汇总CASIO fx5800P公路施工放线测量公式及程序一、已知座标，求平距和方位角(座标反算)：公式：D=√（Xp-Xo）2+（Yp-Yo）2 α=arctg(Yp-Yo)/(Xp-Xo) 程序：“A”？→A：“B”？→B：Lbl 0:“X”？→X：“Y”？→Y：（X-A）→M：（Y-B）→N：“D=”：√（M2+N2）⊿ tan-1(N/M) →C:If M＜0:Then “Q=”：180+C →Q ⊿ Else If N＞0: Then “Q=”：C→Q ⊿ Else “Q=”：360+C→Q ⊿ If End : If End : Goto 0 说明：（A，B）为测站点坐标，（X，Y）为所求点坐标。

输出：D为平距，Q为方位角。

二、已知直线的坐标方位角Q和直线起点坐标（Xo,Yo），求直线上任一点的中桩坐标（X， Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：X =Xo+LcosQ Y=Yo+LsinQ程序：“A”？→A：“B”？→B：“Q”？→Q：“Z”？→Z：Lbl 1: “P”?→P：“J”？→J：“M”？→M：Abs（M-Z）→W：“X=”：A+W*cos(Q)+P cos(Q+J)→X ⊿“Y=”：B+W*sin(Q)+P sin(Q+J) →Y ⊿Goto 1 说明：（C，D）为直线起点坐标，Q为直线方位角，Z为起点桩号，L为所求坐标点桩号。

“U”为左边距，“T”为右边距，“V”为偏角；U=0时不算边桩坐标。

输出：（X，Y）为中桩坐标，（XL，YL）为左边桩坐标，（XR，YR）为右边桩坐标。

三、已知圆曲线起点坐标（U，V），切线方位角Q，桩号Z和圆半径R，求圆曲线上桩号为 L的点中桩坐标（X，Y），左右边桩坐标（XL，YL）、（XR，YR）：公式：ψ=90L/(лR) (偏角公式） C=2Rsin ψ (对应弧的弦长公式）弦的方位角:Q=Qo±ψ（曲线左转时为“-”）程序：“U”？→U：“V”？→V：“Q”？→Q：“R”？→R：“Z”？→Z：“W=-1，1”：？→W：“ZJ=”：？→Z[1]：“YJ=”：？→Z[2]：“PIAN JIAO”：？→T：Lbl 2: “M”？→M：180*（M-Z）/（2π*R）→J：R*2sin(J)→K:If W=-1:Then“X=”:U+K*cos (Q-J）→X⊿ “Y=”：V+K*sin(Q-J)→Y ⊿“Q=”：Q-180*（M-Z）/（πR）→O⊿ Else If W=1:Then“X=”:U+K*cos(Q+J）→X⊿“Y=”：V+K*sin(Q+J)→Y ⊿ “Q=”：Q+180*（M-Z）/（πR）→O⊿ IfEnd:IfEnd:T=0=＞Goto 2：“XL=”:X+Z[1]*cos(O-T)→F⊿“YL=”：Y+Z[1]*sin(O-T)→P⊿“XR=”:X+Z[2]*cos(O+T)⊿“YR=”：Y+Z[2]*sin(O+T) ⊿ Goto 2 说明：W=-1时曲线左转, W=1时曲线右转。

卡西欧fx-5800p计算器公路测量常用程序

FX-5800p计算器公路测量常用程序一、程序功能本程序由6个主程序、5个次子程序及5个参数子程序组成。

主要用于公路测量中坐标正反算，设计任意点高程及横坡计算,桥涵放样，路基开挖口及填方坡脚线放样。

程序坐标计算适应于任何线型.二、源程序1.主程序1：一般放样反算程序(①正算坐标、放样点至置仪点方位角及距离；②反算桩号及距中距离)程序名:1ZD-XYLb1 0:Norm 2F=1：(正反算判别，F=1正算，F=2反算,也可以改F前加？，改F为变量)Z[1]=90（与路线右边夹角）Prog＂THB＂：F=1=>Goto 1:F=2=>Goto 2Lb1 1:Ｆix 3:＂Ｘ=＂：Locate 6,4,Ｘ◢＂Ｙ＝＂：Locate 6,4,Ｙ◢Ｐrog＂3JS”:Goto 0:Lb1 2:Fix 3:＂ＫＭ＝＂：Locate 6,4,Ｚ◢Ｇoto 0２．主程序２：高程序横坡程序(设计任意点高程及横坡)程序名：2GCLbI 0:Norm 2“KM”?Z:?D:Prog”H”:Fix3:”H=”:Locate 6,4,H◢“I=”: Locate 6,4,I◢Goto 03.主程序3：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：3JSX：Y：1268．123→K(置仪点X坐标)2243．545→L（置仪点Y坐标，都是手工输入,也可以建导线点数据库子程序,个人认为太麻烦）Y-L→E：X-K→F：Pol(F,E):IF J<0:ThenJ+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-XYLbI 0:Norm 290→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:路基开挖边线及填方坡脚线放样程序（输入大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：5FBXLbI 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:GotoH:Else L-0.75→D:Goto H:IfEndLbI 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,Ｄ◢“TW=”: Locate 6,4,Z[5]◢Goto 06．主程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名：6GDProg “G0”Z-C→E:(B-A)×E/S+A→L:L:7．坐标计算次程序（ＴＨＢ）程序名：THB18→DimZ：＂ＫＭ＂?Z：Prog ＂Ｘ０＂1÷P→Ｃ： (P-R)÷(2HPR) →Ｓ：180÷π→Ｅ：Ｆ=1=>Goto 1：Ｆ=2=>Goto 2←┘Lbl 1：?Ｄ： Abs(Ｚ－O) →W：Prog "Ａ"：X：Ｙ：Ｇoto 3LbI 2:Ｘ：Ｙ：Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 3LbI 3:IF Ｆ＝１Then Ｘ：Ｙ：Else Ｚ：Ｄ8. 正算子程序(Ａ)程序名：A0.1184634425→A： 0.2393143352→B：0.2844444444→N 0.046910077→K：0.2307653449→L：0.5→M： U+W(Acos(G+QEKW(C+KWＳ))+Bcos(G+QELW(C+LWＳ))+Ncos(G+QEMW(C+MWＳ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) →X：V+W(Asin(G+QEKW(C+KWＳ))+Bsin(G+QELW(C+LWＳ))+Nsin(G+QEMW(C+MWS))+Bsin(G+QE(1-L)W(C+(1-L)WS))+Asin(G+QE(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)+Ｚ［１］→Ｚ［２］：X+Ｄcos（Ｚ［２］）→Ｘ： Y+Ｄsin（Ｚ［２］）→Ｙ9. 反算子程序(Ｂ)程序名：BG-90→Ｔ： Abs((Y-V)cos(T)-(X-U)sin(T)) →Ｗ：0→Ｄ：Lbl 0：Prog "Ａ"： T+QEW(C+WＳ) →Ｌ： (J-Y)cos(L)-(I-X)sin(L)→Ｄ：IF Abs(Ｄ)<0.01:Then Goto1：Else W+Ｄ→W:Goto 0←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］) →D:10．高程计算子程序（H）程序名：HProg “S0”:R:T:C:G:I:C-T→F:Z-F→L:C+T→E:G-TI→Q:If T=O:Then Q+LI→H:Goto 0:Else IfZ<F:Then Q+LI→H:Goto 0:Else If Z≤E:Then Q+LI+L2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I:H:I:11.高程超高计算程序（I）程序名：IProg”I0”:W=1=> Goto 0:W=2=>Goto 1:LbI 0:If L=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷L+M)→V:Goto 2:IfEnd: LbI 1:If L=0:Then Abs(D)×M→V:Goto 2:ElseAbs(D)×(((3((Z-C)÷L)2-2((Z-C)÷L)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V:12．数据子程序(附后示例)①程序名：X0（坐标计算要素程序）If Z≥25900 And Z≤26615.555:Then 25900→O:11587.421→U:1847.983→V:101。

CASIO-fx5800P连续计算高程放样程序

K85+470 67.81 1.16 -3.4 K86+000 49.79 -3.4 -0.37 K86+750 47.02 -0.37 0.3 K87+750 50.02 0.3 -0.3
2 2 2 2
0 0 3 3
竖曲线要素 ZH点桩号 YH点桩号 HZ点桩号 0 0 0 12000 K85+196.4 K85+743.6 0 0 0 8000 K85+878.8 K86+121.2 0 0 0 30000 K86+649.5 K86+850.5 K87+460.89 K88+209.41 K88+459.41 80000 K87+510 K87+990 K87+460.89 K88+209.41 K88+459.41
二、高程及放样程序
【起算数据】：变坡点桩号A、变坡点高程B、前后纵坡C D、竖曲半径R、横坡度F、最大超高横坡度G、ZH点桩号、YH 点桩号、HZ点桩号、施工层厚度N、视线高W
（一）主程序：GCFY "SXG="？W：“N=＇常量输入（视线高程、施工层厚度） Lbl 1："K0+0"？L："B="？О:Prog"B"＇变量输入及声明 Abs(RK)÷2→T＇竖曲线切线长,如需显示则在后面加上◢ A-T→H ＇竖曲线起点 ZY 桩号,如需显示则在后面加上◢ A+T→X ＇竖曲线终点 YZ 桩号,如需显示则在后面加上◢ L-A→M ＇待求点至变坡点的距离 If L≤H:Then B+MC-N-W→P: Goto 0:IfEnd＇前纵坡直线段中桩高程计算 2 If L≤A:Then B+MC+J(T-Abs(M)) ÷(2R)-N-W→P: Goto 0:IfEnd＇前纵坡竖曲线中桩高程计算 2 If L≤X:Then B+MD+J(T-Abs(M)) ÷(2R)-N-W→P: Goto 0:IfEnd＇后纵坡竖曲线中桩高程计算 If L>X:Then B+MD-N-W→P: Goto 0:IfEnd＇后纵坡直线段中桩高程计算 Lbl 0: If E=0:Then Goto 2: IfEnd＇直线部分中、边桩计算判断条件 If L≤E:Then Goto 2: IfEnd＇直线部分中、边桩计算判断条件 If L>V:Then Goto 2: IfEnd＇直线部分中、边桩计算判断条件 If L>E:Then Goto 3: IfEnd＇前缓曲超高部分中、边桩计算判断条件 If L>U:Then Goto 4: IfEnd＇后缓曲超高部分中、边桩计算判断条件 Lbl 2 ＇显示直线部分中、边桩高程计算结果 If O=0:Then“H=”:Abs(P)→Z◢ Else“HB=”:Abs(P-OF)→Y◢ 不需放样显示高程,否则显示放样水准尺计数 IfEnd:Goto 1 Lbl 3 （L-E）（F+G）÷（V-U）-F→S＇前缓曲线超高横坡度计算 If S≤F:Then Goto 5：IfEnd ＇超高起点(终点)至零界面、零界面至全超高及全 If S≤G:Then Goto 6:If S>G:Then Goto 7:IfEnd:IfEnd

CASIO fx5800p全线高程计算程序

卡西欧5800p道路纵断面高程计算

fx5800P程序(曲线任意里程中边距坐标正反算及高程)

5800p高程程序

5800全线高程计算程序

卡西欧Fx5800p道路三维坐标计算程序(线元法)

CASIO5800P 程序

卡西欧5800p道路纵断面高程计算

fx5800P测量公式及程序汇总

卡西欧fx-5800p计算器 公路测量常用程序

CASIO-fx5800P连续计算高程放样程序

卡西欧fx-5800p计算器公路测量常用程序