一般圆曲线计算程序(5800P)

fx-5800P易学易用程序集卡西欧(中国)贸易有限公司版程序列表备注；；用户对用本书疑问，请发邮件到：gongchengji@ 。

欢迎交流！卡西欧的客服热线：400-700-6655。

联系:gongchengji@ 。

G1G2G3G4G5G6G7G8G9G10G111-1G12G12-10-10-2fx-5800P G2011-9-30...常用测量程序1极坐标放样程序（已知坐标计算边长、方位角计算程序），程序名5 J<0J+360→J把小于6 7 "FWJ="：J DMS ◢显示方位角2已知边长方位角计算坐标程序，程序名3建筑轴线偏移程序(或扩大基础程序)。

程序名（）（）4测角前方交会坐标计算，程序名5测角后方交会坐标计算，程序名3 Pol((C –A),(D –B)) : J<0J+360→J : J →Z[4] 计算点（）的方位角4 Pol((E –A),(F –B)) : J<0J+360→J : J →Z[5]计算点（）的方位角5 6 Z[1]<0Z[1]+360→Z[1]计算点（）的顶角并存贮到变量 7 Pol((E –C),(F –D)): J<0J+360→J : J →Z[4] 计算点（）的方位角 8 Pol((A –C),(B –D)): J<0J+360→J : J →Z[5] 计算点（）的方位角9Z[4]-Z[5]→Z[2]方位角计算顶角10 Z[2]<0Z[2]+360→Z[2]计算点（）的顶角并存贮到变量 11 Pol((A –E),(B –F)) : J<0J+360→J :J →Z[4] 计算点（）的方位角 12 Pol((C –E),(D –F)) : J<0J+360→J : J →Z[5]计算点（）的方位角13 14 Z[3]<0Z[3]+360→Z[3]计算点（）的顶角并存贮到变量 15 tan(Z[1]) tan(G) ÷(tan(Z[1])- tan(G))→Z[7] 计算点（）的参数 计算点（）的参数 计算点（）的参数（）（）（）6坐标转换计算程序，程序名-D （）（）（）7直线中边桩坐标计算程序,程序名8圆曲线中边桩坐标计算程序,程序名9完整缓和曲线中边桩坐标计算程序,程序名fx-5800P 程序使用流程：本程序数据和主程序是分开的，编程时将不同的工程数据存放到不同的数据文件里，如A匝道，文件名为A ，将匝道A 所有的曲线线元参数输入A文件里。

5800p圆弧线坐标计算（QD.ZD.R）程序清单：功能：此程序利用圆弧的起、终点坐标及半径，分别计算出该圆的切线长、弧长、转角、起点切线方位角及圆弧上任一点坐标和方位角；输入边距后同时计算出圆弧左右边点的坐标。

程序名（QD.ZD.R）“QD.ZD.R”◢启动程序显示标题Fix 3 ←┘定义小数尾数“Q(QDLC)”?Q: “X(QD)”?A: “Y(QD)”?B: “X(ZD)”?C: “Y(ZD)”?D ←┘输入圆弧起点里程及起终点坐标“R[Z(-),Y(+)]”?R ←┘输入圆弧半径，注意：左负右正Pol(C-A，D-B)←┘计算圆弧的弦长及圆弧起点至终点弦线的方位角J-sin-1(I÷2÷R)→F：If F＜0:Then F+360→F:Ifend ←┘计算圆弧起点切线方位角sin-1(I÷2÷R)×2 →O 计算圆弧的转角（圆弧的转角等于该圆弧所对的圆心角）Rπ×O÷180→L←┘计算圆弧的长度R×tan(sin-1(I÷2÷R)) →T 计算该圆弧的切线长A+R COS(F+90)→X：B+R Sin(F+90)→Y ←┘计算圆心坐标Cls ←┘显示该圆弧的切线长、转角、起点切线方位角和弧长“T(QXC)=”:Locate 8,1,T“ZJ,YX=”:Locate 7,2,O°“F,QD=”:Locate 6,3,F°“L(HC)=”:Locate 8,4,L◢Lbl 1 ←┘“+K(m)”?K: “BD,P(Z-,Y+)”?P ←┘输入要计算的圆弧线上的长度（任一点里程桩号，起点开始）Q+L→S ←┘计算该圆弧的终点里程If K＞S Or K＜Q:Then:“KP OUT!!”:Goto 1:Ifend ←┘提示超出圆弧计算范围，重新输入圆弧内要计算的里程桩号Abs(K-Q)→Z：F+180×Z÷(Rπ)→W←┘计算圆弧上任一点的切线方位角If W＜0:Then W+360→W:Ifend ←┘F-90+(Z÷R)(180÷π)→M←┘X+R COS(M)→N：Y+R Sin(M)→E ←┘计算圆弧上任一点坐标N+P×COS(W+90)→U：E+P×Sin(W+90)→V ←┘计算该圆弧上任一点边桩坐标（边距P左-，右+）Cls ←┘显示需要计算加密点长度和坐标“+K=” :Locate 4,1,K“Xn=” :Locate 4,2,N“Yn=” :Locate 4,3,E“Fn=” :Locate 4,4,W°◢Cls ←┘显示需要计算加密点边桩的边距、右前夹角和坐标“BD=” :Locate 4,1,P“YJ=” :Locate 4,2,90°“Xp=” :Locate 4,3,U“Yp=” :Locate 4,4,V◢Goto 1 计算结束。

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◢GotoA3．程序说明3.1 输入已知变量R—圆曲线半径，显示R？L—缓和曲线长，显示L？A—曲线转向角，显示A？E—直缓点纵坐标，显示ZH：X=？N—直缓点横坐标，显示ZH：Y=？F—第一切线方位角，即ZH至JD的方位角，显示FWJ=？K—直缓点里程，显示ZH：LC=？3.2 计算待求量T—切线长度，显示T= …S—曲线全长，显示S= …Z[3]—外矢距，即JD到QZ的距离，显示E0= …3.3 输入待求变量K—输入待求（测设）点的里程，显示LC=？V—横向偏距，即测设点左、右侧外移距的偏移量，若为中线点输入0；右侧输入“+”值，左侧输入“-”值。

卡西欧5800P坐标正反算程序超好用5800P坐标正算反算程序U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

DY=ZB:LC：输入1为正算，既输入里程桩号和偏距算坐标，输入2为反算，既输入坐标算里程桩号和偏距。

S:“LC”？S：待求点的里程桩号，Z:“PJ”？Z：待求点的里程偏距（在中线上取零，左侧取负值，右侧取正值）。

1．当线元为直线时，其起点，终点的曲率半径为无穷大，以10的45次方代替。

2．当线元为圆曲线时，无论其起点，终点与什么线元相接，其曲率半径均等于圆曲线的半径。

3．当线元为完整缓和曲线时，起点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

终点与直线相接时，曲率半径为无穷大，以10的45次方代替，与圆曲线相接时，曲率半径等于圆曲线半径。

4．当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值，与圆曲线相接时，曲率半径等于圆曲线半径，终点与直线相接时，曲率半径等于设计规定值，与圆曲线相接时，曲率半径等于圆曲线半径。

1．坐标正反算主程序A-ZBZS3U：“XO ”？U：V：“YO”？V：O：“SO”？O：G：“FO”？G：H：“LS”？H：P：“RO”？P：R：“RN”？R：“Q”？Q：(1÷P)->C:(P-R)÷(2HPR)->D:(180÷Π)->E:N：“DY=ZB:LC”?N:If N=1:Then Goto 1:Else Goto 2:IfEnd:Lbl1:S:“LC”？S：Z:“PJ”？Z：Abs（S-O）->W：Prog“SUB1”：“XS=”：X◢“YS=”：Y◢“FS=”：F-90◢Goto 1:Lbl 2:“X”?X: “Y”?Y:X->I:Y->J:Prog “SUB2”:S: “LC=”:O+W->S◢Z: “PJ=”:Z◢Goto 2:2．坐标正算子程序SUB10.1739274226->A：0.3260725774->B：0.0694318442->K：0.3300094782->L：1-L->F：1-K->M：U+W（Acos(G+QEKW（C+KWD）)+Bcos（G+QELW（C+LWD））+Bcos（G+QEFW（C+FWD））+Acos（G+QEMW（C+MWD）））->X：V+W（Asin（G+ QEKW（C+KWD）)+ Bsin（G+QELW（C+LWD））+Bsin（G+QEFW（C+FWD））+Asin（G+QEMW（C+MWD）））->Y：G+QEW（C+WD）+90->F：X+Zcos(F)->X：Y+Zsin（F）->Y：3.坐标反算子程序SUB2G-90->T:Abs((Y-V)cos(T)-(X-U)sin(T))->W:0->Z:Lbl0:Prog“SUB1”:T+QEW(C+WD)->L:(J-Y)cos(L)-(I-X)sin(L)->Z:If Abs(Z)<10^(-3):Then Goto 1:Else W+Z->W:Goto 0:IfEnd:Lbl 1:0->Z:Prog “SUB1”:(J-Y)÷sin(F)->Z:。

5800平曲线和竖曲线计算程序。

以验证过5800平曲线程序1.主程序Lbl 4："1.SZ => XY"："2.XY => SZ"：？N：？S：Prog“SUB0”↙1÷P→C: (P-R)÷(2HPR) →D:180÷∏→E:N=1 => Goto1：Goto2：↙Lbl 1:? Z：Abs(S-O) →W：Prog "SUB1"："XS="：X◢"YS="：Y◢F-90→F：“FS=”：F▲DMS◢D:X+DCos(F)→X: "X=":X◢Y+DSin(F)→Y: "Y="：Y◢Goto4↙Lbl 2：？X：？Y：X→I：Y→J：Prog“SUB2”：O+W→S：“S=”：S◢“Z=”：Z◢Goto4↙2. 正算子程序(SUB1)0.1739274226→A：0.3260725774→B：0.0694318442→K：0.3300094782→L：1-L→F：1-K→M：U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+B cos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD))) →X：V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QE MW(C+MW D))) →Y：G+QEW(C+WD)+90→F：X+Zcos（F）→X：Y+Zsin（F）→Y2. 反算子程序(SUB2)G-90→T：Abs((Y-V)cosT-(X-U)sinT) →W：0→Z：Lbl 0：Prog "SUB1"：T+QEW(C+WD) →L：(J-Y)cos（L）-(I-X)sin（L）→Z：IF Abs （Z）<10-6：T hen Goto1：Else W+Z→W：Goto 0：IfEndLb1 1：0→Z：Prog "SUB1" ：(J-Y)÷sin（F）→ZSUB0 数据库子程序Goto1↙同时保存多个曲线时的指针Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd↙Lbl 1：IF S<***（线元终点里程）:Then***→G（线元起点方位角）:***→O（线元起点里程）:***→U（线元起点X）:***→V（线元起点Y）:***→P（线元起点曲率半径）:***→R（线元终点曲率半径）: ***→H（线元起点至终点长度）：0或1、-1→Q：Return:IfEnd ……………..为了便于解读，每增加一个线元增加一行语句，每增加一条曲线增加一个Lbl，每增加个工程增加一个文件。

[分享] CASIO fx-5800p交点法计算缓和曲线内任意点计算程序关于“5800p求缓和曲...”的内容本站搜索更多关于“5800p求缓和曲线要素”的内容SpiraL curve（缓和曲线任意点坐标计算）程序说明：本程序是基于计算对称性缓和曲线而编写的程序，是以交点法为基础，故输入数据多了点。

程序思路：根据曲线的交点数据，进而推算曲线要素，并进行曲线内任意点的坐标计算。

LbL 0：Cls19→DimZ 变量赋值“INTα(s)=”?F 输入交点坐标方位角“JD PEG=”?K 输入交点桩号“INT X(JD)=”?X 输入交点X坐标“INT Y(JD)=”?Y输入交点Y坐标“INT R(s)=”?R 输入缓和曲线半径“INT L(s)=”?L 输入缓和曲线长“TURNING ANGLE=”?A输入转角“TURNING DIRECTION –L,+R=”?I 输入路线转向：左负右正I赋值为1L2÷(24×R)→PL÷2-L3÷(240×R2)→Q90×L÷（π×R）→B（R+P）Tan（A÷2）+Q→T 计算切线长R（A-2B）×π÷180→O 计算圆曲线长R（A-2B）×π÷180+2L→C 计算曲线长（R+P）÷cos（A÷2）-R→E 计算外距2T-C→D 计算切曲差K-T→Z[3] ZH点Z[3]+L→Z[4] HY点Z[4]+O→Z[5] YH点Z[5]+L→Z[6] HZ点Z[6]-C÷2→Z[7] QZ点X+Tcos（F+180）→Z[16] ZH点X坐标Y+TsIn（F+180）→Z[17] ZH点Y坐标L-L3÷（90R2）→GZ[16]+Gcos(F+30×I×L÷(π×R) )→Z[8] HY点X坐标Z[17]+Gsin(F+30×I×L÷(π×R)) →Z[9] HY点Y坐标Z[8]+2Rsin(45×O÷(πR))cos(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[14] QZ点X坐标Z[9]+2Rsin(45×O÷(πR))sin(F+I×45×O÷(π×R)+I×90×L÷(π×R)) →Z[15] QZ点Y坐标Z[8]+2Rsin(90×O÷(πR))cos(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[10] YH点X坐标Z[9]+2Rsin(90×O÷(πR))sin(F+I×90×O÷(π×R)+I×90×L÷(π×R)) →Z[11] YH点Y坐标X+Tcos（F+I×A）→Z[12] HZ点X坐标Y+TsIn（F+I×A）→Z[13] HZ点Y坐标LbL 2“XIAN SHI QXYS 0→YES,1→NO”→？Z:CLs 显示曲线要素？输入：0→YES,1→NOIf Z=0:Then GoTo 3ELse If Z=1:Then GoTo 4:IfEnd:IfEndLbL 3 <本段为曲线要素显示结果部分>“QIE XIAN C=”:T▲“QU XIAN C=”:C▲“Y QU XIAN=”:O▲“WAI JU=”:E▲“QIE QU CHA=”:D▲“ZH PEG=”:Z[3] ▲“X(ZH)=”:Z[16] ▲“Y(ZH)=”:Z[17] ▲“HY PEG=”:Z[4] ▲“X(HY)=”:Z[8] ▲“Y(HY)=”:Z[9] ▲“QZ PEG=”:Z[7] ▲“X(QZ)=”:Z[14] ▲“Y(QZ)=”:Z[15] ▲“YH PEG=”:Z[5] ▲“X(YH)=”:Z[10] ▲“Y(YH)=”:Z[11] ▲“HZ PEG=”:Z[6] ▲“X(HZ)=”:Z[12] ▲“Y(HZ)=”:Z[13] ▲GoTo 0LbL 4 <本段为待求点桩号计算部分>“INT P PEG=”?H 输入待求点桩号If H<Z[3]:Then GoTo 4:IfEndIf H≥Z[3]And H<Z[4]:Then GoTo AELse If H≥Z[4] And H<Z[5]:Then GoTo BELse If H≥Z[5] And H≤Z[6]:Then GoTo C :IfendIfend : IfendIf H>Z[6]:Then GoTo 4:IfendLbL A{待求点位于ZH到HY段上时}“PIAN JIAO -L ,+R = ”? V 输入边桩与路线中心线夹角：左负右正“PIAN JU = ”? W 边桩与路中法线距离H–Z[3]→JJ–J5 ÷(90×R2×L2)→SZ[16]+S cos(F+30×I×J2÷(π×R×L)→MZ[17]+S sin(F+30×I×J2÷(π×R×L)→NM+W×cos(F+90×I×J2÷(π×R×L +V) →Z[18]N+W×sin(F+90×I×J2÷(π×R×L +v) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4LbL B {待求点位于HY到YH段上时}“PIAN JIAO -L ,+R = ” ? V“PIAN JU = ”? WH–Z[4]→JZ[8]+2Rsin(90×J÷(π×R)cos[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→MZ[9]+2Rsin(90×J÷(π×R)sin[F+90×I×J÷(π×R)+90×I×L÷(π×R)]→NM+Wcos(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[18]N+Wsin(F+90×I×L÷(π×R)+180×I×J÷(π×R)+V) →Z[19]“X(P)= ”: Z[18] ▲“Y(P)= ”: Z[19] ▲GoTo 4LbL C {待求点位于YH到HZ段时}“PIAN JIAO -L ,+R = ” ?V“PIAN JU = ”? WZ[6] –H →JJ–J5÷(90×R2×L2)→SZ[12]+Scos(F+I×A+180-30×I×J2÷(π×R×L)→MZ[13]+Ssin(F+I×A+180-30×I×J2÷(π×R×L)→NM+Wcos(F+I×A-90×I×J2÷(π×R×L)+V) →Z[18]N+Wsin(F+I×A-90×I×J2÷(π×R×L)+V) →Z[19]“X(p)= ”: Z[18] ▲“Y(p)= ”: Z[19] ▲GoTo 4程序补充说明：本程序需要输入：坐标方位角，交点桩号，坐标，缓和曲线半径，缓和曲线长，转角，转向（左负右正），程序运行时会显示说“XIAN SHI QXYS 0→YES,1→NO”→Z:CLs：显示曲线要素0→显示，1→不显示。

CASIO5800圆曲线（已知两点及半径）坐标计算程序
圆曲线（已知两点和半径）座标计算fx-5800程序
作者：李艳阳
A:?B: ?C: ?D: ?R↙
Pol(C-A,D-B):J-Sin-1(I÷2÷R)→F↙
A+R Cos(F+90)→X↙
B+R Sin(F+90)→Y↙
Lbl 1:?L↙
F-90+(L÷R)( 180÷π) →T↙
“N=”:X+RCos(T)→N ◢
“E=”:Y+RSin(T)→E ◢
Goto 1↙
说明： 1. A、B为第一点X、Y
2. A、B为第二点X、Y
3. R为曲线半径，向左偏为负，向右偏为正
4. L输入待求点到A点的曲线长度
5. N、E为待求点的XY
ABCD分别输入X1、Y1、X2、Y2。

R按前进方向左-右+。

Fx-5800曲线坐标综合计算程序
名称：CAS58-ZHYQX
说明：
1、A：转角，左偏为“-A”；右偏为“+A”；
2、R：圆曲线半径；
3、LS：缓和曲线长度；
4、JD（DK）：本个交点桩号；
5、X（JD）与Y（JD）：本个交点X与Y的坐标；
6、FWJ：曲线起始边坐标方位角；
7、J：输0为只计算中桩坐标，输1为计算中桩与边桩坐标；
8、Z：待求点里程桩号；
9、W：边桩至中桩的偏距。

5800计算器公路坐标计算程序(全线)原４８５０程序改编Lb1 1”K”?K:”W”?W:”O”?O:”I”?IIF K<41490.879:Then 40776.825→A: 41490.879→ B: 3761346.715→ M: 505279.147→N：166°45′36.3″→F： 1/1045→D：1/1045→E ：Goto 0 :Return:IfendIF K<41690.879:Then 41490.879→A: 41690.879→ B: 3760651.641→ M: 505442.686→N：166°45′36.3″→F： 1/1045→D：1/1000→E ：Goto 0 :Return:IfendIF K<42242.154:Then 41690.879→A: 42242.154→ B: 3760455.626→ M: 505481.961→N：172°29′22.78″→F： 1000→ R：Goto 2: Return:IfendIF K<42442.154:Then 42242.154→A: 42442.154→ B: 3759916.982→ M: 505403.549→N：204°04′31.62″→F： 1/1000→D： 1/1045→E： Goto 0 : Return:IfendIF K<42673.884:Then 42442.154→A: 42673.884→ B: 3759740.299→ M: 505310.019→N ：209°48′18.1″→F： 1/1045→D： =1/1045→E ：Goto 0 : Return:IfendIF K<42863.884:Then 42673.884→A: 42863.884→ B:3759539.223→ M:505194.838→N：209°48′18.1″→F：-1/1045→D:-1/800→E：Goto 0 : Return:IfendIF K<43636.692:Then 42863.884→A: 43636.692→ B:3759370.853→ M:505107.051→N：203°00′04.15″→F：R=-800：Goto2 : Return:IfendIF K<43826.692:Then 43636.692→A: 43826.692→ B:3758630.216→ M: 505167.591→N：147°39′10.35″→F： -1/800→D：E=-1/1045→E :Goto 0 : Return:IfendIF K<44825.092:Then 43826.692→A: 44825.092→ B:3758478.338→ M: 505281.555→N：140°50′56.4″→F：-1/1045→D：-1/1045→E: Goto 0 : Return:IfendIF K<45025.092:Then 44825.092→A: 45025.092→ B:3757704.093→ M: 505911.911→N：140°50′56.4″→F： 1/1045→D：1/1000→E：Goto 0 : Return:IfendIF K<45300.109:Then 45025.092→A: 45300.109→ B:3757544.945→ M: 506032.892→N：146°34′42.88″→F：R=1000：Goto 2 : Return:IfendIF K<45500.109:Then 45300.109→A: 45500.109→ B:3757297.588→ M: 506151.102→N：162°20′09.32″→F： 1/1000→D： 1/1045→E ：Goto 0 : Return:IfendIF K<45805.835:Then 45500.109→A: 45805.835→ B:3757103.485→ M: 506198.937→N：168°03′55.8″→F： 1/1045→D：1/1045→E： Goto 0 : Return:IfendIF K<45980.835:Then 45805.835→A: 45980.835→ B:3756804.367→ M: 506262.160→N：168°03′55.8″→F： -1/1045→D： -1/1000→E：Goto 0 : Return:IfendIF K<46136.333:Then 45980.835→A: 46136.333→ B:3756634.336→ M: 506303.312→N：163°03′07.63″→F：R=-1000：Goto 2 : Return:IfendLb1 0(E-D)÷(Abs(B-A)) →P：Abs(K-A) →Q：F+(PQ+2D)Q×90÷∏→JF+(PQ÷4+2D)Q×45÷(2∏) →GF+(3PQ÷4+2D)Q×135÷(2∏) →HF+(PQ÷2+2D)Q×45÷∏→S：M+Q÷12×(COS F+4(COS G+COS H)+2COS S+COS J) →X▲N+Q÷12×(SIN F+4(SIN G+SIN H)+2SIN S+SIN J) →Y▲GOTO 3LbI 2F+ABS(K-A)*180/(∏R) →JM+R(SIN J-SIN F) →X▲N-R(COS J-COS F) →Y ▲GOTO 3LbI3If W=0:Then Goto 1 :Else Goto 4:IfEndLb14X+ O COS(J-180+W) →Z▲Y+ O SIN(J-180+W) →Z▲X+I COS(J+W) →Z ▲Y+I SIN(J+W) →Z ▲Goto 1:”OK”说明：“YJ”为右交角，当它输入为0时，只计算中桩坐标。

CASIO 5800程序编辑说明CASIO-5800P计算器程序编辑说明一(程序名称:直线坐标计算——Z-X-Z程序内容:1. “X=“,A : “Y=“,B : “Q=”,Q2. LbI 03. “N=”,N : “S=”,S : ”E=”,E4. A + N cos(Q) ?D : B + N sin(Q) ?F5. D + S cos(Q + E) ?6. F + S sin(Q + E) ?7. Goto 0内容说明:A 、 B——以知点即起算点的x,y坐标值;Q——直线段方位角;N——直线段距离;S——边桩距离;E——转向角;(左转为“,E”，右转为“E”) 二(程序名称:圆曲线任意坐标计算——ZY-YZ程序内容:1. “Q=”,Q : “ X= ”,W : “ Y= “,K : “R= ”,R:“F=”,F : “N=”,N : “U=”,U2. R tan(N?2) ? T3. Q–T ? A4. W+T cos(F+180) ?M : K+T sin(F+180) ?G5. LbI 06. “H=” ,H : ” S=” ?,S : “E=” ,E7. Abs(H - A) ? D8. 180 D?(Rπ) ?О9. R sin(О) ?C10. R (1-cos(О)) ?D11. M+C cos(F) ? I : G+C sin(F) ? J12. I+D cos(F+90U) ?X : J+D sin(F+90U) ? Y13. X+S cos(F+ОU+E) ?14. Y+S sin(F+ОU+E) ?15. Goto 0内容说明: Q——交点里程桩号;W 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”)H——圆曲线上任意一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”) 三(程序名称:极坐标放样元素计算——J-Z-B-F-J程序内容: 1. “X=”,A : “Y=”,B : “X0=”,C :“Y0=”,D2. PoI ( C - A,D - B ) : CIs3. If J，0 : Then J+360?E : EIse J?E:IfEnd:E?DMS?4. I?5. LbI 06. “XN=”,U7. WhiIe U?0 (输入“0”即结束程序)8. “YN=”,V9. PoI(U-A,V-B):CIs10. If J，0:Then J+360?F:EIse J?F:IfEnd:F?DMS?11. I?12. F – E ? H13. If H，0:Then H+360?H:IfEnd : H?DMS?14. Goto 0内容说明: A、B——测站点坐标C、D——0方向点坐标E——计算出的测站点至0方向点的方位角I——计算出的测站点至0方向点的距离U，V——N方向点坐标F——计算出的测站点至N方向点的方位角I——计算出的测站点至N方向点的距离H——计算出的0方向与N方向的水平夹角表格:点号 X坐标 Y坐标距离方位角起止点号夹角测站点0点 0?01点 0?12点 0?2四(程序名称:有缓和曲线的圆曲线上点位坐标计算 F-Y-X-Y 程序内容:1(“Q=”,Q :“J=”,J :“K=”,K :“R=”,R :“F=”,F :“N=”,N :“I =”,I :“U=”,U2(6 ? Dim Z3(90 I?(Rπ) ? G (切线角，即缓和曲线角计算)3 24 4(I?(24R) - I?(2688R) ? P (内移距)32 5(I?2 - I?(240R) ? M (切线增值)6((R+P) tan (N?2)+M ? T (切线长)7(πRN ? 180 + I ? L (曲线长)8(Q – T ? A : A + I ? B :A + L ? D : D – I ? C9(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2]10(LbI 011(“H=”,H :“S=”,S :“E=”,E12(H – A – I ? Z13(180 Z?(Rπ) + G ? О14(R sin(О) + M ? X15(R (1 –cos(О)) + P ? Z16(Z[1]+ Xcos( F ) ? Z[3] : Z[2] + X sin( F )? Z[4]17(Z[3]+ Z cos (F + 90U ) ? Z[5] :Z[4] + Z sin(F + 90U )? Z[6]18(Z[5]+ S cos ( F +ОU + E ) ?19. Z[6] + S sin( F+ОU + E ) ?20(Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前切线正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——有缓和圆曲的线圆曲线上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第9项——ZH点坐标;五(程序名称:缓和曲线段上点位坐标计算 F-H-X-Y程序内容:1 (“Q=”,Q :“J=”,J :“K=”,K :“R=”,R : “F=”,F :“N=”,N :“I =”,I :“U=”,U2(12 ? Dim Z32 3(I?2 - I?(240R) ? M (切线增值)3 24 4(I?(24R) - I?(2688R) ? P (内移距)5(πRN ? 180 + I ? L (曲线长)6(M+ (R+P) tan (N?2) ? T (切线长)7(Q – T ? A : A + I ? B : (ZH : HY)A + L ? D : D – I ? C (HZ:YH)8(J + T cos(F+180) ? Z[1] : K + T sin (F+180) ? Z[2] 9. J + T cos(F+NU) ? Z[3] : K + T sin (F+NU) ? Z[4] 10(LbI 011(“H=”,H :“S=”,S :“E=”,E12. H，B? Goto 113. H，D? Goto 214(LbI 115(Abs(H - A) ? Z216(90 Z?(πR I ) ?О229445 17(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155318(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 19(Z[1]+ Xcos( F ) ? Z[5] : Z[2] + X sin( F )? Z[6] 20(Z[5]+ Z cos (F + 90U ) ? Z[7] :Z[6] + Z sin(F + 90U )? Z[8]21(Z[7]+ S cos ( F +ОU + E ) ?22. Z[8] + S sin( F+ОU + E ) ?23(Goto 024. LbI 225. D - H ? Z226(90 Z?(πR I ) ?О229445 27(Z - Z?(40 RI) + Z?(3456 RI) ? X 7331155328(Z?(6 RI) – Z?(336 RI) + Z?(42240 RI) ? Z 29(Z[3]+ X cos( F + NU+180 ) ? Z[9] :Z[4] + X sin( F + NU+180)? Z[10]30(Z[9]+ Z cos (F + NU+180 - 90U ) ? Z[11] :Z[10] + Z sin(F + NU+180 - 90U )? Z[12]31(Z[11]+ S cos ( F +NU+180 - ОU -(180 – E)) ?32. Z[12] + S sin( F+ NU+180 - ОU -(180 - E)) ?33. Goto 0内容说明: Q——交点里程桩号;J 、K——交点X、Y坐标;R——圆曲线半径;F——前直线段正方位角;N——偏角;(即转向角)I——缓和曲线长;U——控制偏角条件;(左偏角输入“,1”，右偏角输入“+1”) H——缓和曲线段上任一点里程桩号;S——中桩至边桩距离;E——夹角;(左边桩输入“,E”，右边桩输入“E”)第8项——ZH点坐标第9项——HZ点坐标。

5800平曲线超高、加宽计算程序5800CG JK JSLbI 0:Cls:“Z H”?C:“H Z”?E:“L B K”?A:“H P”?B:“Z-,Y+”?Z:“L S”?G:“C G”?P:“J K”?X←∣P+B→O: 0.04G÷O→N:Goto 1←∣LbI 1:Cls:D o：“C D，<0=﹥R e t u r n!”?S:I f S<0:T h e n G o t o0:I f E n d←∣S＜C=﹥Goto5←∣S>E=﹥Goto5←∣S＞C+G=﹥Goto2←∣N+C→H:(S-C)/G→L:L O-B→I:L X+A→J←∣I f S＜H:T h e n-B J→D:A I→F:E l s e-I J→D:A I→F:IfEnd←∣Goto4←∣LbI 2:S＞E-G=﹥Goto3←∣X+A→J:-P(A+X)→D:A P→F: Goto4←∣LbI 3:E-N→K:(E-S)/G→L:(4L3-3L4)X+A→J:L O-B→I←∣I f S＜K:T h e n-I J→D:A I→F:E l s e-B J→D:A I→F:IfEnd←∣Goto4←∣LbI 4:If:Z＜0: J→H:A→K:D→L:F→M:Goto6:IfEnd←∣If Z≥0:T h e n A→H:J→K:F→L:D→M:Goto6:IfEnd←∣LbI 5:A→H:A→K:-BA→L:-BA→M:Goto6←∣Lbl 6:C l s←∣“Z K=”:L o c a t e4,1,H←∣“Y K=”:L o c a t e4,2,K←∣“Z-H=”:L o c a t e5,3,L←∣“Y-H=”:L o c a t e5,4,M▲Goto1←∣Lbl 0:C l s:“R e t u r n”：S t o p←∣说明：该程序适用于绕中轴旋转的一、二级公路，在三、四级公路上，有的设计也采用Ⅰ类加宽（本程序），有的则采用Ⅱ类加宽，只需将Lbi3中的=(4L3-3L4)X+A→J 改为L X+A→J即可。