5800万能主程序计算程序

X—5800P 公路中线、边桩程序一、主程序 ZBJS18→DimZ:“X0 =”? K: “Y0 =”? D: ? A: ?R: “Ls =”? L: 180/（πR）→ Z [8]: 0.5L-L3/（240R2）→Q:“T=”:(R+L2/(24R))tan(0.5A)+Q→T◢Z[8]L/2→B:“O=”: A/Z[8]+L→O◢(本行中O为字母)“E=”: (R+ L2/(24R))/ （Cos(0.5A)）-R→E◢“JD=”？ Z: “ZH=”:Z-T→Z[18]◢“HY=”: Z[18]+L→ Z[1] ◢“QZ=”: Z[18]+0.5O→Z[9] ◢(本行中O为字母)“YH=”: Z[18]+O- L →Z[2]◢(本行中O为字母)“HZ=”: Z[18]+O→Z[3]◢(本行中O为字母)“P(1,2)=”?P:“X(JD)=”? U: “Y(JD)= ”? V: “FWJ=”?F:Lbl0: “K=”?M:If M≤Z[18]： Then GoTo 6：IfendIf M ≤Z[1]： Then GoTo 1: IfEndIf M <Z[2]： Then GoTo 2: IfEndIf M ≥ Z[3] ：Then GoTo 7：IfEndIf M ≥ Z[2] ：Then GoTo 5：IfEndLbI 1 : M- Z[18]→G ：√-- ((G-G5/(40R2L2))2+(G3/(6RL)-G5/(336R3L)2) →Z[10]:If P<2 :Then F+Z[8]G2/(6L)→C:F+BG2/L2→H：Else F-Z[8]G2/（6L）→C:F-BG2/L2→H：GoTo 3: IfendLbI 2: M-Z[1] →G:R(1-Cos(B+Z[8]G))+L2/（24R）→W:√￣(W2+(RSin(B+Z[8]G)+Q)2) →Z[10]:If P<2 :Then F+tan-1(W/(R Sin(B+Z[8]G)+Q)) → C:F+B+Z[8]G→H：Else F-tan-1(W/(R Sin(B+Z[8]G)+Q))→C:F-B-Z[8]G→H：IfendLbI 3:“X=”: U+T Cos(F-180)+Z[10] Cos（C）→X:“Y=”: V+T Sin(F-180)+Z[10] Sin（C）→Y:Prog“A ”:LbI 4: X →Z[6]: Y→Z[7]:“S=”?S:“Z(X)=”:Z[6]+S cos(H-90)→X◢“Z(Y)=”:Z[7]+S Sin(H-90)→Y◢ Prog“A ”:“Y(X)=”:Z[6]+S Cos(H+90)→X◢“Y(Y)=”:Z[7]+S Sin(H+90)→Y◢ Prog“A ”: GoTo 0:LbI5: Z[3]-M→G:(T-G+G5/(40R2L2))Sin(A)+(G3/(6RL)-G5/(336R3L))Cos(A)→Z[4]:T+(T-G+G5/(40R2L2))Cos(A)-(G3/(6RL)-G5/(336R3L))Sin(A)→Z[5]: √￣(Z[4] 2+Z[5] 2) → Z[10]:If P<2 :Then F+tan-1(Z[4]/Z[5]) →C: F+A-BG2/L2→H:Else F- tan-1(Z[4]/Z[5])→C: F+A-BG2/L2→H :GoTo 3: IfEndLbI6: Z-M→ Z[10]: F+180 →C: F→ H: GoTo 8:LbI7: T+M-Z[3] →Z[10]:If P<2:Then F+A →C:Else F-A →C: C→H: IfEnd:LbI8:“X=”: U+Z[10] cos(C)→ X◢“Y=”: V+Z[10] Sin(C)→ Y◢ Prog “A ”:GoTo 4子程序一： A0→I：0→J：Pol（X-K，Y-D）:“D=”: I →Z[11]◢If Y-D≥0 Then “F=”: J→ Z[12]◢（本行中O为字母）Else “F=”: 360+J →Z[12] ◢ IfEnd子程序二(虚交交点座标计算) XJJDZB?N: N-1→N：“TA=”?A ： 0 →Ο(字母)： 0→ Q：LbI 0：“AB=”?S：“TB=”?B:（S+O）SinB/ Sin（A+B）+Q→Q：（S+O）SinA/ Sin（A+B）→O：A+B→A：“ZJ-A=”:A◢N-1→N：If N=0:Then GoTo 1：Else: GoTo 0:IfendLbI 1：“JD1(TA)=”?I: “T1=”:Q◢“Z(JD )=”: I+Q→Z◢Z-I →K：?F:If K≥0:Then F→H: Else F+180 →H:Ifend“（TA）X=”?C:“(TA) Y=”?D:“U=”:C+AbsKcosH→ U◢“V=”:D+Abs(K SinH)) → V◢Prog “ZBJS ”子程序三(距离、方位角计算)（可独立使用）： DF ？A:? B:LbI 0: ？X: ?Y:0→I:0→J: PoL(X-A,Y-B): “D=”： I →D◢If Y-B≥ 0:Then“F=”： J→ F◢Else “F=”： 360+J →F◢ Ifend :GoTo 0二、独立程序：导线坐标计算DXZB“X0”？X: “Y0”？ Y:LbI 0:？I：？S: F+I →F:“X=”:X+ScosF →X◢“Y=”: Y+SsinF→Y◢If F＜0:Then F=360+F :IfendIf F＞360:Then “F=”: F-360→F◢ Ifend : Goto 0 序号I S--导线间距X--坐标Y--坐标方位角BP0º0′0"134.26X0坐标240.63Y0坐标193.744120º12′45"起始边方位角FºJD1TA -21º45′57" 36.77 408.0642.259 98º26′48" JD1TB -16º29′25" 30.56 449.86239.377 81º57′23" JD2 14º01′28" 64.05 686.88252.686 95º58′51" JD3 37.73 938.19``说明：一、当放线为虚交时，启动<虚交交点座标计算>程序：即：子程序三；二、当放线为单交时，启动主程序即可计算；三、程序中符号说明：（1）. 启动主程序时:X0 ?、Y0 ?——请分别输入仪器点X坐标、Y坐标值Ls ?——输入缓和曲线长；R ?——输入圆曲线半径长度；ZJ-A ?——输入交点总偏角度数；T、O、E、分别为计算出的曲线元素；JD ?——输入总交点里程（一般由公里数输至厘米,且以米为单位）；1，2 ?——输入曲线偏向：左偏输入2，右偏输入1；X（JD）? Y（JD）?——分别输入总交点的X、Y坐标；CD ?—输入放样点里程桩号；F ?——输入前一个交点至欲放样曲线交点的方位角；X=、Y=—计算出的放样点中桩坐标；D=、F=——计算出的置仪点至放样点的距离及方位角；S ?、N ?——分别为中桩至左、右侧边桩的距离；Zx=、Zy=、Yx=、Yy=——计算出的左、右边桩位置的X、Y坐标；D=、F=——置仪点到放样点的距离、方位角：（2）.启动虚交程序时N ? 虚交交点个数；A?—第一虚交偏角；S?—相联两虚交点间间距，共计N-1段；B ?——分别第二至第N个虚交交点的偏角；JD(TA) ?——输入TA点的交点里程桩号；T1=—第一切线长度；JD=——计算出的总交点的里程桩号；F ?——欲放样曲线的第一虚交至前一个曲线交点的方位角；C ?、D ?——分别为TA点的X、Y坐标。

附件(点击下载)：(在线预览)程序源2009.04.08校对件2009.04.09附算例已有朋友成功，请与成功的朋友多沟通。

2009.04.12加桥台转轴计算，2009.04.19加涵通转轴计算2009.05.05附可替换子程序Q.4(5点法加速）2009.05.23重新上转附件，附图，算例，及平分中矢法布桩坐标计算方法，2009.07.21 CASIO-----fx5800 (任意平曲线极坐标与直角坐标放样,求里程及边距)湖南津市赵济汉主程序PQXDeg : Fix 3 : “XZ→0:YZ→1”？A : If A = 1: Then Goto 1 : IfEnd ↙If A = 0 : Then “ BS→0:XY→1:AND→2:DK→3:L(I)→4 ” ？O: IfEnd ↙If O= 4: Then Goto 1 : IfEnd ↙If O= 3: Then Prog “ F.2 ” : If X= 0 : Then Goto 1 : IfEnd : IfEnd ↙If O≠ 1: Then “ X1 ” ？X : “ Y1” ？Y : X→Z［11］: Y→Z［12］: “ X2 ” ？P : “ Y2” ？Q : Pol( P－X , Q－Y) : If J﹤0 : Then J + 360→J : IfEnd : Cls : “ S12= ” :Locate 6 ,1, I : “ B12= ” : J ►DMS◣1→B : IfEnd ↙If O= 1: Then “XY(0) →0: ≠﹥1” ? B: IfEnd ↙Lbl 1 : If A = 1 And O= 3 :Then Prog “ F.2 ” : IfEnd : Prog “ Q.1 ”子程序PPQX （给定综合曲线属性）“ ZQX →0: *** →1: *** →2 ******* ” ？C ↙If C=0: Then 100→Z［98］: n0 →Z［99］: IfEnd ↙If C=1: Then m1→Z［98］: n1 →Z［99］: IfEnd ↙If C=2: Then m2→Z［98］: n2 →Z［99］: IfEnd ↙*******Prog “ PQX ”其中： mi为第i条综合曲线矩阵变量起始单元，(第1条综合曲线矩阵变量起始单元应自100开始，以便其他程序临时使用100以前的矩阵变量，综合曲线中每一基本单元需8个矩阵存储单元)；ni为第i条综合曲线中基本单元数，每增加一个条综合曲线则增加一行If C=*******→Z［99］: IfEnd↙语句。

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文件里。

5800计算机测量程序1:主程序（TYQXJS）Lb1 4:”1.SZ=>XY”:”2.XY=>SZ”:?N:U:”X0”?U: V:”Y0”?V: O:”S0”?O :G:”F0”?G:H:”LS”?H:P:”R0”?P:R:”RN”?R:Q:”Q”?Q:↘(1÷P)→C:(P-R)÷(2HPR)→D:(180÷Π)→E:N=1=>Goto 1:Goto 2↘Lb1 1:?S:?Z:Abs(S-O)→W:Prog”SUB1”: ↘“XS=”:X◢“YS=”:Y◢F-90→F:”FS=”:F▲DMS◢Goto 1↘Lb1 2:?X:?Y:X→I:Y→J:Prog”SUB2”:O+W→S:”S=”S◢“Z=”:Z◢Goto 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））+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：反算子程序(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）<0.001：Then 0→Z:Prog "SUB1"：(J-Y)÷sin（F）→Z：Else W+Z→W:Goto0：IfEnd↘使用说明U：“XO”起点的X坐标，V：“YO”起点的Y坐标，O：“SO”起点的里程桩号，G：“FO”起点的方位角，H：“LS”计算段线元的长度，P：“RO”线元起点的曲率半径，R：“RN”线元终点曲率半径，“Q ”线元图形信息（直线段Q=0，左偏Q=-1，右偏Q=1）以道路中线前进方向（即大里程方向）区分左右。

卡西欧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*LRs:缓和曲线起点半径Re:缓和曲线止点半径Rs，Re （NE坐标系下，右偏为正，左偏为负）Ta:缓和曲线起点的真北方位角Ls:不完整缓和曲线长度。

此公式为缓和曲线在坐标系下任意位置的通用积分公式，能完全适应缓和曲线左偏、右偏、Rs >Re 、Rs <="">Fx-5800计算机程序QXJS-000 主程序Lbl 4:“1.SZ=>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 1IF 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，每增加一个工程增加一个文件。

主程序名：JD24→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=＂:＂L Y=＂: 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名：JDAIf 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] ↙↙Z[1]+B→Z[2] ↙↙Z[2]+Q÷2→Z[3]↙Z[1]+L-C→Z[4]↙Z[4]+C→Z[5]↙子程序2名：JDBX-Scos(M)→Z[19]:Y-Ssin(M)→Z[20]↙X+Tcos(N)→Z[21]:Y+Tsin(N)→Z[22]↙If P＞Z[1]:Then Goto 1 :IfEnd↙Z[1]-P→L↙X-(S+L)cos(M)+Dcos(Z+H)→F↙Y-(S+L)sin(M)+Dsin(Z+H)→G↙M→Z : Goto 5↙LbI 1 : If P＞Z[2]:Then Goto 2 :IfEnd↙P-Z[1]→L:L→Z[12]:B→Z[13]:Prog＂JDC＂↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+90WL2 ÷(BRπ)→Z↙Goto 5↙LbI 2 : If P＞Z[4]:Then Goto 3 :IfEnd↙P-Z[1]→L:90(2L-B)÷R÷π→Z[11]↙Rsin(Z[11])+Z[8]→Z[14]:R(1-cos(Z[11]))+Z[6]→Z[15]↙Z[19]+Z[14]cos(M)-WZ[15]sin(M)+Dcos(Z+H)→F↙Z[20]+Z[14]sin(M)+WZ[15]cos(M)+Dsin(Z+H)→G↙M+WZ[11]→Z↙Goto 5↙LbI 3 : If P＞Z[5]:Then Goto 4 :IfEnd↙Z[5]-P→L:L→Z[12]:C→Z[13]:Prog＂JDC＂↙Z[21]-Z[14]cos(N)-WZ[15]sin(N)+Dcos(Z+H)→F↙Z[22]-Z[14]sin(N)+WZ[15]cos(N)+Dsin(Z+H)→G↙N-90WL2 ÷(CRπ)→Z↙Goto 5↙LbI 4 : P-Z[5]→L↙X+(T+L)cos(N)+Dcos(Z+H)→F↙Y+(T+L)sin(N)+Dsin(Z+H)→G↙N→Z↙Goto 5↙LbI 5 : 360Frac((Z+360)÷360→Z↙子程序3名：JDCIf Z[12]=0 :Then 0→Z[14]: 0→Z[15]:Else↙Z[12]- Z[12]^(5)÷40÷(RZ[13])2+ Z[12]^(9)÷3456÷(RZ[13])^(4) →Z[14]↙Z[12]^(3)÷6÷(RZ[13])-Z[12]^(7)÷336÷(RZ[13])^(3)+ Z[12]^(11) ÷42240÷(RZ[13])^(5)→Z[15] ↙IfEnd↙程序说明：已知数据输入：XC ? 测站X坐标YC ? 测站Y坐标K（JD）?交点桩号X（JD）?交点X坐标Y（JD）?交点Y坐标LS1 ?第一缓和曲线长度LS2 ?第二缓和曲线长度R ? 圆曲线半径（ZH）FWJ°?交点前（即前交点至本交点也即ZH点）的正切线方位角α（Z-,Y+）?本交点处线路转角（左转为负，右转为正，度分秒输入）K×+×××? 待求桩号Z ?待求桩号距中距离（左负值，右正值，中为0）RJ ?斜交右角（线路切线前进方向与边桩右侧夹角）计算结果显示：T1=第一切线长T2=第二切线长L=曲线总长L Y=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= Y=待求点的坐标（其中：L-左Z-中R-右）QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）S= F=测站至待求点的水平距离、方位角（其中L-左Z-中R-右）（郑重声明：代码无误，输入注意！使用者使用不当所造成的一切损失概不负责！！）本篇文章来源于-Blog-Survey /blog 原文链接：/blog/post/Casiofx-5800P-jiaodianfa.html。

1、主程序：程序名：ZCX输入：”K”?K←If K >540980.584 (直线起点里程) And K<= （小于等于符号）541358.301:（直缓点里程）Then 2890632.365→A: 526217.878→B:79°34′47.8″→F:540980.584→J:Prog”ZX”(A,B,F,J分别为起算点坐标，方位角，里程) Prog”PJ”(运行求偏距的程序)IfEndIf K>541358.301 （直缓点里程）And K<=541488.301：（缓圆点里程）Then 2890700.680→A:526589.366→B: 79°34′47.8″→F: 541358.301→J:1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为直缓点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541488.301（缓圆点里程）And K<=541694.275:（圆缓点里程）Then 2890723.4→A: 526717.363→B:80°38′38.4″→F:541488.301→J:1→G:3500→R:Prog”YQX”（A,B,F,J,G,L分别为缓圆点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541694.275 （圆缓点里程）And K<=541824.275：（缓直点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J:-1→G:3500→R:130→L:Prog”HHQX”（A,B,F,J,G,L分别为缓直点坐标，方位角，里程，偏向，圆曲线半径，缓和曲线长度）Prog”PJ”IfEndIf K>541824.275 （缓直点里程）And K<=542167.602：（下一段直缓点里程）Then 2890762.83→A:527050.912→B: 85°04′47.7″→F: 541824.275→J: Prog”ZX”(A,B,F,J分别为缓直点坐标，方位角，里程)注：以上程序为一段标准曲线（包括直线，缓和曲线，圆曲线，缓和曲线，直线）的主程序，程序名为ZX，HHQX，YQX2、直线程序程序名：ZXA+(K – J )xcos(F) →X:”X0=”:X◢B+(K – J )xsin(F) →Y:”Y0=”:Y◢F→W:”F=”:W◢3、圆曲线程序程序名：YQXA+2xRxSin（90x(K- J)÷∏÷R）XCos(F+90xGx(K- J) ÷∏÷R) →X:”X0=”:X◢B+2xRxSin（90x(K- J)÷∏÷R）XSin (F+90xGx(K- J) ÷∏÷R) →Y:”Y0=”:Y◢F+180xGx(K- J) ÷∏÷R→W: F=”:W◢4、缓和曲线程序程序名：HHQXA+((K- J)-(K- J)5÷(90xR²xL²))xcos(F+30xGx(K- J) ²÷∏÷R÷L) →X: “X0=”:X◢B+((K- J)-(K- J)5÷(90xR²xL²))xsin(F+30xGx(K- J) ²÷∏÷R÷L) →Y: “Y0=”:Y◢F+90xGx(K- J) ²÷∏÷R÷L→W:”F=”:W◢5、偏距程序50→DimZ“Z=”?Z:(Z为偏离线路中线的距离)X+Zxcos(W-90) →U:”XL=”:U◢(左边X坐标)Y+Zxsin(W-90) →V:”YL=”:V◢(左边Y坐标)X+Zxcos(W+90) →D:”XR=”:D◢(右边X坐标)Y+Zxsin(W+90) →E:”YR=”:E◢(右边Y坐标)Return。

卡西欧5800程序(修改于湘桂)R（主程序，通过里程求中桩、边桩坐标，在输入测站坐标后并求极坐标放样要素）1→M :“NEWZ CIRCLE”？M : If M=-1: Then “JD”？U :“1-TR-1-TL” ? N : “AT ” ? O : “JX” ? S : “JY ” ? P : “L0 ” ? H : “R” ? R : “ZJ” ? A : IfEnd↙“OPP NAME ”？W : If W=-1 : Then “OPPX”？B : “OPPY”？C : Else Prog“CONTREL”:IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If M=1:Then Prog“CIRCLE” IfEnd↙H÷2-H^(3)÷(240R2)+(R+H2÷(24R))tan（A÷2）→T:πR(A-180H÷π÷R)÷180+2H→L↙U-T→G:K→Q↙If Q≤G+L÷2:Then Q-G→Q: Else G+L-Q→Q: IfEnd↙If Q＜0:Then Prog “L”:Goto1: IfEnd↙If Q≤H:Then Q-Q^(5)÷(40R2H2)→X:Q^(3)÷(6RH)-Q^(7)÷(336R^(3)H^(3)) →Y:90Q2÷(πRH) →F: Else 180(Q-H÷2)÷(πR) →F:Rsin(F)+H÷2-H^(3)÷(240R2) →X:R(1-Cos(F))+H2÷(24R) →Y: IfEnd↙Pol(T-X,Y) ↙If K≤G+L÷2:Then O-180-NJ→E:NF+O→F: “F=”:F▲DMS◢ ElseNA+NJ+ O→E: O+NA-NF→F: “F=”:F▲DMS◢IfEnd↙“X=”:S+Icos(E)→X◢“Y=”:P+Isin(E)→Y◢If F＜0:Then 360+F→F: IfEnd↙If F≥360:Then F-360→F: IfEnd↙Lbl1: “÷1”？Z: If Z=1:Then Prog “I”: IfEnd↙If Z=2:Then Prog “LD”: IfEnd↙If Z=-1:Then Prog “Q”: “X=”:X◢“Y=”: Y◢IfEnd↙Prog “P”↙Goto 0↙P（子程序，受主程序R调用，求极坐标放样要素:方位角及平距）Pol(X-B,Y-C): “D=”:I◢If J＜0:Then 360+J→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢L（子程序，受主程序R调用，求直线上点位坐标及切线方位角）T-Q→Q:If K＜G:Then O+180→E: O→F: “X=”:S+Qcos(E)→X◢“Y=”:P+Qsin(E) →Y◢ Else O+NA→F: “X=” S+Qcos(F) →X◢“Y=”:P+Qsin(F) →Y◢IfEnd↙I（子程序，受主程序R调用，求边桩坐标）“RA”？E：“D”？D:E+F→E: If E≥360:Then E-360→E: IfEnd↙X+Dcos(E)→X: Y+Dsin(E)→Y: “X=”: X◢“Y=”: Y◢E→F↙Q（子程序，受主程序R调用，求副线边桩坐标）“1A”？E：“1D”？D：E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y:E→F↙“2R”？E: “2D”？D: E+F→E↙X+Dcos(E)→X: Y+Dsin(E)→Y↙E→F↙LD（子程序，受主程序R调用，通过坐标反求里程和偏距）40→DimZ↙O→Z[1]:U→Z[2]:S→Z[3]: P→Z[4] ↙H÷2-H^(3)÷(240R2)→M: H2÷(24R)-H^(4)÷(2688R^(3))→V:90H2÷(πR)→D:(R+V)Tan(A÷2)+M→T: πRA÷180+H→K:O+NA→J:Prog“JD”:J→Z[21]:U-T+K→Z[22]: S-Tcos(O)→Z[5]:P-Tsin(O)→Z[6]:Z[5]+Mcos(O)+(R+V)cos(O+90N)→Z[7]:Z[6]+Msin(O)+ (R+V)sin(O+90N)→Z[8] ↙H-H^(5)÷(40R2H2)→Z:H^(3)÷(6RH)-H^(7)÷(336R^(3)H^(3))→C: Pol(C,Z):90-J→J:Prog“JD”: O+JN→J:Prog“JD”↙Z[5]+Icos(J)→Z[9]:Z[6]+Isin(J)→Z[10]:S+Tcos(Z[21])→Z[11]: P+Tsin(Z[21])→Z[12] ↙Pol(Z[10]-Z[8],Z[9]-Z[7]):90-J→J:Prog“JD”:J→Z[13] ↙J+(A-2D)N→J: Prog“JD”: J→Z[14] ↙“CEDIAN”◢Lbl 0: ↙“B”？B:If B=0:Then Prog “R”: IfEnd↙“XN=”？X: “YN=”？Y:Pol(Y-Z[8],X-Z[7]) ↙90-J→J: Prog“JD”:J→W:J-Z[13]→J↙Prog“JD”:J→Z[15] ↙W-Z[14]→J↙Prog“JD”:J→Z[16] ↙If N=1:Then Goto 1: IfEnd↙If N=-1:Then Goto 2: IfEnd↙Lbl 1: ↙If Z[15]＞180：Then Goto 3: IfEnd↙If Z[16]≤180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 2: ↙If Z[15]＜180：Then Goto 3: IfEnd↙If Z[16] ＞180：Then Goto 5:Else Goto 4 : IfEnd↙Lbl 3: ↙“H1”◢Pol(Y-Z[6],X-Z[5]):90-J→J: Prog“JD”↙J-Z[1]+90→J: Prog“JD”↙Isin(J)→G↙If G＞0:Then 0→L:Goto 6: IfEnd↙If G≤0:Then “DK=”:Z[2]-T+G→Z[19]◢If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 4: ↙“Y”◢If N=-1:Then 360-Z[15]→Z[15]: IfEnd: “DK=”:Z[2]-T+H+πR(Z[15])÷180→Z[19]◢If N=1:Then “LD=”:-(I-R)→Z[20]◢Else “LD=” :I-R→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 5: ↙“H2”◢Pol(Y-Z[12],X-Z[11]):90-J→J: Prog“JD”:J→W:Z[21]-90→J: Prog“JD”:W-J→J: Prog“JD”:Isin(J)→G:If G＜0:Then 0→L: -G→G↙Goto 7: IfEnd↙If G≥0:Then “DK=”:Z[22]+G→Z[19]◢IfEnd: If N=1:Then “LD=”:-NIcos(J)→Z[20]◢Else “LD=”:NIcos(J)→Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 6: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[1]+WN→J: Prog“JD”:Z[5]+Icos(J)→Z[17]: Z[6]+Isin(J) →Z[18] ↙J+2WN→J: Prog“JD”:J-90→J: Prog“JD”:J→W↙Pol（Y-Z[18],X-Z[17]）:90-J→J: Prog“JD”↙J-W→J: Prog“JD”:Isin(J)→G:If Abs(G)＞0.001:Then Goto 6: IfEnd↙“DK=”:Z[2]-T+L+G→Z[19]◢If N=1:Then “LD=”:-Ncos(J) →Z[20]◢Else“LD=”:NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙Lbl 7: ↙L+G→L:L-L^(5)÷(40R2H2)→Z:L^(3)÷(6RH)-L^(7)÷(336R^(3)H^(3)) →C:Pol(C,Z):90-J→J: Prog“JD”:J→W:Z[21]-180-WN→J: Prog“JD”↙Z[11]+Icos(J)→Z[17]:Z[12]+Isin(J)→Z[18]:J-2WN→J: Prog“JD”↙J-90→J: Prog“JD”:J→W↙Pol(Y-Z[18],X-Z[17]):90-J→J: Prog“JD”↙J-W→J:Prog “JD”↙Isin(J)→G: If Abs(G)＞0.001:Then Goto 7:IfEnd↙“DK=”:Z[22]-L-G→Z[19]◢If N=1:Then “LD=”:NIcos(J)→Z[20]◢Else“LD=”:-NIcos(J) →Z[20]◢IfEnd↙“SD=1,LD≠1”？D:If D=1:Then Prog “SDCQJC”: IfEnd↙Goto 0↙JD（子程序，受LD程序调用，计算角度归化值）If J＜0:Then J+360→J: IfEnd↙If J≥360:Then J-360→J: IfEnd↙CIRCLE（子程序，线路平面曲线要素，受主程序R调用）If K≤缓直点里程:Then 交点里程→U:交点X坐标→S:交点Y坐标→P:转角值→A:-1（曲线段左偏）或1（曲线段右偏）→N:圆曲线半径→R:缓和曲线长→H:直线段起始方位角→O:Goto 1: IfEnd↙If K≤……（同上输完全部曲线要素为止）Lbl 1↙CONTREL（控制点坐标数据库子程序，受主程序R和ZBFS调用）If W=控制点点号:Then 控制点X坐标→B:控制点Y坐标→C: IfEnd ↙If W=……（同上输完全部控制点数据为止）ZBFS（主程序，求两已知点方位角及平距,或已知两点求后方交会点坐标）Lbl 0:1→W: “NEW OPP”？W:If W=1:Then “OPPX”？X: “OPPY”？Y:Else Prog “CONTREL”:B→X:C→Y: IfEnd↙Lbl 1:-1→W: “NEW CPP”？W: If W=-1:Then “CPPX”？S: “CPPY”？T: Else Prog “CONTREL”:B→S:C→T: IfEnd↙Pol(S-X,T-Y): “D=”:I◢If J＜0:Then J+360→J: Else 0+J→J: IfEnd↙“AQ=”:J▲DMS◢Lbl 2:0→W: “ZBFS=0,SQS≠0”？W:If W=0:Then Goto 1: ElseProg “SQS”: IfEnd↙Goto 0↙SQS（子程序，受主程序ZBFS调用，通过角度边长求交会点坐标值）Lbl 0: “S1=”？A: “J1=？M: “J2=”？N: “S2=？D:N-M→Q: If Q ＜0:Then Q+360→Q: IfEnd↙If Q＜45°0′0″:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙√(A2+D2-2ADos(Q))→E: “S3=”:E◢If Abs(A-D)≥60:Then “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If Abs(I-E)＜0.01:Then cos-1((A2+E2-D2)÷(2AE))→R: cos-1((D2+E2-A2) ÷(2DE))→G: Else “ERROR PLEASE REPEAT”◢Goto 0: IfEnd↙If J＜0:Then J+360→J:IfEnd↙(X+Acos(J+R)+S+Dcos(J+180-G))÷2→F: “X=”:F◢(Y+Asin(J+R)+T+Dsin(J+180-G))÷2→P: “Y=”:P◢SQX（主程序，竖曲线求线路各里程点中桩设计高程）1→S：“NEWZ SQXK”？S: If S=-1:Then ？U:？R:？T:？N:？I:？F: “HB”？B: IfEnd↙Lbl 0: “C”？K : If Int(K÷1000)>0 : Then Int(K÷1000)→V :Else “V”？V ：K+1000V→K：IfEnd↙If S≠-1:Then Prog “SQXK”: IfEnd↙U-T→G:K→Q: If Q≤G:Then Q-U→Q: Else Q-G→W: IfEnd↙If Q≤G:Then “H=”:B+QN÷1000→H◢Goto 1↙Else If Q≤U+T:Then “H=”:B+(Q-U)N÷1000+FW2÷(2R)→H◢Goto 1↙Else If Q≥U+T:Then “H=”:B+(Q-U)I÷1000→H◢Goto 1:IfEnd↙Lbl 1: “P”？P: “O=”:H-P→O◢Goto 0↙SQXK（子程序，受主程序SQX调用，竖曲线要素）If K≤竖曲线圆直点里程：Then 变坡点里程→U:变坡点设计高程→B:竖曲线圆曲线半径→R:竖曲线切线长→T:竖曲线直线段坡度常数（上、下坡有正负之分）→N:变坡点常数（凸为-1，凹为1）→F: Goto 0: IfEnd↙If K≤……（同上输完全部竖曲线要素为止）Lbl 0↙SDCQJC（子程序，受LD程序调用，采集隧道支护位置坐标高程数据一次性计算出该支护位置的超欠挖量）40→DimZ↙Lbl 0:Z[19]→Z[23]:Prog “SQXZ”↙Z[24]-Z[27]→Z[30]: Z[23]→Z[31] ↙If Z[31]≤Z[30]:Then Z[31]-Z[24]→Z[31]:Else Z[31]-Z[30] →Z[32]: IfEnd↙If Z[31]≤Z[30]:Then Z[25]+(Z[31])×(Z[28])÷1000→Z[33]: Goto 1↙Else If Z[31]≤Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×(Z[28])÷1000+(Z[29])×(Z[32])2÷(2×Z[26])→Z[33]: Goto 1↙Else If Z[31]≥Z[24]+Z[27]:Then Z[25]+(Z[31]-Z[24])×I÷1000→Z[33]: Goto 1: IfEnd↙Lbl 1: “H0=”:Z[33]+内轨面至圆心高差常数→Z[33]◢“HN”？K: “Δh=”:K-Z[33]→Z[34]◢If Z[20]≥隧道中心线与设计中心线的偏移量ω:Then Z[20]-ω→Z[35]:Else ω- Z[20]→Z[35] : IfEnd↙“RN=”:√（（Z[34]）2+（Z[35]）2）→Z[36]◢“R0”？Z: “RCQ=”: Z[36]-Z→Z[37]◢SQXZ（子程序，受主程序SDCQJC调用，竖曲线要素）40→DimZ↙If Z[23]≤竖曲线圆直点里程：Then 变坡点里程→Z[24]:变坡点设计高程→Z[25]:竖曲线圆曲线半径→Z[26]:竖曲线切线长→Z[27]:竖曲线直线段坡度常数（上、下坡有正负之分）→Z[28]:变坡点常数（凸为-1，凹为1）→Z[29]:IfEnd↙文档来源为:从网络收集整理.word版本可编辑.欢迎下载支持. If Z[23]≤……（同上输完全部竖曲线要素为止）Lbl 0↙。

（陕西商洛）黄沙岭隧道设计线5800程序FSXL(反算线路)“K=0,ZK≠0”?H: Lbl0：“X<0,P rog=>IEnd”:2→DimZ:“X=”?X:IfX<0:ThenGoto2:IfEnd:“Y=”?Y:“K=”?K:Lbl1:IfH=0:Thenprog “YX2”:Else prog“ZX”：IfEnd：prog“SUB”:X-U→I:Y-V→J:Po l （I,J）:IfJ<0:ThenJ+360→J:IfEnd：Icos（W-J）→M:-Is in（W-J）→N:IfAbs（M）>0.001:ThenK+M→K:Go to1：Els e“K=”：K◢“B=”:N◢Goto0：IfEnd: Lbl2: “Prog,End”FYXL(放样线路)“K=0,ZK≠0”?H: Lbl0：“K<0,=>Prog,End”:2→DimZ：“K=”?K:IfK<0:ThenGoto1：ElseIfH=0:T henPro g“YX2” ：ElseP rog“ZX”:IfEnd：Pro g“SUB”:“FWJ=” W DMS◢“XS=”:U◢“YS=”:V◢“AP=”?O:“B=”?R:“X=”:U+Rcos（W+O）◢“Y=”:V+Rs in（W+O）◢Goto0：IfEndLbl1：“Prog,End”SUB（子程序）2→DimZ:(E-D)÷Abs（G-F）→P:Abs(K-F)→Q:P×Q→I:C+(I+2×D)×Q×90÷π→W:C+(I÷4+2×D)×Q×45÷(2×π)→M:C+(3×I÷4+2×D)×Q×135÷(2×π)→N:C+(I÷2+2×D)×Q×45÷π→Z[1]:A+Q÷12×(co s（C）+4×(cos（M）+cos （N）)+2×cos(Z[1])+cos（W）)→U:B+Q÷12×(s in（C）+4×(s in(M)+s in(N))+2×s in(Z[1])+s in（W）)→V↵C-CURVE1(主程序)“NO,JD=”? →J:“ALFA=”? →A:“R=”? →R:A÷2→H↵“T=”:Rtan（H）→T◢“E=”:R÷cos（H）-R◢“L=”:RAπ÷180→L:R+L-R◢“NO,ZY”:J-T→Z◢“NO,QZ”:Z+L÷2◢“NO,YZ”:Z+L◢“END” ↵↵YX（参数程序）IfK≤106963.428:Then4138.413→A:6509.37→B:156°22′15″→C:1÷5000→D:D→E:105871.499→F:106963.482→G:ElseIfK≤107481.107:Then3098.312→A:6834.771→B:168°53′2.4″→C: 0→D:D→E:106963.482→F:107481.107→G: ElseIfK≤107803.428:Then2590.339→A:6934.566→B:168°53′2.4″→C: 0→D:-1÷2800→E:107481.107→F:107803.428→G: Els eIfK≤108068.728:Then2275.421→A:7002.755→B:165°35′10.55″→C:-1÷2800→D:D→E：107803.428→F:108068.728→G: ElseIfK≤108391.049:Then2021.982→A:7080.859→B:160°09′26.96″→C:-1÷2800→D:D→E:108068.728→F:108391.049→G: ElseIfK≤108655.112:Then1723.263→A:7201.799→B:156°51′34.9″→C :0→D:1÷1600→E:108391.049→F:108655.112→G: ElseIfK≤109202.255:Then1477.757→A:7298.825→B:161°35′15.81″→C:1÷1600→D:D→E:108655.112→F:109202.255→G:IfEnd：IfEnd：IfEnd：IfEnd：IfEnd：IfEnd：ZX（参数程序）（江西梅岭隧道）IfK≤12976.956:Then3173199.557→A:512796.9719→B:310°21′5.6″→C:0→D:D→E:10734.781→F: 12976.956→G:Els eIfK≤13276.956:Then3174651.311→A:511088.2417→B:310°21′5.6″→C:0→D:1÷2654.5→E:12976.956→F: 13276.956→G: ElseIfK≤14009.534:Then3174849.2972→A:510863.3467→B:313°35′21 .12″→C:1÷2654.5→D:D→E:13276.956→F:14009.534→G:ElseIfK≤14309.534:Then3175421.2642→A:510408.7055→B:329°24′5. 4″→C:1÷2654.5→D:D→E：14009.534→F:14309.534→G: Els e ：IfEnd：YGC（右高程）Lbl0：“K<0,PROM,END”: “K=”?K:IfK<0:ThenGoto2：ElseIfK≤106984.25：Then840.515→S:0.0145→A:0→C:107220→J: Goto1 ElseIfK≤107455.750：Then840.515→S:0.0145→A:-1→C:230000→R:235.750→T:1072 20→J: Goto1 ElseIfK≤107822.500：Then835.475→S:-0.006→A:0→C:108060→J: Goto1 ElseIfK≤108297.500：Then835.475→S:-0.006→A:-1→C:250000→R:347.5→T:108060→J: Goto1 ElseIfK≤108590：Then816.975→S:-0.025→A:0→C:108800→J: Goto1 ElseIfK≤109010：Then816.975→S:-0.025→A:-1→C:210000→R:210→T:108800→J: Goto1 ElseIfK≤109490：Then792.675→S:-0.027→A:0→C:109700→J: Goto1 ElseIfEnd：IfEnd：IfEnd：IfEnd：IfEnd：Lbl1：S-(J-K)A+C(K+T-J)^(2) (2R) →H: “YHS=”H◢Prog“YHP”：Goto0 ↵Lbl2：“PROG,END”↵ZGC（左高程）（江西梅岭隧道）Lbl0：“K<0,PROM,END”: “K=”?K:IfK<0:ThenGoto2：ElseIfK≤11920：Then74.710→S:-0.0095→A:0→C:13580→J: Goto1 ElseIfK≥11920：Then74.710→S:-0.0095→A:0→C:1→R:0→T:13580→J: Goto1 ：IfEnd：↵Lbl1：“ZHS”:S-(J-K)A+C(K+T-J)^(2) ÷(2R)◢Prog“YHP”：Goto0 ↵Lbl2：“PROG,END”↵YHP(右横坡)IfK≤107600：Then-0.02→A: Goto2: ElseIfK≤107780：Then-0.02→B：0.02→C：180→L：107600→E：Goto1 ElseIfK≤108300：Then0.02→A：Goto2：ElseIfK≤108480：Then0.02→B：-0.02→C：180→L：108300→E：Goto1 ElseIfK≤108650：Then-0.02→B：-0.03→C：170→L：108480→E：Goto1：ElseIfK≤109180：Then-0.03→A：Goto2：IfEnd：IfEnd：IfEnd：IfEnd：IfEnd： Lbl1：B+(K-E)^(2) ÷L²×（3-2（K-E）÷L）×(C-B) →A：Goto2：Lbl2：“YHP=”：A◢ZHP(左横坡)IfK≤107760：Then-0.02→A: Goto2: ElseIfK≤107990：Then0.02→B：0.03→C：230→L：107760→E：Goto1 ElseIfK≤108160：Then0.03→A：Goto2：ElseIfK≤108310：Then0.03→B: 0.02→C：150→L：108160→E：Goto1 ElseIfK≤108490：Then0.02→B：-0.02→C：180→L：108310→E：Goto1：ElseIfK≤109180：Then-0.03→A :Goto2：IfEnd：IfEnd：IfEnd：IfEnd：Lbl1：B+(K-E)^(2) ÷L²×（3-2（K-E）÷L）×(C-B) →A：Goto2：Lbl2：“ZHP=”：A◢程序说明：A:起点XB:起点YC:起点方位角D:起点曲率半径E:终点曲率半径F:起点里程G:终点里程曲率半径{左负右正}。

卡西欧5800-9960系列计算器通用程序集作者：柠檬树QQ：249910569第一篇坐标正反算通用程序(终极篇)1.第1行：Lbl 0:”第2行：Prog “A”第3行：”X=”◢第4行：”Y=”第5行：”F=”第6行：GotoK——计算点的里程BIAN——计算点到中桩的距离（左负右正）α——取前右夹角为正A匝道数据2.第1行：”X1=”? C:第2行：Lbl第3行：第4行：第5行：第6行：第7行：Abs(S)>0.0001=>Goto 0第8行：”K1=”:K◢第9行：”BIAN=”:Isin(J-F)→Z◢X1——取样点的X坐标Y1——取样点的Y坐标K1ZA匝道数据List Ans列表中反算桩号反算偏距，为方便其他程序的调用，赋值到变量Z注：第4行和第53.第1行：K-A I第2行：N+∫(cos(F+X(2P+XI)×90÷π),0,S)→N第3行：E+∫(sin(F+X(2P+XI)×90÷π),0,S)→E第4行：F+S(2P+S I)×90÷π→F反向计算时需改为Abs(K-A)→S计算中桩的X坐标计算中桩的Y坐标计算中线切线方位角4. 数据库（命名为A）第1行：K≤第2行：175.191→→→K≤A+L第3行：245.607→→→Q:第4行：→→Q: 55.104 →L:第5行：373.627→A:428453.283→N:558138.912→E:124°50′4.5″→F:0→P:-1/180→Q:67.222→L: K≤A+L=>Goto 1:Stop（第一缓和曲线，圆半径为180）卡西欧fx-5800P程序集作者：柠檬树QQ：249910569第6行：Lbl 1:Prog “XYF”ANE——曲线段起点的FP)Q)L说明：（1）在9860中，程序中所有公式和部分函数结果均存储在List Ans列表数组中，要想多次调用最好随公式取出结果，并赋给变量。