4800中边桩坐标计算程序
4850 4500 4800正反算程序
1．中边桩计算程序<1>主程序名—XYLbl 1:{KM}：K：M：Prog”3”:X=C+Mcos(W-90:Y=D+Msin(W-90:”X=”:X:Pause 0:”Y=”:Y▲Goto1<2>子程序—3PrOg”QX”：Prog”20”<3>曲线要素—QX数据实例：某高速公路中线设计如下图所示K<2000=>B:E:F:O:P:Q:R: K≤4570=>B=25:E=1000:F=1000:O=100P=66:Q=4000:R=800: K≤5040=>B=-17:E=1086.4378:F=1555.1451:O=90:P=91:Q=4570:R=800: K≤5670=>B=35:E=1168.2556:F=2016.0909:O=120:P=74:Q=5040:R=1000: B=-25:E=1180.9927:F=2636.2334:O=150:P=109:Q=5670:R=1500注：无缓和曲线时，O=0.00001当输入里程小于2000时，为新曲线要素输入，可修改值域范围<4> 计算过程—20Z=O：Prog”8”：A=B/AbsB:L=ABπR/180+O:T=(D+RcosN)tan(AB/2)+C-RsinN：K≤Q-T=>C=(K-Q)cosP+E：D=(K-Q)sinP+F:W=P： K≤Q-T+O=>Z=K-Q+T：Prog”9”：K≤Q-T+L-O=>Z=O: Prog”9”:V=90(K-Q+T-O)/ πR:S=2R sinV:N=W+AV:C= C+S cosN:D=D+S sinN:W=W+2AV: Z=Q-T+L-K: Prog”8”:V=P+B-180-AV:W=P+B-AN :C=S cosV+E+T cos(P+B:D=S sinV+F+T sin(P+B: Z=K-Q+2T-L:W=P+B:C=E+ZcosW:D=F+Z sinW△△△△N=Z[3]<5> 缓和曲线方程式—8V=RO:C=Z-Z^5/40V2+Z^9/3456V^4:D=Z^3/6V-Z^7/336V^3+Z^11/42240V^5:N= 90Z^2/πV:V=tan-1(D/C:S=(D^2+C^2)^0.5<6> 子程序—9Prog”8”:C=Scos(P+AV)+E-TcosP:D=Ssin(P+AV)+F-TsinP:W=P+AN2.桩号、边桩距返算程序—KM方式一：试算法（速度慢，程序简单）Fixm:K=Q-T+L-O:Prog”20”Lbl 1:{XY}Lbl 2:POL(X-C,Y-D:K=Isin(J-W+90)+K:Abs sin(J-W+90)<0.0001＝>”K=”:K:Pause0:”M=”:M=Icos(J-W+90▲≠>Prog”20”:Goto2△方式二：解算法（程序复杂，计算速度快）Defm5: Lbl 1:Fixm:{XY}:Pol(X-E,Y-F:Z[1]=I:Z[2]=J:cos(J-P<0＝>K=Q+Icos(J-P: ≠>K=Q+Icos(J-P-B)+2T+L△K≤Q-T＝>M=Icos(J-P+90:Goto5≠>Goto2△△Lbl 2:Z=O:Porg”8”:U=(D+RcosN)+cos(B/2):Z=P+B/2+90A:C=UcosZ+E:D=UsinZ+F:Pol(X-C,Y-D:Asin(J-P-AN+90 A<0＝>K=K-AZ[1]cos(Z[2]-P+90)tan(90 (K-Q+T)^2/πRO):Goto3:≠>Asin(J-P-B+AN+90A>0 ＝>K=K-AZ[1]cos(Z[2]-P-B-90 )tan(90(K-Q+T-L)^2/πRO):Goto4:≠>K=Q-T+O+Asin-1(sin(J-P-AN+90 A))×πR/180 :M=A(I-R:Goto5△△Lbl 3:Z=K-Q+T:Prog”9”Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90<.001＝>M=Icos(J-W+90 :Goto5: ≠>Goto3△Lbl 4:Z=Q-T+L-K:Prog”8”:V=P+B-180-AV:W=P+B-AN:C=cosV+E+Tcos(P+B:Pol(X-C,Y-D:K=K+Isin(J-W+90 :Abs sin(J-W+90 <.001＝>M=Icos(J-W+90:Goto5: ≠>Goto4△Lbl 5:”K=”:K:Pause0:”M=”:M▲注：程序“20”为中桩计算程序Q—直缓点里程；T—切线长，L—曲线长；O—缓和曲线长；W—切线方位角Pol—极坐标转换，为涵数特别注意数字0和字母O的区别一、程序功能本程序由一个主程序(TYQXjs)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
4800程序集
R: 半径 A: 偏角 E: 外距 K: 放样中桩桩号 JU LI: 距离
LS: T: JDK: FWJ: B:
缓和曲线长度 切线长 交点桩号 方位角 距中桩宽度(放边桩左+右-)
B
Lbl 0 ： Z “ Z=90 ” ： Fixm ： {KB} ： I=K-W+T ： J=Z ： B ： I<S-L=>I ≤ 0=>"ZX1":M=I+B cosZ ： N=BsinZ：Goto2⊿C=1=>J=180-Z⊿I≤L=>"LS1": Porg“D”：≠>"INY": Porg“F”⊿ Lbl 2：J=O：Porg“G”：Goto0⊿I=W-T+S-K I≤0=>"ZX2":M=I-B cosZ：N=-BsinZ：≠>"LS2":C=-1=>J=180-Z⊿Porg“D”：N=-N⊿J=U：Porg“ G”：Goto0
4800P极坐标放样输入步骤(中边桩放样) 4800P极坐标放样输入步骤(中边桩放样)
A
XYD“X1”E“Y1”F“X2”G“Y2”H“X3”V“Y3”RL“LS”W“JDK” I=D-F：J=E-G：Porg“C”：O=J：I=H-F：J=V-G：Porg“C”：U=J M=O-J：M<0=>M=M+360⊿M“A”=180-M◢M<0=>C=-1：≠> C=1⊿M=AbsM： 2 2 P=L ÷(24R)-L^4÷(2688R^3)：Q=L÷2- L^3÷(240R )： (R+P)tan(M÷2)+Q：Prog“Z”： T=Ans ◢: I“E”=(R+P)÷cos(M÷2)-R◢RπM÷180+L：Prog“Z”： S=Ans◢I“ZH”=W-T◢I“HY”=WT+L◢I“QZ”=W-T+S÷2◢I“YH”=W-T+S-L◢I“HZ”=W-T+S◢:Porg“B”
4800公路中边桩高程计算程序
4800公路中边桩高程计算程序４８００公路中边桩高程计算程序fx-4800高等级公路中边桩标高程计算程序（适用超高方式为有分隔带绕左内侧旋转，无分隔绕线路中心旋转）随着高等级公路建设的不断发展，对路基施工高程控制要求不断提高，经常在现场要对路基中边桩高程进行测量，由于施工线路较长，高程数据较多，而且只提供设计桩号的高程，对非设计断面的横坡及高程计算相当复杂，因此利用fx-4800计算器的编程功能及扩展变量的储存功能，编制一个程序，可以预先输入整条线路的曲线要素，使用时，只要输入任意点桩号就可以计算中边桩高程。
程序由中桩高程计算主程序和横坡计算子程序组成，程序如下：1、中桩高程计算程序文件名（ZZGC）程序说明Lb1 0Fix 3（输入变坡点数） N=?（输入扩展变量位置数） V=?M=V（输入待求桩号） {K}Lb1 1K>Z[2+M]-Z[3N+3+M]=> （确定待求桩号在哪个竖曲线内）M=M+1：Goto 1（读取该竖曲线半径） R=Z[2N+2+M]（读取该竖曲线切线长） T=Z[3N+2+M]（读取该变坡点前坡率）I=Z[4N+2+M]÷100（读取该变坡点后坡率）L=Z[4N+3+M]÷100（计算待求桩号与该竖曲线起点距离）S=K-Z[1+M]+Z[3N+2+M]M=V=> （如果桩号在起点与第1竖曲线起点之间，转Lb1 5 ）Goto 5⊿（计算坡率差） A=I-L（判断竖曲线凹凸）J=AbsA÷AS （如果距离在前半曲线内，计算改正值）Y=S^2÷2R ：Goto 2 ⊿S<2T=> （如果距离在后半曲线内，计算改正值）Y=(2T-S)^2÷2R ：Goto 3 ⊿Goto4Lb1 2H=Z[N+2+M]-I(T-S)- YJD"H" =D ◢Goto 6Lb1 3H= Z[N+2+M]+L(S-T)- YJD"H" =D ◢Goto 6Lb1 4（在直线内，计算高程） H=Z[N+2+M]+L(K-Z[1+M])D"H" =D ◢Goto 6Lb1 5I=Z[V+4N+3] ÷100H=Z[V+N+3]-I(Z[V+2]-K）D"H" =D ◢Lb1 6(输入边桩距离，右正，左负) {B}Prog "HP js" (转横坡计算子程序，应与横坡计算文件名相同)Fix 3B<0=> D=D-QAbsB÷100 ：Goto 7 ⊿B>0=> D=D-PAbsB÷100 ：Goto 8 ⊿Lb1 7D"ZBH" =D ◢（显示左边桩高程）Goto 0Lb1 8D"YBH" =D ◢（显示右边桩高程）Norm：1Goto 0中桩高程计算程序扩展变量设置表起点第1变坡点第2变坡点第3变坡点第n变坡点终点里程Z[V+1]Z[V+2]Z[V+3]Z[V+4]Z[V+n+1] Z[V+n+2]高程Z [V+n+3]Z[V+n+4]Z[V+n+5]Z[V+2n+2]R 竖曲线半径Z[V+2n+3] Z[V+2n+4] Z[V+2n+5] Z[V+3n+2] T（竖曲线切线长）Z[V+3n+3] Z[V+3n+4] Z[V+3n+5] Z[V+4n+2]I （坡率）Z[V+4n+3] Z[V+4n+4] Z[V+4n+5] Z[V+5n+2] Z[V+5n+3]2、横坡计算程序文件名（HP js）程序说明Lb1 0（输入平曲线交点数） N=?（输入标准横坡值） I=?（输入LC值） T=?（输入扩展变量位置） V=?M=V(输入桩号,如作为子程序使用则无此行) {K}Lb1 1K>Z[2+M] => M=M+1 ：Goto 1 ⊿（读取平曲线全长） L=Z[N+2+M]（读取LS1） E=Z[2N+2+M]（读取LS2） F=Z[3N+2+M]（读取标准超高值） H=Z[4N+2+M]（读取线路偏向，右=1，左=-1） A=Z[5N+2+M]S=K-Z[M+1]M=V=> P=I ：Q=I ：Goto 7 ⊿E=0=> （无LS则不设超高） P=I ：Q=I ：Goto 7 ⊿S≤T=> （如果该点在第1 Lc内，转Lb2） S=S ：Goto 2 ⊿S≤E=> （如果该点在 Lc-Ls1终点，转Lb3） S=S-T ：Goto 3 ⊿S≤L-F=> （如果该点在圆曲线内，转Lb4）Goto 4 ⊿S≤L-T=> （如果该点在Ls2起点-Lc，转Lb 5）S=S-(L-F) ：Goto 5 ⊿S≤L=> （如果该点在第2Lc内，转Lb6） S=T-(L-S) ：Goto 6 ⊿（在直线） P=I ：Q=I ： Goto 7Lb1 2A=1=> （右偏） P=I ：Q=I-2IS÷T ：Goto 7 ⊿A=-1=> （左偏） P= I-2IS÷T ：Q=I ：Goto 7 ⊿Lb1 3A=1=> P=I+S(H-I) ÷(E-T) ：Q=-P ：Goto 7 ⊿A=-1=> P=-I- S(H-I) ÷(E-T) ：Q=-P ：Goto 7 ⊿Lb1 4A=1=> P=H ：Q=-H ：Goto 7 ⊿A=-1=> P=-H ：Q=H ：Goto 7 ⊿Lb1 5A=1=> P=H-S(H-I) ÷(F-T)：Q=-P ：Goto 7 ⊿A=-1=> P=-H+S(H-I) ÷(F-T)：Q=-P ：Goto 7 ⊿Lb1 6A=1=> P=I：Q=-I+2IS÷T ：Goto 7 ⊿A=-1=> P=-I+2IS÷T ：Q=I ：Goto 7 ⊿Lb1 7Fix 3P"YI"=P ◢（显示右横坡，如不需显示则无“◢”）Q"ZI"=Q ◢（显示左横坡，如不需显示则无“◢”）Norm ：1(如作为子程序使用则无此行) Goto 0横坡计算程序扩展变量设置表起点第1交点第2交点第3交点第Z交点终点线路起点、曲线起点、线路终点桩号Z[V+1] Z[V+2] Z[V+3] Z[V+4] Z[V+Z+1] Z[V+Z+2]L (平曲线全长) Z[V+Z+3] Z[V+Z+4] Z[V+Z+5] Z[V+2Z+2]LS1 Z[V+2Z+3] Z[V+2Z+4] Z[V+2Z+5] Z[V+3Z+2]LS2 Z[V+3Z+3] Z[V+3Z+4] Z[V+3Z+5] Z[V+4Z+2]i (标准超高值) Z[V+4Z+3] Z[V+4Z+4] Z[V+4Z+5] Z[V+5Z+2]偏转方向(右偏=1，左偏=-1) Z[V+5Z+3] Z[V+5Z+4] Z[V+5Z+5] Z[V+6Z+2]3、使用说明把上述程序输入到fx-4800内，然后扩展足够的变量个数，即至少为5N+3+6Z+2个，N为变坡点个数，Z 为平曲线交点数。
卡西欧FX4800计算中边桩程序
卡西欧FX4800计算中边桩程序,程序：McW“1.js 2.SZ”:W=1=>Goto 1 ΔW=2=> O“KOU LING”:O≠123456=>O=0“OUT” ◢Goto 4 ΔO=0:Defm 83:Z[81]=1:Goto 0←┘Lbi 0←┘{ABCDEFGU}:A“X0”:B“Y0”:C“F0’:D“R0”:E“RN’:F“D0”:G“LS”:U“G” ←┘Z[Z[81]]=A:Z[Z[81]+10]=B:Z[Z[81]+20]=C:Z[Z[81]+30]=1÷D:Z[Z[81]+40]=1÷E:Z[Z[81]+5 0]=F: Z[Z[81]+60]=F+G: Z[Z[81]+70]=U←┘A=0=> Dsz Z[81]:Goto 1ΔIsz Z[81]:Goto 0←┘Lbi 1←┘{HS}:H“D’:S“Z”:Z[82]=1:Goto 2←┘Lbi 2←┘Z[81]>Z[82] =>”OUT” ◢:Goto5←┘H≤Z[Z[82]+60]=>A=Z[Z[82]]:B=Z[Z[82]+10]:Z[Z[82]+20]=C:D=Z[Z[82]+30]: E=Z[Z[82]+ 40]: F=Z[Z[81]+50]: G=Z[Z[81]+60]: U=Z[Z[81]+70]: Goto3:ΔIsz Z[82]:Goto 2Lbi 3←┘P＝U（E-D）÷Abs（G-F）：Q＝Abs（H-F）：I＝PQ：J＝C+90 Q（I+2UD）/π：J<0=> J=J+360ΔM＝C+45 Q（I÷4+2UD）÷2π：N＝C+135Q（3I÷4+2UD）÷2π：K＝C+45Q（I ÷2+ 2UD）÷π←┘S=0=>Z=0：Goto4ΔS＜0=>Z＝－1：Goto4ΔZ＝1：Goto4←┘Lbi 4X＝A+Q(Cos C+4（Cos M+Cos N）+2Cos K+Cos J) ÷12 +ZSCos（J+90Z) ←┘Y＝B+Q(Sin C+4（Sin M+Sin N）+2Sin K+Sin J) ÷12 +ZSSin（J+90Z) ←┘S=0=>“X”:X:Pause 0: “Y” :Y◢Goto 1ΔS<0=>“XL”:X:Pause 0: “YL”:Y◢Goto 1ΔS>0=>“XR”:X:Pause 0: “YR”:Y ◢Goto 1 ←┘Lbi5←┘二、变量及说明X0：Y0：F0――――曲线元起点X、Y坐标及起点正切线方位角R0：RN――――――曲线元起点及终点半径D0：LS：Q―――曲线元起点桩号、路线长度及线路左右偏标志（左=-1,直线=0,右=1）D――――――――曲线元中待求点桩号Z―――――――――计算边桩距中线平距，左边输入负值，右边输入正值，中桩输入0 X：YXL:YLXR:YR ―――――――待求点中边桩桩号的X，Y坐标扩充变量：Z[Z[81]]: Z[Z[81]+10]: Z[Z[81]+20]: Z[Z[81]+30]: Z[Z[81]+40]: Z[Z[81]+50]: Z[Z[81]+60]: Z[Z[81]+70]: 分别为各线元X0:Y0:F0;R0:RN:D0:LS:Q(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
4800P计算器测量程序
拉萨高建监理有限公司：刘小坚编直线、圆曲线中桩及左、右边桩计算程序fx-4800p=”：K“D=”：C“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：L“Lμo=”：M“JμoQ=9θL÷（πR）：S=2RsinQ ：O =C＋Scos（N-Q）◢P=D+Ssin（N-Q）◢W=E-2Q◢X=O+Kcos（N-2Q-M）◢Y=P+Ksin（N-2Q-M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－直线R为无穷大Lμ=置镜点到待求点距离oD左、右边距离Jμ=前进方向左（+90），右（－90）oO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标缓和曲线中桩及左、右边桩计算程序Fx-4800pC“Xθ=”：D“Yθ=”：E“Wθ=”：N=Ans：R“R=”：F“Lθ=”：L =”：K“D=”：M“Jμo=”←“LμoU=L－L^5÷（40R2F2）：V=L^3÷（6RF）－L^7÷（336R^3F^3）：Q=tan－1（V÷U）：S=√（U2+V2）←B=9θL2÷（πRF）：O=C+Scos（N－Q）◢P=D+Ssin（N－Q）◢W=E－B◢X=O+Kcos（N－B－M）◢Y=P+Ksin（N－B－M）◢注：Xθ=起算点坐标Yθ=起算点坐标Wθ=起算点方位角R=曲线半径，线路前进方向，左+，右－Lθ=缓和曲线长=置镜点到待求点距离LμoD左、右待求距离=前进方向左（+90），右（－90）JμoO=中桩坐标P=中桩坐标W=待求点方位角X=左、右边桩坐标Y=左、右边桩坐标放样程序fx-4800pRLI“XZ”：W：“YZ”：G“XH”：H“YH”←B=H－W ←C=G－I ←Prog“P”：U=A←K=√（B2＋C2）←C=X“X－”－I←B=Y“Y－”－W←Prog“P”←L“L”=√（B2＋C2）◢V=A－U：V<θ==>V=V＋36θ⊿V “V=”◢PA=tan－1（B÷C）←B≥θ==> C≥θ==> A=A：≠=> C<θ==> A=A＋18θ⊿⊿≠=> B<θ==> C≥θ==>A=A＋36θ: ≠=>C<θ==>A= A＋18θ⊿⊿⊿←XZ、YZ—置镜点X、Y坐标；XH、YH—后视点坐标；X-、Y-—前视点坐标；输出：R=水平角、L=置镜点至前视点水平距离。
公路曲线中桩边桩坐标fx4800P计算程序
公路曲线中桩边桩坐标fx4800P计算程序在快速发展的公路建设事业中,使用GPS坐标控制系统的高等级公路日渐增多,并且,随着高精度的测量设备的广泛采用,其他等级公路也开始普遍应用坐标控制。
使用坐标控制的公路项目,有着线型流畅、行车速度快而舒适、环境优美等特点,这些都来源于高质量的设计与施工,卡西欧fx-4800p计算器由于其轻便、精度高、易于操作,能够解决设计、施工当中很多的实际困难,因此,倍受公路工程技术人员的青睐。
本人通过在高速公路多年的施工经验,编写了许多公路测量实用程序,如常用的中桩边桩计算程序,匝道坐标计算程序,施工放样程序,换带程序等等。
下面把公路中常用的中桩边桩计算程序介绍给大家,希望本程序能够对公路测量同行有所帮助.。
1 程序清单:LbI 0:Defm 6↙″CURVE MODE″:{M}:M″0:T1=T2,1:T1≠T2″↙M=0=>Goto 7:≠>M=1=>Goto 8:≠>Goto 0⊿⊿↙LbI 7:{ABCDEFGR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L0″:R↙T=(R+G2÷(24R)-G ÷(2688R ))tan(AbsF÷2)+0.5G-G ÷(240R2) ↙U=G:V=T: Goto 1↙LbI 8:{ABCDEFGUTVR}↙A″ZHD″:B″HZD″:C″XJD″:D″YJD″:E″ELPHA″:F″PJ:Z(-),Y(+)″:G″L01″:U″L0 2″:T″T1″:V″T2″: R↙LbI 1:{H}:H″DQD″↙H≥B=>M=1: ≠>H>B-U=>M=2: ≠>H≥A+G=>M=3: ≠>H≥A=>M=4: ≠>HM=5⊿⊿⊿⊿⊿↙M≤2=>L=Abs(H-B): ≠>L=Abs(H-A)⊿↙M=1=>Z[1]=L: ≠>M=2=>Z[1]=√((L-L ÷(40R2U2)+L ÷(3456R U ))2+(L ÷(6RU)- L ÷(336R U )+ L÷(42240R U ))2): ≠>M=3=>Z[1]=√((G-G ÷(40R2)+G ÷(3456R ))2+(G2÷(6R)-G ÷(336R )+G ÷(42240R ))2):≠>M=4=>Z[1]=√((L-L ÷(40R2G2)+L÷(3456R G ))2+ (L ÷(6RG)- L ÷(336R G )+ L÷(42240R G ))2): ≠>M=5=>Z[1]=L⊿⊿⊿⊿⊿↙M≤2=>Z[2]=C+Vcos(E+F): Z[3]=D+Vsin(E+F): ≠>Z[2]=C+Tcos(E+180): Z[3]=D+Tsin(E+180) ⊿↙M=1=>Z[4]=E+F:≠>M=2=>Z[4]=E+F+180:≠>M=5=>Z[4]=E+ 180:≠>Z[4]=E ⊿⊿⊿↙N=F÷AbsF↙M=1=>I=0:≠>M=2=>I=-N(30L2÷(ΠRU)):≠>M=3=>I=N(30G÷(ΠR)):≠>M=4=>I=N(30L2÷(ΠR G)):≠>M=5=>I=0⊿⊿⊿⊿⊿↙Z[4]=Z[4]+I↙Z[5]=Z[2]+Z[1]cosZ[4]↙Z[6]=Z[3]+Z[1]sinZ[4]↙M≠3=>Goto 3⊿↙LbI 2:P=90L÷(ΠR):Q=90(L-G)÷(ΠR)↙Z[5]= Z[5]+2RsinQcos(E+NP)↙Z[6]= Z[6]+2RsinQsin(E+NP)↙LbI 3↙X″X(ZX)″=Z[5]◢Y″Y(ZX)″=Z[6]◢LbI 4↙M=3=>I=90N(2L-G) ÷(ΠR): ≠>I=3I⊿↙M=1=>P=E+F: ≠>M=2=>P=E+F+180: ≠>M=5=>P=E+180: ≠>P=E⊿⊿⊿↙P=P+I-90:Q=P+180↙M=2=>X=P-90: ≠>M=5=>X=P+180: ≠>X=Q-90⊿⊿↙XX=X+360: ≠>X>360=>X=X-360⊿⊿↙X″QXFWJ(Z-Y)″=X◢{SW}:S″SZ ″: W″SY ″:AbsS+AbsW=0=>Goto 1⊿↙M=2=>Goto 5: ≠>M=5=>Goto 5: ≠>Goto 6⊿⊿↙LbI 5:S=-S:W=-W↙LbI 6↙X″X(Z)″=Z[5]+ScosP◢Y″Y(Z)″=Z[6]+SsinP◢X″X(Y)″=Z[5]+WcosQ◢Y″Y(Y)″=Z[6]+WsinQ◢Goto 1↙2 程序参数说明:开始运行程序时选择曲线类型(CURVE MODE),0为等切线曲线,1为不等长切线曲线。
卡西欧4800坐标计算程序
QL（坐标反算）Lbi 0:C“X0”:D“Y0”:{XY}:X“X2”Y“Y2”:(X-C)=O=>Goto 1:≠Lbi 1:W“Q”=0◢Goto 0Lbi 2:Prog“FWJ”Fix 4W“Q”=IntW+0.01Int(60FracW)+0.006Frac(60FracW) ◢NormT“L”= ((X-C)2+(Y-D)2)◢Goto 0说明：（已知两点坐标，反算方位角及两点间的距离）先按FILE键，光标选择QL，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXEY0? 测站点（或起算点）Y轴坐标，按EXEX2? 后视点（或方向点）X轴坐标，按EXEY2? 后视点（或方向点）Y轴坐标，按EXE显示： Q 方位角（如：125.0325即表示125。
03’25”）,按EXE L 两点间距离再按EXE进行循环运算，重复输入X2？、Y2?否则按AC键退出。
XY(坐标正算)Lbi 0:C“X0”:D“Y0”:{WM}:W“Q”M“L”:X=C+McosW◢Y=D+MsinW◢Goto 0说明：（已知一点坐标、方位角、距离，求另一点坐标）先按FILE键，光标选择XY，按EXE运行。
输入：X0? 测站点（或起算点）X轴坐标，按EXE Y0? 测站点（或起算点）Y轴坐标，按EXE Q? 已知方位角，按EXEL? 两点间距离，按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，按EXE再按EXE进行循环运算，重复输入Q? 、L?否则按AC键退出。
ZX（直线坐标计算）Lbi 0:G“QD”：A“QDX”: B“QDY”:Q“Q”:{L,K}:Prog“ZZ”:Goto 0说明：（计算直线段任意里程桩号坐标）先按FILE键，光标选择XY，按EXE运行。
输入：QD? 直线段起点里程，按EXEQDX? 起点X轴坐标，按EXEQDY? 起点Y轴坐标，按EXEQ? 已知方位角，按EXEL? 所求点里程，按EXEK? 所求点距中线的宽度（左负右正），按EXE显示：X 所求点X轴坐标，按EXEY 所求点Y轴坐标，再按EXE进行循环运算，重复输入L? 、K?否则按AC键退出。
4800全套计算程序（吐血推荐）
4800全套计算程序（吐⾎推荐）整套卡西欧计算器CASIO FX-4800 4500测量程序各位同⾏：我长年从事公路桥梁测绘⼯作，收集整理了⼀整套卡西欧计算器CASIOFX-4800P和卡西欧CASIO FX-4500P测量放线程序，该套程序经过反复修正，具有极⾼的可靠性。
现在免费提供给⼤家.程序⽬录：1.1 测边⼤地四边形的条件平差程序1.2 测边中点多边形的条件平差程序1.3 单⼀导线的严密平差程序1.4 单⼀结点导线的严密平差程序1.5 边、⾓后⽅交会的条件平差程序1.6 测边交汇点的条件平差程序1.7 单⼀⽔准路线的平差程序1.8 单结点的平差程序1.9 多结点⽔准⽹的平差程序1.10 多边形⽔准⽹的平差程序1.11 三⾓⾼程差的计算程序1.12 测距边⽔平距离的计算程序1.13 ⾼斯投影座标正、反解和换带的计算程序1.14 平⾯座标转移的计算程序2.1 单边、⾓后⽅交会的计算程序2.2 双边、⾓后⽅交会的计算程序2.3 碎部点座标的计算程序2.4 内、外分点座标的计算程序2.5 房⾓标的计算程序2.6 多次后⽅测⾓交会点2.7 测边交会点的计算程序2.8 导线三维值的计算程序2.9 圆⼼座标和半径的程序2.10 测站点、照准点归⼼改正的计算程序2.11 单边、双站后⽅交会的计算程序3.1 线路中⼼座标的计算程序3.3 红线交点座标的计算程序3.4 直线与圆曲线交点座标的计算程序3.5 垂⾜座标的计算程序3.6 道路不等宽时曲线要素的计算程序3.7 缓和曲线敷设时的计算程序3.8 圆曲线敷设时的计算程序3.9 极座标放线线的计算程序3.10 交点座标的计算程序3.11 宗地有关项⽬的计算程序3.12 丘地有关项⽬的计算程序4.1 导线X、Y、Z值的近似平差程序4.2 ⽆定向导线的计算程序4.3 测⾓前⽅交会点座标的计算程序4.4 测边交会座标的计算程序4.5 测⾓后⽅交会点座标的计算程序4.6 双边、⾓后⽅交会点座标的计算程序4.7 平⾯座标转移的计算程序4.8 测站点、照准点归⼼改正的计算程序4.9 三⾓⾼程⾼差的计算程序4.10 测距边⽔平距离的计算程序4.11 单⼀导线的严密平差程序4.12 边、⾓后⽅交会点的严密平差程序4.13 测边交会点的严密平差程序5.1 图跟导线点座标的计算程序5.2 碎部点座标的计算程序5.3 内、外分点座标的计算程序5.4 ⾓座标的计算程序5.5 圆⼼座标的和半径的计算程序5.6 交点座标的计算程序5.7 单边、⾓交会点座标的计算程序5.8 宗地有关项⽬的计算程序5.9 单边、双站后⽅交会座标的计算程序6.1 线路边桩座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂⾜座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单⼀⽔准路线的近似平差计算程序6.10 丘地有关项⽬的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交⾓边桩坐标计算放样、中桩切线⽅位⾓、任意点置仪放样、两点间距离计算、两点⽅位⾓计算。
4800计算器程序计算例表
本坐标计算程序可解决以下问题：1：计算时只要先把要素点的相关信息装入数据库（ZBDIR ）以后只需键入你想要查询的桩号就可以查找到相应的坐标与放样数据。
2：可计算（回旋线相连的匝道除外）数据库内（外）任意点中桩和边桩坐标并能显示与放样。
3：可按固定距离递增放样（减少频繁的按键）并能自动计算ZH(ZY)、HY 、YH 、HZ(YZ)点。
4：计算时不用担心超出范围，程序编制时己考虑此问题。
一、直线上中桩坐标计算X p =X o +LcosA Y p =Y o +LsinAXp 、Yp ：待求点坐标 Xo 、Yo ：起点坐标 L ：起点至待求点距离 A ：起点所在的方位角 二、圆曲线中桩坐标计算A=180L/(πR) X 1=RsinA Y 1=R(1-CosA)X 1、Y 1:以曲线起点（ZY ）为原点待求点坐标增量 R ：曲线半径 A ：所求弧长所对圆心角 L ：待求点与曲线起点弧长三、（1）曲线加设缓和曲线的坐标计算（缓和曲线部分）X 1=L -L 5/(40R 2Ls 2)+L 9/(3456R 4Ls 4) Y 1= L 3/(6RLs)-L 7/(336R 3Ls 3)+ L 11/(42240 R 5Ls 5) X 1、Y 1 、L 、R 含意同前： Ls:缓和曲线长三、（2）曲线加设缓和曲线的坐标计算（圆曲线部分）M=Ls/2- Ls 3/(240R 2) P= Ls 2/24R -(Ls 4/(2688R 3) ß=90(2L -Ls)/(πR) X=RsinA+M Y=R(1-CosA)+PX 、Y ：以曲线起点（ZH ）为原点待求点坐标增量 R 、A 、L 、Ls:含意同前 M ：切线增值 P 圆曲线内移值 ß：缓和曲线切线角 四、坐标换算在计算出相对的坐标增量后，经坐标反算求出全线统一坐标。
计算式为：X p =X o +DCos(A ±ß) Y p =Y o +DSin(A ±ß) D=22p p Y X A=tg(Y p /X p ) ß：切线角 “-”为左偏角 “+”正号为右偏角 五、边桩坐标计算（直线段）X 边＝X p +GCos(A ±90) Y 边＝Y p +GSin(A ±90)G:横段面距离 ±90：左边桩为“-”、右边桩为“+” 边桩坐标计算（圆曲线切线角） ß=180L/(πR) 边桩坐标计算（缓和曲线切线角） ß=90L 2/(πRLs) 边桩坐标计算（带缓和曲线的圆曲线切线角） ß=90(2L -Ls)/(πR) 程序名:ZBJSF “1=Yp -1=Zp 0=JG >1=DIR ”D: N “XC ”≠0=>Q “YC ”◣F=0=>B:Goto 9◣ Abs F=1=>BE “KO ” U “XO ” M “YO ” O “FWJ ”R S P:Goto 0◣B=90:↙ Lb1 9:Prog “ZBDIR ”↙Lb1 0:C=E:V=F:R=0=>S=0◣↙Lb1 1:Deg:Fixm:{KG}:K>C+P=>Goto 9◣K<C=>Goto 9◣L=Abs(K -E):Z=O:A=Z+B:I=L:L=0=>Goto 5◣R=0=>V=1:Goto 5◣S=0=>Goto 2◣S>L =>Goto 3◣L>P -S =>L=S+D:Goto 8◣↙Lb1 2:A=90(2L -S)/πR:X=RsinA+S/2-S 3/240R 2:Y=R(1-cosA)+S 2/24R -S 4/2688R 3:Goto 4↙ Lb1 3:L>S -D=>L=S -D:Goto 7◣W=RS:A=90L 2/πW:X=L -L 5/40W 2+L 9/3456W 4:Y=L 3/6W -L 7/336W 3+L 11/42240W 5:↙ Lb1 4:Pol(X,Y):A=O+F(A+B):Z=Z+FJ:↙Lb1 5:B ≠90=>G=AbsG ◣W=1:V=-1=>W=-W ◣H=U+Rec(I,Z):Z=M+J :Rec(G ,A):B=90=>X=H+WI ◢Y=Z+WJ ◢Goto A ◣X=H ◢Y=Z ◢G ≠0=>A “X1”=X -WI ◢ Z “Y1”=Y -WJ ◢H “X2”=X+WI ◢W “Y2”=Y+WJ ◢◣↙Lb1A:N=0=>Goto 6◣Pol(X -N,Y -Q):J<0=>J=J+360◣J “FWJ=”◢I “JL=”◢B=90=>Goto 6◣G=0=>Goto 6◣Pol(A-N,Z-Q):J<0=>J=J+360◣J“FWJ1=”◢I“JL1=”◢Pol(H-N,W-Q):J<0=>J=J+360◣J“FWJ2=”◢I“JL2=”◢↙Lb1 6:D=0=>Goto 1◣L>P-D=>L=P-D◣↙Lb1 7:K≥E=>K=E+L+D:Goto 1◣L=L-D:L≤0=>L=0◣K=E-L:Goto 1↙Lb1 8:A=90(P-S)/πR:W=S/2-S3/240R2+tanA(R+S2/24R):Rec(W,O):O=O+2AF:U=U+I+WcosO:M=M+J+WsinO:F=-F:E=E+P:O=O+180:K<C+S=>L=L-2D:E=C◣Goto 6程序名: ZBDIRLb1 0:{K}:E=E1:K<E1=>K=E1: Goto 0◣↙K≤E2=>U=U1:M=Y1:O=O1:R=R1:S=S1:P=P1:F=±1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=R2:S=S2:P=P2:F=±1:Goto 1◣↙K≤E n+1=>E=E n:U=U n:M=Y n:O=O n:R=R n:S=S n:P=P n:F=±1:Goto 1◣↙K=E n+1 :Goto 0↙Lb1 1:注：F=1为右偏曲线F=-1为左偏曲线D:逐桩间距N“XC”Q“YC”测站XY坐标B：构造物与主线交角O：线路方位角R：半径S：缓和曲线长P：直（曲）线线路长度G：横断面距离E“KO”：起点里程U“XO”M“YO”起点XY坐标K：求算点里程XY：求算点XY坐标下标为1时为左侧、下标为2时为右侧FWJ：方位角JL：距离存储器T未使用以下程序代码可计算直线、曲线、螺旋线、匝道中边桩坐标程序名:ZDZBJSDeg:N“XC”≠0=>Q“YC”◣D:Z“0=SD 1=A 2=B 3=C 4=D 5=E ……”:Z≠0=>Z=AbsZ:Goto 0◣E“KO”U“XO”M“YO”O“FWJ”R H“R2”P :Goto 1↙Lb1 0:Prog“ZDDIR”:↙Lb1 1:Fixm:{KG}:X=R:R≠0=＞X=2/R◣K<E=>Goto 0◣K>E+P=>Goto 0◣L=Abs(K-E):I=H:H≠0=＞I=1/H◣I=L(I-X/2)/P:J=O+90L(I+X)/π:W=O+45L(I/2+X)/π:Y=O+45L(I/8+X)/(4π):S=O+135L(3I/8+X)/(4π):C=O+225L(5I/8+X)/(4π):V=O+315L(7I/8+X)/(4π):A=O+45L(I/4+X)/(2π):I=O+135L(3I/4+X)/(2π):X=U+L(CosO+4(CosY+CosS+CosC+CosV)+2(CosA+CosW+CosI)+CosJ)/24:Y=M+L(SinO+4(SinY+SinS+SinC+SinV)+2(SinA+SinW+SinI)+SinJ)/24:G=0=＞X◢Y◢Goto 2◣A=J-90:A<0=>A=360+A◣S=AbsG:Rec(S,A):X=X-I S/G◢Y=Y-JS/G◢Lb1 2:N=0=>Goto 3◣Pol(X-N,Y-Q):J<0=>J=J+360◣J“FWJ=”◢I“JL=”◢↙Lb1 3:D=0=>Goto 1◣L>P-D=>L=P-D◣K≥E=>K=E+L+D:Goto 1◣程序名: ZDDIRLb1 0:Z>5=＞Goto Z◣Z=1=＞Goto A◣Z=2=＞Goto B◣Z=3=＞Goto C◣Z=4=＞Goto D◣Z=5=＞Goto E◣Goto ALb1 Z:{ZK }:Z“1=A 2=B 3=C 4=D 5=E ……”:Goto 0Lb1 A:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 B:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 C:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 D:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto Z↙Lb1 E:K≤E2=> E=E1:U=U1:M=Y1:O=O1:R=±R1:H=±R2:P=P1:Goto 1◣↙K≤E3=>E=E2:U=U2:M=Y2:O=O2:R=±R1:H=±R2:P=P2:Goto 1◣Goto ZLb1 N:K≤E n+1=> E=E n:U=U n:M=Y n:O=O n:R=±R n:H=±R n1:P=P n:Goto 1◣↙K≤E n+3=>E=E n2:U=U n2:M=Y n2:O=O n2:R=±R n1:H=±R n2:P=P n2:Goto 1◣Goto ZLb1 1:D:逐桩间距N“XC”Q“YC”测站XY坐标O:线路方位角R:起点半径H“R2”:终点半径 2 P:直（曲）线线路长度G:横断面距离(左负右正) E“KO”:起点里程U“XO”M“YO”起点XY坐标K:求算点里程XY:求算点XY坐标FWJ:方位角JL:距离R1?第一半径，直线输入0(如HZ、HZH)、匝道及螺旋线时输入上段曲线半径左偏为负右偏为正。
4800计算程序
直线坐标计算：1、N″X0″:K″Y0″:Q:Z″HZ″2、Lb1 0:﹛S﹜:S″JSD″:L=S-Z3、C″X1″=L*COS Q+N◢4、D″Y1″=L*Sin Q+K◢5、﹛BP﹜:A=Q+P6、E″X2″=C+B*COS A◢7、G″Y2″=D+B*Sin A◢8、Goto 0注：X0,Y0表示起算点的纵横坐标；Q表示起算方位角；HZ表示起算点里程；JSD 表示计算点里程；X1，Y1表示计算点坐标；P表示边桩夹角；B表示边桩到计算点的距离；X2，Y2表示边桩坐标。
线路综合计算（由曲线起点至第二条曲线起点）：1、R″R″：I″I″：C″ZXJ″：A″ZX″：B″ZY″：W″ZA″：O″ZH″2、P=I2/24/R-I4/2688/R33、M=I/2-I3/240/R24、T=（R+P）*tan（C/2）+M5、F=I/2/R*180/π6、L=（C-2F）*π/180*R+2I7、G″L0：L=1；R=2″8、G=1=＞N=-1◣9、G=2=＞N=1◣10、Lb1 1：{D}：D″JSD″：Z=D-O11、Pause 012、Z＞L=＞Q=W+N*C◢13、X=A+T*COS W+（T+Z-L）*COS Q◢14、Y=B+T*Sin W+（T+Z-L）*Sin Q◢15、Goto 3:◣16、Z＜I=＞Q=W+N*Z2/2/R/I*180/π:X=Z-Z5/40/R2/I2+Z9/3456/R4/I4:Y=Z3/6/R/I-Z7/336/R3/I3+Z11/42240/R5/I5:Goto 2:◣17、Z＜L-I=＞S=(Z-I)/R*180/π+F:Q=W+N*((Z-I)/R*180/π+F):X=R*Sin S+M：Y=R*（1-COS S）+P：Goto 2：◣18、U=L-Z-（L-Z）5/40/R2/I2+（L-Z）9/3456/R4/I419、V=（L-Z）3/6/R/I-(L-Z)7/336/R3/I3+(L-Z)11/42240/R5/I520、Q=W+N*C-N*(L-Z)2/2/R/I/π*18021、X=T*(1+COS C)-U*COS C-V*Sin C22、Y=T*Sin C-U*Sin C+V*COS C23、Lb1 2:Q＜0=＞Q=Q+360◢24、◣25、Q≥360=＞Q=Q-360◢26、◣27、Q=Q◢28、S=√(X2+Y2)29、K=tan-1(Y/X)30、X=A+S*COS(W+N*K)◢31、Y=B+S*Sin(W+N*K)◢32、Goto 3:◣33、Lb1 334、{JE}35、X″EX″=X+E*COS(Q+J)◢36、Y″EY″=Y+E*Sin(Q+J)◢37、Goto 1注：Ｒ表示曲线半径；Ｉ表示缓和曲线总长；ＺＸＪ表示转向角；ＺＸ、ＺＹ表示直缓点（直圆点）纵横坐标；ＺＡ表示起算方位角；ＺＨ表示直缓（直圆）点里程；Ｌ（１）或Ｒ（２）表示左转或右转；ＪＳＤ表示计算点里程；Ｑ表示计算点切线方位角；Ｘ、Ｙ表示计算点坐标；Ｅ表示边桩到计算点的距离；Ｊ表示边桩与线路的夹角；ＥＸ、ＥＹ表示边桩坐标。
4800全线坐标正反算程序
线路中边桩任意里程坐标正、反算改编程序（CASIO fx-5800P）1. 正算子程序(SUB1)A=0.26：B=0.74：K=0.02：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos(G+57.2958QKW(1/P+KWD))+B cos(G+57.2958QLW(1/P+LWD))+Bcos(G+57.2958QFW(1/P+FWD))+ Acos(G+57.2958QMW(1/P+MWD)))：Y=V+W(Asin(G+57.2958QKW(1 /P+KWD))+Bsin(G+57.2958QLW(1/P+LWD))+Bsin(G+57.2958QFW(1 /P+FWD))+Asin(G+57.2958QMW(1/P+MWD)))：F=G+57.2958QW(1/ P+WD)+90：X=X+Zcos(F-90+T)：Y=Y+Zsin(F-90+T)2. 反算子程序(SUB2)W=Abs((Y-V)cos(G-90)-(X-U)sin(G-90))：Z=0：Lbl 0：Prog "SUB1 "：L=(G-90)+57.2958QW(1/P+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1 E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF二数据库程序（ＳＪＫ主程序）Lb1 4："1.SZ => XY"："2.XY => SZ"：｛NS｝：S＜75685.656 ＝＞O=75172.813：U=10257.769：V=615287.070：G=325-46-1.5：H =512.843：P=2600：R=2600：Q=1：Goto0Δ←┘(JD65)S＜75884.442＝＞O=75685.656：U=10707.383：V=615042.113：G= 337-04-06.6：H=198.786：P=2600：R=1E45：Q=0：Goto0Δ←┘(直线)S＜76044.442＝＞O=75884.442：U=10890.459：V=614964.660：G=337-04-06.6：H=160：P=1E45：R=1050：Q=-1：Goto0Δ←┘(JD66第一缓和段)S＜76392.111＝＞O=76044.442：U=11036.146：V=614898.615：G= 332-42-11.19：H=347.669：P=1050：R=1050：Q=-1：Goto0Δ←┘(J D66圆曲线段)S＜76552.111＝＞O=76392.111：U=11313.328：V=614691.387：G= 313-43-54.11：H=160：P=1050：R=1E45：Q=-1：Goto0Δ←┘(JD66第二缓和段)S＜78271.813＝＞O=76552.111：U=11417.893：V=614570.338：G= 309-21-58.7：H=1719.702：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜78431.813＝＞O=78271.813：U=12508.659：V=613240.824：G= 309-21-58.7：H=160：P=1E45：R=1050：Q=-1：Goto0Δ←┘(JD67第一缓和段)S＜78810.831＝＞O=78431.813：U=12606.944：V=613114.623：G= 305-00-3.29：H=379.018：P=1050：R=1050：Q=-1：Goto0Δ←┘(JD 67圆曲线段)S＜78970.831＝＞O=78810.831：U=12764.225：V=612772.038：G= 284-19-7.91：H=160：P=1050：R=1E45：Q=-1：Goto0Δ←┘(JD67第二缓和段)S＜79284.977＝＞O=78970.831：U=12795.865：V=612615.240：G= 279-57-12.5：H=314.146：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜79444.977＝＞O=79284.977：U=12850.165：V=612305.822：G= 279-57-12.5：H=160：P=1E45：R=750：Q= 1：Goto0Δ←┘(JD68第一缓和段)S＜79607.747＝＞O=79444.977：U=12883.388：V=612149.392：G= 286-03-54.08：H=162.77：P=750：R=750：Q= 1：Goto0Δ←┘(JD6 8圆曲线段)S＜79767.747＝＞O=79607.747：U=12944.985：V=611999.072：G= 298-29-59.22：H=160：P=750：R=1E45：Q= 1：Goto0Δ←┘(JD68第二缓和段)S＜79927.747＝＞O=79767.747：U=13031.084：V=611864.310：G= 304-36-40.8：H=160：P=1E45：R=750：Q=-1：Goto0Δ←┘(JD69第一缓和段)S＜80152.430＝＞O=79927.747：U=13117.183：V=611729.547：G= 298-29-59.22：H=224.683：P=750：R=750：Q=-1：Goto0Δ←┘(JD6 9圆曲线段)S＜80312.430＝＞O=80152.430：U=13193.440：V=611519.093：G= 281-20-6.98：H=160：P=750：R=1E45：Q=-1：Goto0Δ←┘(JD69第二缓和段)S＜80472.430＝＞O=80312.430：U=13213.651：V=611360.456：G= 275-13-25.4：H=160：P=1E45：R=920：Q= 1：Goto0Δ←┘(JD70A 第一缓和段)S＜80764.750＝＞O=80472.430：U=13232.840：V=611201.665：G= 280-12-21.47：H=292.320：P=920：R=920：Q= 1：Goto0Δ←┘(JD7 0A圆曲线段)S＜80924.750＝＞O=80764.750：U=13329.149：V=610926.967：G= 301-56-13.33：H=160：P=920：R=1E45：Q= 1：Goto0Δ←┘(JD70 A第二缓和段)S＜＝＞O=75018.789：U=10119.920：V=615344.580：G=325-46-1. 5：H=591.742：P=3000：R=3000：Q= 1：Goto0Δ←┘(Z JD2圆曲线段)S＜75868.894＝＞O=75610.531：U=10638.706：V=615061.939：G= 337-04-6.6：H=258.363：P=3000：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜76028.894＝＞O=75868.894：U=10876.651：V=614961.272：G= 337-04-6.6：H=160：P=1E45：R=900：Q=-1：Goto0Δ←┘(Z JD3第一缓和段)S＜76304.04＝＞O=76028.894：U=11022.044：V=614894.617：G= 331-58-31.95：H=275.146：P=900：R=900：Q=-1：Goto0Δ←┘(Z J D3圆曲线段)S＜76464.04＝＞O=76304.04：U=11241.555：V=614730.506：G= 314-27-33.35：H=160：P=900：R=1E45：Q=-1：Goto0Δ←┘(Z JD3第二缓和段)S＜78325.868＝＞O=76464.04：U=11346.622：V=614609.911：G= 309-21-58.7：H=1861.828：P=1E45：R=1E45：Q=0：Goto0Δ←┘(直线段)S＜78485.868＝＞O=78325.868：U=12527.535：V=613170.519：G= 309-21-58.7：H=160：P=1E45：R=1000：Q=-1：Goto0Δ←┘(Z JD4第一缓和段)S＜78839.218＝＞O=78485.868：U=12625.657：V=613044.196：G= 304-46-57.52：H=353.350：P=1000：R=1000：Q=-1：Goto0Δ←┘(Z JD4圆曲线段)S＜78999.218＝＞O=78839.218：U=12772.319：V=612724.740：G= 284-32-13.68：H=160：P=1000：R=1E45：Q=-1：Goto0Δ←┘(Z JD4第二缓和段)S＜80472.391＝＞O=80312.391：U=13213.651：V=611360.455：G= 275-13-25.4：H=160：P=1E45：R=936.13：Q= 1：Goto0Δ←┘(Z JD 1A第一缓和段)S＜80707.393＝＞O=80472.391：U=13232.720：V=611201.648：G= 280-07-12.42：H=235.002：P=936.13：R=936.13：Q= 1：Goto0Δ←┘(Z JD1A圆曲线段)S＜80867.397＝＞O=80707.393：U=13302.398：V=610977.859：G= 297-27-38.28：H=160：P=936.13：R=1E45：Q= 1：Goto0Δ←┘(Z J D1A第二缓和段)LB1 0：D=(P-R)÷(2HPR)：N=1=>Goto 1：≠>Goto 2Δ←┘Lbl 1：{TZ}：Z：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢Y"YS"=Y◢F"FS"=F-90◢C“XC”：E“YC”：I=0：J=0：Pol（X-C，Y-E）：I“I=” ◢J∠0＝＞J“J=”+360◢≠＞J“J=” ◢ΔGoto4←┘Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢Z"Z"=Z◢G o t o4。
4800计算器计算程序
主程序F3LbI 1:A“X1”:B“Y1”:C“X2”:D“Y2”N=0:E=C-A:F=D-B ↙ Prog“F1”↙{P}:P≥1 Prog“F2”△↙LbI 6:{XY}:E=X-A:F=Y-B:Prog“F1”:N≠1 L=G ↙Z≥L M=Z-L-180: M=Z-L+180: △↙M >0 M=180-M ▲M=180+Abs M▲△ Goto 6 ↙子程序F1E=0 Goto4 △ I=tan-1Abs(F÷E):S=√ (E2+F2) ▲F≥0 Goto2△E<0 G=180+I▲G = 360-I▲△Goto 5↙LbI 2:E<0 G=180-I ▲G = I ▲△ Goto 5 ↙LbI 4:F>0 G = 90 ▲G =270 ▲△ Goto 5 ↙LbI 5:N=N+1:N=1 Z= G △↙子程序F2LbI 9:{SI}:P=G+180-I:X=A+Scosp▲Y=B+SsinP ▲{o}:o≤0 Goto 9 △ o≤1 A=X:B=Y:G=P+180:G>360 G = G-360:Goto 9 △↙说明:1、主程序F3，已知座标放线；2、P<1主程序进入座标放样计算，P≥1时主程序进入座标计算；3、F3中的S是站点至待放点的距离，M是后视点至待放点的左角。
4、F2中的O表示站点，O>1迁站重新输入（X1，Y1）（X2，Y2）计算座标。
输入转角I时；转角左转I取“+”，右转I取“—”。
5、F2中的S，是表示站点至待求座标点的距离，用测距仪测定。
主程序：PQXLbI O:A“K0”:B“X0”:C“Y0”:D“L0”:E“A0”:F“B0”:G“K1”:N :R:T:Z:L=K-A:S=K-A-D:I=G-K ↙{K} ↙N<1 Prog “P1”:Goto O △↙N=1 Prog “P2”:Goto O △↙Prog “P3”↙Goto O ↙子程序：P1Z≤1 X=B+[L-L5÷(40R2D2)]CosE+[L3cos(E+90)]÷(6RD)▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E+90)] ÷(6RD) ▲Y=C+[L-L5÷(40R2D2)]sinE+[ L3sin(E-90)] ÷(6RD)▲子程序:P2Z≤1 X=B+[D- D3÷(40R2)]cosE+[(D2÷(6R))]cos(E+90)+[S-S3÷(6 R2 )+ S5 /(120R4 )]Cos[E+(90D) ÷(πR )]+[ S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E+(90D)÷(πR)+90] ▲ Y=C+[D- D3÷(40R2)]sinE+[(D2÷(6R))]sin(E+90)+[S-S3÷(6R2)+S5÷(120R4)]sin[E+(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E+(90D)÷(πR)+90] ▲X=B+[D-D3÷(40R2)]cosE+[(D2÷(6R)]cos(E-90)+[S-S3÷(6R2) +S5÷(120R4)]cos[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]cos[E-(90D)÷(πR)-90] ▲Y=C+[D-D3÷(40R2)]sinE+[(D2÷(6R)]sin(E-90)+[S-S3÷(6R2) +S5÷(120R4)]sin[E-(90D)÷(πR)]+[S2÷(2R)-S4÷(24R3)+S6÷(720R5)]sin[E-(90D)÷(πR)-90] ▲子程序:P3Z≤1 X=B+TcosE+Tcos(E+F)+[I-I5÷(40R2D2)]cos(E+F+180) +[I3÷(6RD)]cos(E+F+180-90)▲Y=C+TsinE+Tsin(E+F)+[I-I5÷(40R2D2)]sin(E+F+180) +[I3÷(6RD)]sin(E+F+180-90)▲X=B+TcosE+Tcos(E-F)+[I-I5÷(40R2D2)]cos(E-F+180) +[I3÷(6RD)]cos(E-F+180+90)▲Y=C+TsinE+Tsin(E-F)+[I-I5÷(40R2D2)]sin(E-F+180)+[I3÷(6RD)]sin(E-F+180+90)▲说明:1.K0为ZH点桩号;(X0，Y0)为ZH点座标；L0为缓和曲线段长度，A0为直线方位角；B0为转角；K1为HZ点桩号；N为条件参数；R为半径；T为切线长；Z为条件参数；K为待求点桩号。
4800计算器坐标正算、反算编程程序
Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，
在中线上取零)
X ？反算时所求点的X坐标
Y ？反算时所求点的Y坐标
显示部分：
XS=? 正算时，计算得出的所求点的X坐标
YS=? 正算时，计算得出的所求点的Y坐标
Y"YS"=Y◢
Goto 1←┘
Lbl 2：{XY}：XY：I=X：J=Y：Prog "SUB2"：S"S"=O+W◢
Z"Z"=Z◢
Goto 2
2. 正算子程序(SUB1)
A=0.1739274226：B=0.3260725774：K=0.0694318442：L=0.3300094782：F=1-L：M=1-K：X=U+W(Acos
径为无穷大，以10的45次代替；与圆曲线相接时，曲率半
径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，
以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；
与圆曲线相 接时，曲率半径等
好评: 5分
1.主程序(TYQXjs)
"1.SZ => XY"："2.XY => SZ"：N：U"X0"：V"Y0"：O"S0"：G"F0"：H"LS"：P"R0"：R"RN"：Q：C=1P：D=
(P-R)(2HPR)：E=180π：N=1=>Goto 1：≠>Go to 2Δ←┘
有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序
有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序有缓和曲线或无缓和曲线任意桩号中、边桩坐标4800计算程序四、QXZB(曲线坐标)A”ZH(ZH)=〃:B”X(ZH)=〃:C”Y(ZH)=〃”X(HZ)=〃:E”Y(H Z)=〃:F”FWJ-1=〃:G ”FWJ-2=〃:H”R=〃:I”L1=〃:J”L=〃:K”L2=〃:L”ZJ(Z=1,Y=-1)=〃O=180/pi (pi为圆周率，电脑中找不到此符号以此代替)LbI A{MN}M”ZHUANG HAO=〃P=M-AMM>(A+I+J+K)?GOTO A⊿N”ZHUANG JU(Z+,Y-)=〃M>(A+I+J)?GOTO D⊿M>(A+I)?GOTO C⊿LbI B(第一缓和曲线)X=B+(P-(P5÷40÷H2÷I2))COSF+(P3÷6÷H÷I-P7÷336÷H3÷I3)LSINFY=C+(P-(P5÷40÷H2÷I2))SINF-(P3÷6÷H÷I-P7÷336÷H3÷I3)LCOSFX=X+NCOS(F-(P2÷2÷H÷I)OL-90)◢Y=Y+NSIN(F-(P2÷2÷H÷I)OL-90)◢GOTO ALbI C(圆曲线)X=B+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))COSF-(H(1-COS(((P-I)÷H+I ÷2÷H)O))+ I2÷24÷H)(-1)LSINFY=C+(HSIN(((P-I)÷H+I÷2÷H)O)+(I÷2-I3÷240÷H2))SINF+(H(1-COS(((P-I)÷H+I ÷2÷H)O))+I2÷24÷H)(-1)LCOSFX=X+NCOS(F-((P-I)÷H+I÷2÷H)OL-90)◢Y=Y+NSIN(F-((P-I)÷H+I÷2÷H)OL-90)◢GOTO ALbI D(第二缓和曲线)Q=A+I+J+K-MX=D-(Q-Q5÷40÷H2÷K2)COSG+(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LSINGY=E-(Q-Q5÷40÷H2÷K2)SING-(Q3÷6÷H÷K-Q7÷336÷H3÷K3)LCOSGX=X+NCOS(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢Y=Y+NSIN(F-(I÷2÷H+J÷H+K÷2÷H-Q2÷2÷H÷K)OL-90)◢GOTO A变量说明：以上变量依次为：ZH(ZH)=直缓点桩号，无缓和曲线则为直圆点；X(ZH)=直缓点X坐标；无缓和曲线则为直圆点；Y(ZH)=直缓点Y坐标，无缓和曲线则为直圆点；X(HZ)=缓直点X坐标，无缓和曲线则为圆直点；Y(HZ)=缓直点Y坐标，无缓和曲线则为圆直点；FWJ-1=第一切线方位角；FWJ-2=第二切线方位角；R=半径；L1=第一缓和曲线长；L=圆曲线长；L2=第二缓和曲线长；ZJ(Z=1,Y=-1)=转角形式(左=1，右=-1)ZHUANG HAO=所求点桩号ZHUANG JU(Z+,Y-)=边桩桩距，左边桩为正，右为负，中桩0 我已经用过了，没发现什么问题，请大家提意见。
非常实用的4800放线程序(增加计算竖曲线标高,增加使用说明)
卡西欧fx-4800p计算机（中、边线坐标放样程序，计算速度快，园曲线超过半圈后有误差）(此程序可以查找桩号和偏中距离)SUB-1A=0.1739274226:B=0.3260725774:K=0.0694318442:L=0.3300094782:X=U+W(ACOS(G +180QKW(1÷P+KWD)÷π)+BCOS(G+180QLW(1÷P+LWD)÷π)+BCOS(G+180QW(1-L)(1÷P+WD(1-L))÷π)+ ACOS(G+180QW(1-K)(1÷P+WD(1-K))÷π)):Y=V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+BSIN(G+180QLW(1÷P+LWD)÷π)+BSIN(G+1 80QW(1-L)(1÷P+WD(1-L))÷π)+ ASIN(G+180QW(1-K)(1÷P+WD(1-K))÷π)):F=G+ 180QW(1÷P+WD)÷πS—O(放线主程序)Deg:Fix 3：Defm 12（说明：本程序为3个变坡点，如果增加变坡点，相应增加“s-o”程序的Defm后的数字为(变坡点个数+1)*3）LbI 7:C“XC=”: E“YC=”：T“H=”LbI 1:{N}: N“XL=1,2”:N=0=>{U,V,G,P,R,О,H,Q}: U“X0=”: V“Y0=”：G“F0=”: P“R1=”: R“R2=”：О“DK1=” : H “DK2=”: Q “L(-1),R(+1),Z(0)”: Prog“SJ”△LbI 0:{S,M,Z}:S“ZHUANG HAO=”: T≠0=>Z=0：Goto 8△{Z} :Z”KUAN DU”LbI 8N=1=> Prog“1”: GOTO 2: ≠＞△N=2=> Prog“2”: GOTO 2: ≠＞△N=3=> Prog“3”: GOTO 2: ≠＞△…………………………..GOTO 1LbI 2:S＜О-0.001=> GOTO 1: ≠＞△S＞H+0.001=> GOTO 1: ≠＞△D=（P-R)÷(2PR(H-О)):W=Abs(S-О): Prog“SUB1”: Z=1000=> GOTO 5△Z≠0=> GOTO 3 △T≠0=> GOTO 9 △X“XS=”▲ Y“YS=”▲F＜0=> F=F+360:≠＞△F“QX-FWJ=”▲LbI 4:I=0: J=0: PoI(X-C,Y-E+0.00001)：J＜0=> J=J+360:≠＞△J“FWJ=”▲ I“H D=”▲T=0=> Goto 0△LbI 9: Prog“BG”: {K}:J=G-T+K:J”H△”▲Goto 0LbI 3: {M}:M“PJ=”: F=F+M:X=X+ZCOSF▲Y=Y+ZSINF▲Goto 4LbI 5:DegJ=0:I=0: PoI(X-C,Y-E+0.00001Ran#)：J＜0=> J=J+360:≠＞△Abs(Icos(J-F)) ＜0.010=> Goto 6△ S=S-Icos(J-F):Pause 0: Goto 8LbI 6:Z=0:S”JI SUAN ZH=”▲J-F＜-180=>I”L= m”▲Goto 7: ≠＞△J-F＞180=>I”R= m”▲Goto 7: ≠＞△J-F＜0=> J-F＞-180=>I”R= m”▲Goto 7: ≠＞△△J-F＞0=> J-F＜180=>I”L= m”▲Goto 7: ≠＞△△I”ZX--PT”▲Goto 7竖曲线计算子程序BGV=4：Y=Z[1]Lb1 0S＜Z[1] => Goto 2△V＞4=>A=(Z[V-2]-Z[V-5])/(Z[V-3]-Z[V-6]): B=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]):L=ABS(Z[V-1]*tan((tan-1 B- tan-1 A)/2))Y=Z[V-3]+L:≠＞△A=(Z[V+1]-Z[V-2])/(Z[V]-Z[V-3]): B=(Z[V+4]-Z[V+1])/(Z[V+3]-Z[V]):L=ABS(Z[V+2]* tan ((tan -1 B-tan -1 A)/2))X=Z[V]-L:U=z[v]+LA-B＞0=>Q=-1:≠＞△A-B＜0=>Q=1:≠＞△W=(S- X)/ Z[V+2]*180/piS≥Y => S≤X => ZG=Z[V-2]+A(S-Z[V-3]): Goto I≠＞△S≥X => S≤U => ZG= Z[V+1]-L*A +2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2)= Z[V+1]- ABS(Z[V+2]*TAN((SIN-1 B- SIN-1 A)/2))*A+2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2) : Goto I ≠＞△S＜Y =>V=V-3：Goto 0△S＞U => Z[V]≠Z[V-3] =>V=V+3：Goto 0△LbI 2：”MEI YOU SHU JU”: {G}LbI 1（标高数据输入程序）SJＩ=1：LbI ０：I”BIAN PO DIAN=”▲ {K}：K”ZHUANG HAO=”:Z[3I-2]=K: {K}：K”BIAO GAO=”:Z[3I-1]=K: {K}：K”BAN JING=”:Z[3I]=K:I＜3=>I=I+1：Goto 0△说明： I为变坡点号，本程序为3个（最少3个），如果增加变坡点，相应增加I＜后的数字，并增加“s-o”程序的Defm后的数字为(I+1)*3QXYS(现场输入曲线要素子程序)U“X0=”: V“Y0=”: G“F0=”: P“R1=”:R“R2=”: О“DK1=”: H“DK2=”:Q “L(-1),R(+1),0”(线路名称预装要素子程序) 1o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)：S≤o=> S≥H=> GOTO 3：≠＞△△o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)：S≤o=> S≥H=> GOTO 3：≠＞△△。
公路工程曲线中边桩坐标计算程序汇编要点
5、按EXE键，显示1÷RB？，输入±1÷终点半径（正负号与起点半径相同）
6、按EXE键，显示H？输入2
7、按EXE键，显示SA？输入起点里程（桩号）
8、按EXE键，显示SB？输入终点里程（桩号）
9、按EXE键，显示N？输入起点X坐标
10、按EXE键，显示E？输入起点Y坐标
右转1÷RA，∞÷1=0）
5、按EXE键，显示1÷RB？，输入0（RB为终点半径∞，1÷∞=0）
6、按EXE键，显示H？输入2（R→∞输2）
7、按EXE键，显示SA？输入起点里程（桩号）
8、按EXE键，显示SB？输入终点里程（桩号）
9、按EXE键，显示N？输入起点X坐标
10、按EXE键，显示E？输入起点Y坐标
缓和曲线或回旋线中、边桩坐标计算程序操作步骤
(FX-4800P)文件名：ZADAO（主）BZ（子）
三、由R小→R大的缓和曲线或回旋线
1、按AC/ON键开机
2、按MODE5、2键，显示文件名利用▼查找ZADAO文件
3、按EXE键，显示I？输入设计参数“A”的数据
4、按EXE键，显示1÷RA？，输入±1÷起点半径（左转-1÷RA，1÷∞=0；
12、按EXE键，显示A？输入前进方向的右角
13、按EXE键，显示XL=为左侧边桩X坐标
14、按EXE键，显示YL=为左侧边桩Y坐标
15、按EXE键，显示R？输入右侧距离
16、按EXE键，显示XR=为右侧边桩X坐标
17、按EXE键，显示YR=为右侧边桩Y坐标
18、按EXE键，显示P？返回第7步即：输入另一个所求里程
圆曲线中、边桩坐标计算程序操作步骤
(FX-4800P)文件名：YUAN