4800-5800通用程序
卡西欧4800万能程序
卡西欧4800 万能程序文件名：ZXA”CZX”:B”CZY”:C”FYX”:D”FYY”回车Pol(C-A,D-B) 回车E”FWJ”=J▲F”L”=I▲文件名：(主程序TXTL)运行这个A”CZ-X=”回车B”CZ-Y=”回车Lbi0回车Prog”SJ”回车Prog”JS”回车Goto0回车文件名：（JS）Norm:Deg: 回车Z［5］=90O÷R∏:P=O²÷(24R):M=O÷2-O∧3÷240÷R²:L=R∏(AbsQ-2Z［5］) ÷180:T=(R+P) tan(AbsQ÷2)+M回车D=E-F:D≦0﹦﹥Goto1:≠﹦﹥D≦O﹦﹥Goto2: ≠﹦﹥D=E-F-O:D≦L﹦﹥Goto3: ≠﹦﹥D=F+2O+L-E:D≥0﹦﹥Goto4: ≠﹦﹥Goto5△△△△回车Lbi1回车S=E-F:C=Z:U=Z回车Goto6回车Lbi2回车U=D-D∧5÷(40R²O²):V=D∧3÷(6RO):Z［1］=90D²÷(RO∏) 回车Goto7回车Lbi3回车U=M+Rsin(Z［5］+180D÷R∏ ):V=R+P-Rcos（Z［5］+180D÷R∏）:Z［1］= Z［5］+180D÷R÷∏回车Goto7回车Lbi7回车Z［2］=tan-1(V÷U):S=∫（U²+V²）: 回车Q≦0﹦﹥C=Z-Z［2］:U=Z-Z［1］: ≠﹦﹥C=Z+Z ［2］:U=Z+Z［1］△回车Goto6回车Lbi4回车U=D-D∧5÷(40R²O²):V=D∧3÷(6RO):Z［2］= tan-1(V÷U):S=∫（U²+V²）:Z［1］=D²*180÷(6RO∏)*3回车Q≦0﹦﹥C=Z+Q+Z［2］+180:U=Z+Q+Z［1］: ≠﹦﹥C=Z+Q-Z［2］+180:U=Z+Q-Z［1］△回车Goto8回车Lbi8回车X=ScosC+G+T cosZ+T cos(Z+Q):Y=SsinC+H+T sinZ+ T sin(Z+Q) 回车Goto9回车Lbi5回车S=(E-F-2O-L):U=Z+Q:C=U:Goto8回车Lbi6回车X=ScosC+G:Y=SsinC+H回车Goto9回车Lbi9:Fix4回车Z［3］”X”=X+Wcos(U+K)▲Z［4］”Y”=Y+Wsin(U+K)▲Pol(Z［3］-A,Z［4］-B:Fixm:J<0﹦﹥J=J+360△J”FWJ”=J▲I”L”=I▲Norm回车文件名：SJ{ K,E,W,N }回车E”CS空格DK+”回车W”BIAN 空格KUAN空格E=”回车K”Y+90°><Z-90°”回车N”1:ZHENG空格XI”回车N=1﹦﹥Prog”Z”:≠﹦﹥N=2﹦﹥Prog”Z1”:≠﹦﹥N=3﹦﹥Prog”Z2”:≠﹦﹥N=4﹦﹥Prog”Z3”:≠﹦﹥Prog”GYDL” :≠﹦﹥N=3﹦﹥Prog”ZY”回车文件名【数据库】（Z）E≦第二条曲线ZH点里程﹦﹥F=第一条曲线ZH点里程：O=第一条缓和曲线长：R=第一条半径长度：G=第一条曲线ZH点X的坐标：H=第一条曲线ZH 点Y的坐标:Z=第一条曲线方位角：Q=第一条曲线转角值：≠﹦﹥E≦第三条曲线ZH点里程﹦﹥F=第二条曲线ZH点里程：O=第二条缓和曲线长：R=第二条半径长度：G=第二条曲线ZH点X的坐标：H=第二条曲线ZH点Y的坐标:Z=第二条曲线方位角：Q=第二条曲线转角值：≠﹦﹥以此类推文件名：（QXYS）R”R”:L”L0”:A”ZXJ”回车B”B0”=(L÷2R)*(180÷∏) ▲M”M”=( L÷2)-(L∧3÷240R²)▲P”P’=L²÷240R▲T”T”=M+(R+P)*tan(A÷2)▲Z”L”=L+∏RA÷180▲E=(R+P)*(1÷cos(A÷2))-R▲Q=2T-Z回车（4800注意变量）解释：CZ-X= 输入置镜点X坐标CZ-Y=输入置镜点Y坐标CS DK+?输入待求里程BIAN KUAN E=?输入距离中桩的距离Y+90°><Z-90°? 输入构造物与线路的夹角1:ZHENG XI？选着数据库坐标XY….FWJ=置镜点到放样点的方位角L=置镜点到放样点的平距循环。
卡西欧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.主程序：一般坐标计算及放样程序程序名:1XYProg ＂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≠-12.主程序：由大概桩号及坐标反算桩号及距离程序名:2ZDProg＂QX＂:Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: ＂XO＂?X: ＂Y0＂?Y: Porg＂B＂: Prog＂ZD＂:LpWhile Z≠-1(反算带显示设计高程和横坡.在2ZD程序中修改这:Prog＂QX＂:"KM"?Z:Do: Prog＂K＂:＂XO＂?X:X=-1=>Stop:X=-2=>Break:＂Y0＂?Y: Porg＂B＂:Prog＂H＂: Prog＂ZD＂: ＂ H=＂: Locate 6,4,H：＂ I=＂:Locate 6,4,I◢LpWhile X≠-1 )3.主程序：任意点高程计算及横坡程序名:3GCP 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≠-14.主程序:任意桩号位置的标准路基宽度计算程序名:4GDProg＂QX＂: Do: ＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break:-1→D:Prog＂C＂:L→P：1→D: Prog＂C＂:Fix 3: ＂ LGD=＂: Locate 6,4,P：＂ RGD=＂:Locate 6,4,L：LpWhile Z≠-15、主程序:路基开挖边线及填方坡脚线放样程序程序名：5BPProg ＂DX＂:Prog＂QX＂:0.5→B: ＂TH-GD＂?B: B→Z[7]: Do:＂K M＂?Z:Z=-1=>Stop:Z=-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→P :Prog＂C＂:If D<0:Then 0. 75-L→D:Else L-0.75→D: IfEnd: Prog“H”:H-0.03-Z[8] →G: Prog “W1”:If G>0:Then Goto T: IfEnd:-G→H:If H>E+F:Then L+M+N+U+C(H-E-F)+BF+AE→S:Goto 0:IfEnd:If H>E:Then L+M+N+ B(H-E)+AE→S:Goto 0:IfEnd:If H<E:Then L+M+HA→S:Goto 0:IfEnd:LbI T:If G>W：Then L+Z[7]+V+J(G-W)+IW→S:Else L+Z[7]+GI→S:IfE nd:LbI 0: Fix 2: P→D ：Abs（D）-S→T: ＂ LX=＂:Locate 6,4,T：Prog＂ZD＂:＂ TW=＂: Locate 6,4,G◢LpWhile Z≠-16、主程序：定值放样路基桩计算填挖值程序名：6FMProg ＂DX＂:Prog＂QX＂: Do:＂KM＂?Z:Z=-1=>Stop:Z=-2=>Break: P rog＂K＂: ?D: Porg＂A＂:Z[2]+90→A :I+Dcos(A→X:J+Dsin(A→Y:P rog＂XY＂:Prog＂JS＂:Z[8]→M:”M0”?M:M→Z[8]:Prog “H”:” T W=”:Locate 6,4,H-Z[8]: LpWhile Z≠-17、主程序：桥梁锥坡计算放样程序名：7ZPProg＂DX＂:Prog＂QX＂:＂Z0＂?Z:＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: D→Z[7]:R→Z[10]:Z→Z[9]:Prog”C”:L→Z[10]:Prog”K”: Do:Z[10]→Y:＂L0:SZ+,DZ-＂?Y: Y=-1=>Stop:Y=-2=>Break: √(Z[7]2（1-Y2/Z[10]2）)→X：Z[9]+Y→Z: Prog”C”: If D>0:Then L+X→D:Else –L-X→D:IfEnd:Prog”A”: Z[2]+90→A :I+Dcos(A→X:J+Dsin(A →Y:Prog＂XY＂:Prog＂JS＂: LpWhile Y≠-18、主程序：由坐标计算方位角及距离程序名：8JSProg ＂DX＂:Do:?X: X=-1=>Stop:X=-2=>Break:?Y:Prog”JS”: LpWhi le X≠-19、主程序：隧道超欠挖放样计算程序名：9SDProg＂DX＂:0.65→A:”CQHD”?A:A→Z[7]:Do:＂KM＂?Z:Z=-1=>Stop:Z =-2=>Break: Prog＂K＂: “X0＂?X:＂Y0＂?Y:Z[8]→M：＂M0＂?M:M→Z[8]: Porg＂B＂:D→Z[9]:0→D:Prog”H”:Prog”SD1”:Z[9] →D:Z[8]→M:Z[7]→X:Rcos(P→C:H+A→A:H+B→B:C+A→E:If M<E:Then R-V→S: S=0=>Goto 1:√(S2-(B-A)2)S÷Abs(S→T:Abs(D-Q)-T→T:√(T2+(M-B)2) -V-X→L:Goto 0:IfEnd:LbI 1:√((D-Q)2+(M-A)2)-R-X→L:LbI 0:Fix 2:” LX=”: Locate 6,4,L:Prog”ZD”:“ H0=”: Locate 6,4,M-H◢LpWhile Z≠-110. 交点法正算子程序(Ａ)程序名：AP÷Abs(P→W:O-T+ΠR×Abs(P)÷180+H÷2-N÷2→Q:H→C:0→M:If Z≤O-T:Then Z-O→S:G→Z[2]:Goto 1: IfEnd:If Z≤O-T+H:Then Z-O+T→S:Prog “HX”:G+WK→Z[2]:A-T→A:G→E: Goto 2:IfEnd:If Z≤Q: Then 180(Z-O+T-0.5H)÷R÷Π→S : Prog”AB”:A+R(1-Cos (S→E：B+Rsin(S→A:E→B:R→M:G+WS→Z[2]:A-T→A:G→E:Goto 2: If End:If Z≤Q+N:Then Q+N-Z→S:N→H:Prog “HX”:G+P→E:E-WK→Z[2]:F-A→A:C→H:Goto 2:IfEnd:Z-Q-N+F→S:G+P→Z[2]: LbI 1:U+Scos(Z[2]→I:V+Ssin(Z[2]→J:Ret urn:LbI 2:U+Acos(E)-WBsin(E→I:V+Asin(E)+WBcos(E→J11. 交点法反算子程序(Ｂ)程序名：B0→D:Do:Z+D→Z:Prog”A”:Pol(X-I,Y-J+×10-9:J-Z[2]→J:Isin(J→S: Icos(J→D:If M≠0:Then Pol(M-WS,D:JMΠ÷180→D:IfEnd: LpWhile Abs(D)>.001:Z+D→Z:S→D12.缓和曲线段直角坐标计算子程序(ＡB)程序名：ABH2÷R÷24-H∧(4)÷2688÷R∧(3)+H∧(6)÷506880÷R∧(5)- H∧(8)÷154 828800÷R∧(7)→A:H÷2-H∧(3)÷240÷R2+ H∧(5)÷34560÷R∧(4)- H∧(7)÷8386560÷R∧(6)+ H∧(9)÷3158507520÷R∧(8)→B13. 计算缓和曲线段坐标增量及偏角子程序(HX)程序名：HXS-S∧(5)÷40÷R2÷H2+S∧(9)÷3456÷R∧(4)÷H∧(4)-S∧(13)÷599040÷R∧(6)÷H∧(6)+S∧(17)÷175472640÷R∧(8)÷H∧(8)→A:S∧(3)÷6÷R÷H-S∧(7)÷336÷R∧(3)÷H∧(3)+S∧(11)÷42240÷R∧(5)÷H∧(5)-S∧(15)÷9676800÷R∧(7)÷H∧(7)+S∧(19)÷3530097000÷R∧(9)÷H∧(9)→B:9 0S2÷Π÷R÷H→K:If S=0:Then 0→M:Else RH÷S→M:IfEnd14．高程计算子程序（H）程序名：HProg “S1”:N-I→A:A÷Abs(A→W:R×Abs(A÷2→T:If Z<C-T:Then G+ I(Z-C→H:Goto 0:IfEnd:If Z<C+T:Then G-TI+(I+(Z-C+T)W÷2÷R)×(Z-C+T→H:Goto 0: IfEnd:N→I: G+I(Z-C→H:LbI 0:If D=0:Then H→H:Return:Else Prog “I”:H+I(Abs(D)-K→H:IfEnd15.高程超高计算横坡子程序（I）程序名：IProg “I1”：If S=0:Then M→I: Return:Else If W=1:Then ((N-M)×(Z-C)÷S+M→I:Return:Else (((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M→I:IfEnd:16．路基宽度子程序程序名：C1→S: Prog “G1”:Z-C→E:(B-A)E÷S+A→L17：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSZ[5]→K：Z[6]→L:Pol(X-K, Y-L:IF J<0:Then J+360→J:IFEnd:Int(J) +0.01Int(60Frac(J))+0.006Frac(60Frac(J→J: Fix 4:” FWJ=”: Lo cate 6,4,J：Fix 3:” S=”:Locate 6,4,I◢18．导线点子程序（DX）程序名：DXZ[5]→K:Z[6]→L:“XZ”?K:”YZ”?L:K→Z[5]:L→Z[6]19．线路选择子程序(线路选择输0时。
4800程序使用说明书
4800程序使用说明书术语：连续曲线数据块、独立曲线数据块、长短链功能：1、放样对应里程中心点2、放样对应里程旋转任意角度外移点（图A点）3、放样对应里程旋转任意角度外移点的外移点（图B点）4、获取放样点坐标及对应里程中心点沿线路前进方向切线方位角程序输入注意事项：1、常用程序文件放在前面，便于调用，一般先建立“CIRC LE”、“XY-AL”、“AL-XY”三文件，文件名千万不能输错。
2、加粗带下划线词组为计算器中的函数或符号，只能从计算器中调出此函数或符号，不能从键盘输入。
符号←表示回车键“EX E”坐标输入通用格式：屏幕显示OPP NAME?（置镜点名称）或CPP NAME?（后视点名称）：1：输入-1：手动输入坐标X,Y2：输入大于1数字：输入用数字所代表的控制点名。
如数据库中没有本数字所代表的点名，则系统显示Syn ERROR in…（文件名）。
曲线放样程序（CIRCLE）运行说明：步骤1：屏幕提示“LOAD?”（输入曲线要素）1.1：输入 1（默认）：输入里程后将自动判断所在曲线并调用（此功能必须保证曲线数据库中有连续曲线数据块，具体详见数据库建立）。
1.2：输入-1：屏幕提示手动输入各曲线要素，ZJ（转角）、R（半径）、L0(缓和曲线长)、ZH KM(直缓里程)、JDX(曲线交点X坐标)、JDY(曲线交点Y坐标)、A0(起始直线边前进方向方位角)、1 R,-1 L(右偏输入1，左偏输入-1)。
1.3：输入大于1的数字：输入用数字代表的曲线名称，比如13，表示放样点位于曲线 13 上（曲线名称在建立数据库是自己命名，但一定要大于1）。
如库中没有此名称，系统显示“Syn ERROR in CI RCLE”。
（此功能必须保证曲线数据库中有独立曲线数据块）步骤2：屏幕提示“OPP NAME?”（输入置镜点名称）详见坐标输入格式。
步骤3：屏幕提示“DK+M?”（输入放样点对应中心里程）如K15+002.35应输入15002.35。
卡西欧4500、4800、5800高程程序
竖曲线高程的计算公式1.在直线段上的计算公式：H=G±(K-B)*I2.在曲线段上的计算公式：H=G±(K-B)*I+N(K-Z)2/2R式中：K—待求点的桩号Z—直圆点桩号R—曲线半径H—待求点的高程G—变坡点的高程B—变坡点的桩号I —纵坡度N—常数（凸为-1，凹为+1）4500竖曲线计算实例Lbl 0{K}Lbl 1K≤A→H=G1+(K-变坡点1桩号)*I▲≠→Goto 2△Goto 最后一行Lbl 2K≤B→H=G1+(K-变坡点1桩号)*I-(K-A)2/2R ▲≠→Goto 3△Goto 最后一行Lbl 3K≤C→H=GJD1+(K-JD1桩号)*I▲≠→Goto 4△Goto 最后一行Lbl 4K≤D→H=GJD1+(K-JD1桩号)*I+(K-C)2/2R ▲≠→Goto 5△Goto 最后一行以此类推············Lbl 最后一行U=Y-(H-0.7+1.25*0.18+1.1*0.02) ▲V=U+0.02*14.03 ▲Goto04800竖曲线计算实例Lbl 0{k}Lbl 1K≤A→H=G1+(变坡点1桩号-K)*I▲≠→Goto 2△Goto 最后一行Lbl 2K≤B→H=G2+(变坡点2桩号-K)*I-(K-A)2/2R ▲≠→Goto 3△Goto 最后一行Lbl 3K≤C→H=GJD1+(K-JD1桩号)*I▲≠→Goto4△Goto最后一行Lbl 4K≤D→H=GJD1+(K-JD1桩号)*I+(K-C)2/2R ▲≠→Goto5△Goto最后一行以此类推············Lbl 最后一行U=Y-(H-0.7+1.25*0.18+1.1*0.02) ▲V=U+0.02*14.03 ▲Goto 05800竖曲线计算实例“SQXJSCX”↙Lb1 1↙CLs:Fix 3↙“K=”?k◢(计算点里程输入)If k<67549.755 AND K≥66894.3 :Then -0.00052→A : 0→B : 67394.3→S : 67.37→G : 600000→R : Goto 2 : IfEnd↙If k<68708.391 AND K≥67549.755 :Then -0.0048→A : -0.00052→B : 68494.3→S :66.8→G : 100000→R : Goto 2 : IfEnd↙If k<本段竖曲线终点里程AND K≥前一竖曲线终点里程:Then -0.0048→前坡（大里程向）A : -0.00052→后坡（小里程向）B : 68494.3→竖曲线交点里程S :66.8→交点高程G : 100000→曲率半径R : Goto 2 : IfEnd↙………依次类推，计算原始数据完成输入，坡度换算成小数。
CASIO fx-5800p测量程序
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；右侧输入“+”值，左侧输入“-”值。
5800计算器程序1
5800计算器程序15800计算器程序1计算器程序通常是用来进行基本的数学运算的工具，能够帮助用户进行加减乘除等运算。
下面是一个简单的5800计算器程序的实现，代码行数大约1200字以上。
```python# -*- coding: utf-8 -*-#定义一个函数，用于检查输入是否为有效的数值def is_valid_number(num_str):try:float(num_str)return Trueexcept ValueError:return Falseclass Calculator:def __init__(self):self.result = 0#加法运算def add(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) + float(b)return self.resultelse:return "请输入有效的数字！"#减法运算def subtract(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) - float(b)return self.resultelse:return "请输入有效的数字！"#乘法运算def multiply(self, a, b):if is_valid_number(a) and is_valid_number(b): self.result = float(a) * float(b)return self.resultelse:return "请输入有效的数字！"#除法运算def divide(self, a, b):if is_valid_number(a) and is_valid_number(b): if float(b) != 0:self.result = float(a) / float(b)return self.resultelse:return "除数不能为0！"else:return "请输入有效的数字！"#主程序if __name__ == '__main__':calculator = Calculatorprint("欢迎使用5800计算器程序！")while True:print("请输入要进行的操作：")print("1. 加法")print("2. 减法")print("3. 乘法")print("4. 除法")print("5. 退出程序")choice = input("请选择操作（输入序号）：")if choice == "1":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.add(num1, num2)}")elif choice == "2":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.subtract(num1, num2)}") elif choice == "3":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.multiply(num1, num2)}") elif choice == "4":num1 = input("请输入第一个数：")num2 = input("请输入第二个数：")print(f"结果为：{calculator.divide(num1, num2)}")elif choice == "5":print("感谢使用5800计算器程序，再见！")breakelse:print("无效的操作！请重新输入。
4800、5800、工程计算器万能程序
48000直曲线计算器程序程序名ZCXP=L2 ÷（24 R）- L4÷(2688 R3)M=L÷2-L3÷(240R2)B=90L÷（πR）T=（R+P）×tan(AbsA ÷2)+MC“ZH”=D-TG“HY”=C+LH“YH”=G+（AbsA÷2-2B）×πR÷180I“HZ”=H+LLbi0:｛K｝K≤G＝→Goto1:≠→Goto2⊿Lbi1:(K-C)≤0→Goto5⊿X=K-C-(K-C)5÷(40R2L2)Y=(K-C)3÷(6LR)-(K-C)7÷(336R3L3)J=√(X2+Y2)O=tan-1(Y÷X)Q=N+Tcos(F+180)+Jcos(AbsAO÷A+F):“X0=”：Q◢S=E+Tsin(F+180)+Jsin(AbsAO÷A+F):“Y0=”：S◢W=F+3AbsAO÷ALbi2:K≥H→Goto3⊿X=Rsin((K-G)×180÷(πR)+B)+MY=R（1-cos((K-G)×180÷（πR）+B)）+PJ=√(X2+Y2)O=tan-1(Y÷X)Q=N+Tcos(F+180)+Jcos(AbsAO÷A+F):“X0=”：Q◢S=E+Tsin(F+180)+Jsin(AbsAO÷A+F):“Y0=”：S◢W=F+AbsAB÷A+AbsA(K-G)×180÷（πR）÷AGoto4⊿Lbi3:K≥I→Goto6⊿X=K-I-(K-I)5÷(40R2L2)Y=(I-K)3÷(6LR)-(I-K)7÷(336R3L3)J=√(X2+Y2)O=tan-1(Y÷X)Q=N+Tcos(F+A)+Jcos(F+A+180-AbsAO÷A):“X0=”:Q◢S=N+Tsin(F+A)+Jsin(F+A+180-AbsAO÷A):“Y0=”:S◢W=F+A-3AbsAO÷AGoto4⊿Lbi4:U=Q+Zcos(W-90):“XL=”：U◢V=S+Zsin(W-90):“YL=”：V◢U=Q+Zcos(W+90):“XR=”：U◢V=S+Zsin(W+90):“YL=”：V◢Goto0⊿Lbi5:Q=N+(D-K)cos(F+180):“X0=”：Q◢S=E+(D-K)sin(F+180):“Y0=”：S◢W=FGoto4⊿Lbi6:Q=N+(T+K-I)cos(F+A):“X0=”：Q◢S=E+(T+K-I)sin(F+A):“Y0=”：S◢W=F+AGoto4⊿“END”程序名JDXXXXA=XXXXX R=XXXXX F=XXXXX D=XXXXXL=XXXXX N=XXXXX E=XXXXX Prog“ZCX”◢程序中：K表示里程（変量） Z表示該里程處左右邊樁距中心垂距A表示曲綫轉角（左轉-，右轉+）R曲綫半徑58000直曲线计算器程序程序名ZCXL2 ÷（24 R）- L4÷(2688 R3)→PL÷2-L3÷(240R2) →MB=90L÷（πR）→BT=（R+P）×tan(Abs（A) ÷2)+M→TD-T→C：“ZH=”：C◢C+L→G：“HY=”：G◢G+（AbsA÷2-2B）×πR÷180→H：“YH=”：H◢H+L→I：“HZ=”：I◢Lbi0:？KIfK≤G：ThenGoto1:ElseK＞G：Goto2：IfEndLbi1:(K-C)≤0⇒ Goto5K-C-(K-C)5÷(40R2L2)→X(K-C)3÷(6LR)-(K-C)7÷(336R3L3) →Y√(X2+Y2)→Jtan-1(Y÷X)→ON+Tcos(F+180)+Jcos(AbsAO÷A+F)→Q:“X0=”：Q◢E+Tsin(F+180)+Jsin(AbsAO÷A+F)→S：“Y0=”：S◢F+3AbsAO÷A→W◢Lbi2:K≥H≯Goto3Rsin((K-G)×180÷(πR)+B)+M→XR（1-cos((K-G)×180÷（πR）+B)）+P→Y√(X2+Y2)→Jtan-1(Y÷X)→OQ=N+Tcos(F+180)+Jcos(AbsAO÷A+F)→Q:“X0=”：Q◢S=E+Tsin(F+180)+Jsin(AbsAO÷A+F)→S:“Y0=”：S◢W=F+AbsAB÷A+AbsA(K-G)×180÷（πR）÷A→WGoto4Lbi3:K≥I⇒+Goto6⊿K-I-(K-I)5÷(40R2L2)→X(I-K)3÷(6LR)-(I-K)7÷(336R3L3) →Y√(X2+Y2)→Jtan-1(Y÷X)→ON+Tcos(F+A)+Jcos(F+A+180-AbsAO÷A)→Q:“X0=”:Q◢N+Tsin(F+A)+Jsin(F+A+180-AbsAO÷A)→S:“Y0=”:S◢F+A-3AbsAO÷A→WGoto4Lbi4:Q+Zcos(W-90)→U:“XL=”：U◢S+Zsin(W-90)→V:“YL=”：V◢Q+Zcos(W+90)→U:“XR=”：U◢S+Zsin(W+90)→V:“YL=”：V◢Goto0Lbi5:N+(D-K)cos(F+180)→Q:“X0=”：Q◢E+(D-K)sin(F+180)→S：“Y0=”：S◢F→W◢Goto4Lbi:6N+(T+K-I)cos(F+A)→Q:“X0=”：Q◢E+(T+K-I)sin(F+A)→S:“Y0=”：S◢F+A→WGoto4⊿“END”程序名JDXXXXXXXXX→ A XXXXX→F XXXXX→R XXXXX→D XXXXX →N XXXXX→L XXXXX→E Prog“ZCX”◢程序中：K表示里程（変量） Z表示該里程處左右邊樁距中心垂距A表示曲綫轉角（左轉-，右轉+）R曲綫半徑L：缓和曲线长F：ZH-JD方位角D交点里程N交点X坐标 E交点Y坐标。
非常实用的5800放线程序(4800转换,增加计算竖曲线标高,增加使用说明)
卡西欧fx-5800p计算道路中、边线坐标放样程序(此程序计算速度快，可以查找桩号和偏中距离)（单园曲线超过半圈后有误差，半径5000米时，在半圈处的计算误差单方向8cm）SUB-10.1739274226→A:0.3260725774→B:0.0694318442→K:0.3300094782→L: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))÷π))→X:V+W(ASIN(G+180QKW(1÷P+KWD)÷π)+Bsin(G+180QLW(1÷P+LWD)÷π)+Bsin (G+180QW(1-L)(1÷P+WD(1-L))÷π)+Asin (G+180QW(1-K)(1÷P+WD(1-K))÷π))→Y:G+180QW(1÷P+WD)÷π→FS—O(放线主程序)Deg:Fix3LbI7:“XC=”？C:“YC=”？E“H=”？TLbI1:“XL=1,2”？NIF N=0:T hen“X0=”?U:“Y0=”?V:“F0=”?G: “R1=” ?P: “R2=” ?R: “DK1=” ?О: “DK2=” ?H:“L(-1),R(+1),Z(0)” ?Q:Prog“SJ”: GOTO2:IfendLbI 0: “ZHUANG HAO=” ?S: IF T≠0:T hen Z=0：Goto 8:Ifend {Z} :Z”KUAN DU”LbI8IF N=0:T hen GOTO2:IfendIF N=1:T hen Prog“1”:GOTO2:IfendIF N=2:T hen Prog“2”:GOTO2:IfendIF N=3:T hen Prog“3”:GOTO2:Ifend ……………………………………………GOTO1LbI2: IF S＜О-0.001: T hen GOTO1: IfendIF S＞H+0.001:T hen GOTO1: Ifend(P-R)÷(2PR(H-О)) →D: Abs(S-О) → W:Prog“SUB-1”IF Z=1000: T hen GOTO 5: IfendIF Z≠0: T hen GOTO 3: IfendIF T≠0:T hen GOTO 9 △“ZX=”:X →X▲“ZY=” Y→Y▲IF F＜0: T hen F+360 →F: Ifend“QX-FWJ=”：F→F▲LbI4: 0→I: 0→J:PoI(X-C,Y-E+0.00001)IF J＜0: T hen J+360→J: Ifend“FWJ=”:J→J▲“HD=”:I→I▲GOTO 0IF T=0: T hen Goto 0: IfendLb1 9: Prog“BG”: ”SXG=” ?E”H△”:G-T+E→J▲Goto 0Lb13: “PJ=”? M: F+M→F: “BX=”： X+ZCosF→X▲“BY=”：Y+ZSinF →Y▲Goto4Lb1 5:Deg0→J: 0→I:PoI(X-C,Y-E+0.00001):IF J＜0: T hen J=J+360: IfendIF Abs(Icos(J-F))＜0.010: T hen Goto6: IfendS-Icos(J-F) →S:Goto8Lb16: 0→Z:”JISUANZH=” :S→S▲IF J-F=0 or J-F=180: T hen”ZX--PT”:I→I▲Goto7: IfendIF J-F＞0 and J-F＜180 or J-F＜-180: T hen”L=m” :I→I▲Goto7: Else ”R=m” :I→I▲Goto7: Ifend竖曲线计算子程序 BGV=4：Y=Z[1]Lb1 0IF S＜Z[1]:T hen Goto2：IfendIF V＞4：ThenA=(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: IfendA=(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]+LIF A-B＞0:T hen Q=-1：IfendIF A-B＜0:T hen Q=1：IfendW=(S- X)/ Z[V+2]*180/piIF S≥Y and S≤X：T hen ZG=Z[V-2]+A(S-Z[V-3]): Goto 1：IfendIF S≥X and S≤U：T hen ZG= Z[V+1]-L*A +2* Z[V+2]*SIN(W/2)*SIN(SIN-1 A+Q*W/2): Goto 1：IfendIF S＜Y：T hen V=V-3：Goto 0： IfendIF S＞U and Z[V]≠Z[V-3]：T hen V=V+3：Goto 0： IfendIF S＜Z[1]：T hen ZG=0： IfendLbI 2：”MEI YOU SHU JU” ? GLb1 1（标高数据输入程序）SJ1→Ｉ：LbI ０：”BIAN PO DIAN=”I▲”ZHUANG HAO=” ? E:Z[3I-2]=E:”BIAO GAO=” ? E:Z[3I-1]=E:”BAN JING=”? E:Z[3I]=E:IF I＜3:T hen I+1→I：Goto 0:Ifend说明： I为变坡点号，本程序为3个（最少3个），如果增加变坡点，相应增加I＜后的数字，并增加“s-o”程序的Defm后的数字为(I+1)*31 (1为线路名称，预装要素子程序)(线路名称预装要素子程序) 1o=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)IF S≤o and S≥H T hen GOTO 3：Ifendo=线元起点里程:H=线元终点里程: U=线元起点X坐标:V=线元起点y坐标:G=线元起点方位角:P=线元起点半径(直缓点、缓直点半径为1045)：R=线元终点半径(直缓点、缓直点半径为1045)： Q=(左转为-1，右转为+1，直线为0)IF S≤o and S≥H T hen GOTO 3：Ifend 。
5800计算程序
FX-5800计算器公路测量常用程序一、程序功能本程序由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: F ix 3:" X =" : Locate 6,4," Y = H : Locate 6,4,Y丄P rog H 3JS' :Goto 0:Lb1 2:Fix 3:' ' KM = ' ' : Locate 6,4,Z 丄''D = ' ' : Locate 6,4,D丄G oto 0 2 .主程序2:高程序横坡程序（设计任意点高程及横坡）程序名：2GCLbl 0:Norm 2“ KM ?Z:?D:Prog” H” ：Fix 3: ” H=” :Locate 6,4,H丄“ I=” : Locate 6,4,1 丄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:Then J+360 —J:I nt（J）+O.O1l nt（60Frac（J））+0.006Frac（60Frac（J））—J:（不习惯小数点后四位为角度显示的，也可以用命令J丄DMS丄来直接显示）Fix 4:”FWJ二” :Locate 6,4,J丄（不习惯小数点后四位为角度显示的，也可以用命令J丄DMS丄来直接显示）Fix 3: ”S二”丄ocate 6,4,1 丄4.主程序4:涵洞放样程序（由涵中心桩号计算出各涵角坐标、在主程序3中输入置仪点坐标后计算放样点至置仪点方位角及距离）程序名：4JH-XYLbl 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: H X =":Locate 6,4 X丄" Y = H : Locate 6,4,Y丄P rog H 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]:lf D<0:Then 0.75-L —D:Goto H:Else L-0.75 —D:Goto H:IfE ndLbI 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 “WO” ：Z[10]+Z[11] —A: If G>A:Then Goto 1:Else IfG>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]) x Z[16]+Z[17] xZ[15]) — S:Goto Z:Else (N+Gx Z[15]) — S:Goto z:Lbl Z:Z[3] — D:Fix 2:Abs(D)-S —T:”L0= ” :L Locate 6,4,T丄"KM = H: Locate 6,4,Z丄"D = H: Locate 6,4,D丄“ TW= ” : Locate 6,4,Z[5]丄Goto 06.主程序6:路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L) 程序名：6GDProg “GO” Z-C— E:(B-A) x E/S+A — L:L:7.坐标计算次程序(THB)程序名：THB18— DimZ :H KM H ?Z: Prog "XO"1 宁P—C: (P-R)+ (2HPR) —S: 180-n — E:F =1=>Goto 1:F =2=>Goto 2<Lbl 1 : ?D: Abs( Z — O) — W: Prog "A": X: Y:G oto 3Lbl 2:X:Y:X— I: Y— J: Prog " B": O+W— Z: D — D:G oto 3Lbl 3:IF F=1 Then X:Y: Else Z:D8.正算子程序(A)程序名：A0.118463442" A : 0.239314335" B: 0.2844444444^N 0.046910077—K : 0.2307653449^ L : 0.5—M : U+W(Acos(G+QEKW(C+KWS ))+Bcos(G+QELW(C+LW S ))+Ncos(G+QEMW(C+MWS ))+Bcos(G+QE(1-L)W(C+(1-L)WS))+Acos(G+QE(1-K)W(C+(1-K)WS))) f X:V+W(Asi n(G+QEKW(C+KW S ))+Bsi n(G+QELW(C+LWS ))+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 S ))) f Y:G+QEW(C+W S )+ Z [1] fZ [2] : X+ D cos(Z [2]) fX: Y+D sin ( Z[2] )fY9.反算子程序(E )程序名：BG-90fT: Abs((Y-V)cos(T)-(X-U)sin(T)) fW: 0fD: Lbl 0 : Prog "A " :T+QEW(C+W S ) fL: (J-Y)cos(L)-(l-X)si n(L) fD: IF Abs( D )<0.01:Then Goto1: Else W+Df W:Goto 0 --1Lbl 1:0f D: Prog "A": (J-Y) -sin(Z[2] ) f D:10.高程计算子程序(H)程序名：HProg “S0” :R:T:C:G:I:C-T f F:Z-Ff L:C+Tf E:G-TI f Q:If T=O:ThenQ+LI f H:Goto 0:Else If Z<F:Then Q+LI f H:Goto 0:Else If Z < E:ThenQ+LI+L2 - 2-Rf H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I” :H+Vf H:Goto I:LbI I:H:I: 11•高程超高计算程序(I)程序名：IProg ”10 ”：W=仁〉Goto 0:W=2=>Goto 1:Lbl 0:If L=0:Then Abs(D) x M — V:Goto 2:Else Abs(D)x ((N-M) x (Z-C) -L+M) — V:Goto 2:IfEnd:LbI 1:If L=0:Then Abs(D) x M — V:Goto 2:Else Abs(D) x (((3((Z-C)-L)2-2((Z-C) - L) A (3)) x (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 —0:11587.421 —U:1847.983— V:101。
4800P、5800程序使用说明
5800程序使用说明书一、匝道放样程序（ZDJS)1.屏幕显示“K?”，输入待算点里程；2.屏幕显示“X=”，计算出待算点坐标X；3.屏幕显示“Y=”，计算出待算点坐标Y；4.屏幕显示“W?”，输入夹角；5.屏幕显示“L?”，输入左边距；6.屏幕显示“I?”，输入右边距；7.屏幕显示“XL=”，计算出待算点左边距坐标X；8.屏幕显示“YL=”，计算出待算点左边距坐标Y；9.屏幕显示“XR=”，计算出待算点右边距坐标X；10.屏幕显示“YR=”，计算出待算点右边距坐标Y。
（继续按“确认”将返回步骤1）二、匝道子程序（S1)If K≤304.758（终点桩号）:Then000.000（起点桩号）→Q:304.758（终点桩号）→Z:2762282.155（起点X坐标）→A:If K≤终点桩号：Then起点桩号→Q:终点桩号→Z：起点X坐标→A:起点Y坐标→B：起点切线方位角→F：起点曲率1/R1→D:终点曲率1/R2→R: （如是直线均输0）Goto 0:If End换行下一个线元要素输入同上。
Lb1 0：Return ↙三、坐标正反算（2-ZBFS、4-ZBZS）（一）、坐标反算1.屏幕显示“X1=?”，输入置镜点（已知点）X坐标；2.屏幕显示“Y1=?”，输入置镜点（已知点）Y坐标；3.屏幕显示“X2=?”，输入后视点（已知点）X坐标；4.屏幕显示“Y2=?”，输入后视点（已知点）Y坐标；5.屏幕显示“D=”，计算出两点之间的平距；6.屏幕显示“FWJ=”，计算出两点之间的坐标方位角；7.返回步骤3，屏幕显示“X2=?”，输入后视点X坐标。
（二）、坐标正算1.屏幕显示“X1=?”，输入置镜点（已知点）X坐标；2.屏幕显示“Y1=?”，输入置镜点（已知点）Y坐标；3.屏幕显示“D=？”，输入已知点与待算点之间的平距；4.屏幕显示“FWJ=？”，输入已知点与待算点之间的坐标方位角；5.屏幕显示“X2=”，计算出待算点X坐标；6.屏幕显示“Y2=”，计算出待算点Y坐标；7.返回步骤3，屏幕显示“D=？”，输入已知点与待算点之间的平距。
关于Casio计算器4800与5800的区别
关于Casio FX-4850P与Casio Fx-5800计算器的区别CASIO FX-4850 4800工程计算器在2008年3月停产现在的升级产品FX-5800P1.Fx-5800价格和fx-4850相当，但程序不能共享，Fx-5800的编程语言更接近BASIC程序语言。
2、5800变量输入语句改为?，赋值语句改为—＞。
程序中和1850一样，除可以使用26个字母变量A~Z存储数据和独立于字母变量存储器的额外变量存储器Z[1]，Z[2]，Z[3]，Z[4]……外，另外可以使用统计串列存储器List X，List Y，List Freq。
3、程序命令由4850的16个增加到了34个，取消了⊿、≠=>、｛｝命令，使得由⊿、≠=>、｛｝等重要程序命令构成的fx-4850程序无法在5800上运行。
同时，5800的条件语句修改为更易于使用的If~Then~Else~IfEnd形式，新增For~To~Step~Next循环、条件循环Do~LpWhile与While~WhileEnd 语句。
4、fx-4800p/FX-5800P没有程序通讯功能，不便于用户间相互交流程序，5800增加了数据通讯功能，使用SB-62数据线连接好两台机器的3Pin通讯口可方便地传输程序与数据，避免了4850只能以手工输入的方式录入程序，容易出现程序输入错误的弊端。
5、fx-4800p/FX-48500P采用普通内存,更换电池容易丢失程序，FX-5800P与普通U盘一样的闪内存作内存,电源为一节普通的7号电池，不需要备用电池，即使将电池取出也不丢失程序, 即使用细尖状物品触压机器背面的复位按钮P点开机，也不会删除机内程序。
6、fx-4800p/FX-4850P没有现场部分功能，运行程序的中途，如按SHIFT OFF 键关机，再按AC/ON 键开机，不能恢复到关机前的程序运行状态，FX-5800P,在任何情况下，包括正在运行程序时，都可以按SHITF OFF键关机，机器自动存储关机前的所有数据与状态，按AC键重新开机后，自动恢复到关机前的界面。
5800计算器公路计算程序
5800计算器公路计算程序作者：毛海伟本程序经过综合考虑５８００的设计缺陷，计算速度较慢故只使用高斯四节点法为计算内核．支持多条线路正反算,中桩,边桩高程计算.(1) MHW-1 (主程序)3→DimZ：“1.KB=>XY”：“2.XY=>KB”：Z[3] →A： ?A ： A → Z[3]：If A=1 ： Then Goto 1 ： Else If A=2 ： Then Goto 2 ：Else Goto 5 ：If End ：Lbi 1 ：“KP”?L ：“L”?Z ： Prog “SJ”： Prog “ZS”： Prog “GC”：If Z=0 ： Then Fix 3 ： Cls ： Locate 1,1,’X”： Locate 4,1,X ： Locate 1,2,”Y”： Locate 4,2,Y ： Locate 1,3,”H”： Locate 4,3,G ▲ Cls ： Norm 1 ：Goto 1 ： Else Z[1] →O： Cls ： ?O ： O→Z[1] ： Prog “BZ”：If End ： Goto 1 ：Lbi 2 ：Prog “FS”(2) ZS (正算子程序)H-O→H ： (P-R)/(2HPR) →D ： L-O→O：O D→D： 1/P→C：.1739274226→I ： .3260725774→J ： .0694318442→K ： .3300094782→E： //四节点法计算系数录入1-E→F：1-K→M：Q+Kr O(C+KD) →K：Q+Er O(C+ED) →E： //r是弧度,输入方法FUNCTION 选5Q+Fr O(C+FD) →F：Q+Mr O(C+MD) →M：X+O(ICos(K)+JCos(E)+JCos(F)+ICos(M)) →X： //计算出X坐标Y+O(ISin(K)+JSin(E)+JSin(F)+ISin(M)) →Y： //计算出Y坐标Q+O r(C+D) →Q： //计算出算点方位角,O是字母,r是弧度：(3) BZ (边桩计算子程序)Fix 3： Cls ：X+Z Cos(Q-180+ Z[1]) →U; Y+Z Sin (Q-180+ Z[1]) →V;Locate 1,1,”ZB”： Locate 4,1,Z ： Locate 11,1,”m”： Locate 1,2,”X”： Locate 4,2,U： Locate 1,3,”Y”：Locate 4,3,V： Locate 1,4,”H”： Locate 4,4,G▲ Cls ：X+Z Cos(Q+ Z[1]) →U; Y+Z Sin (Q+ Z[1]) →V;Locate 1,1,”YB”： Locate 4,1,Z ： Locate 11,1,”m”： Locate 1,2,”X”： Locate 4,2,U： Locate 1,3,”Y”：Locate 4,3,V： Locate 1,4,”H”： Locate 4,4,G▲Cls ：Norm 1(4) FS (反算子程序)“KP”?L∶Prog ″SJ″∶Prog ″ZS ″∶LbI 0：Z[2] →W：”X0”?T ∶”Y0”?S ：”HO”?W∶ W→Z[2]：Goto 3： LbI 1：Prog ″SJ″∶Prog ″ZS ″∶LbI 3：Q - 90→U∶(S-Y)cos (U) -(T-X) sin (U) →P ∶If AbsP≥0.001：Then L+P→L∶Goto 1 ： Else Prog ″GC″∶Fix 3∶Cls：L+P→L ： (S-Y)cos (Q) -(T-X) sin (Q) →A ： G- Z[2] →B：Locate 1,1,”KP”： Locate 7,1,L ： Locate 1,2,”DZJL”： Fix 2： Locate 7,2,A： Locate 1,3,”GC”： Locate 7,3,B▲Cls ： If End：Norm 1：Goto 0(5) GC (高程子程序)Prog ″GCSJ″：C/100→C：B+(L-A)C-((L-A)2/(2D))E→G：(6) SJ (路线曲线数据库)If L≤曲线终点桩号 And L≥曲线起点桩号： Then曲线起点桩号→O：曲线终点桩号→H：起点X坐标→X：起点Y坐标→Y：起点方位角→Q：起点半经→P：终点半经→R： If EndIf L≤曲线终点桩号 And L＞曲线起点桩号： Then曲线起点桩号→O：曲线终点桩号→H：起点X坐标→X：起点Y坐标→Y：起点方位角→Q：起点半经→P：终点半经→R： If End……注：半经输入左转-、右转+、直线1045。
5800程序集锦
FX5800计算器公路测量常用程序集一、源程序1.总主程序（1、坐标计算放样程序2、坐标反算程序；3、高程计算查阅程序；4、路基半幅标准宽度查阅程序；5、路基边坡及开挖口放样程序；6、路基标准距离放样；7、桥梁锥坡计算放样程序；8、极坐标计算程序；9、隧道超欠挖计算程序）运行后输入1~9数子则选择1至9的程序，返回时，在桩号输入-1,返回选择选择计算类型。
输入-2,返回选择线路。
坐标计算中输入-3,则显示本段曲线要素。
程序名：0ZCXLbI 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 9LbI 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 BLbI 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＂: ＂XO＂?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=＂:Lcoate 6,4,H-Z[9] ◢＂ I=＂:Locate 6,4,I◢ Goto DLbI 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 ELbI 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]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto G:Prog＂KM＂:? D:Prog＂THB＂:Prog＂XY＂:Prog＂JS＂:Prog＂H＂:0→M: ＂M0＂?M:Fix 2:H-M→T: ＂ TW=＂:Locate 6,4,T◢ Go to H:LbI 7:Prog＂DX＂:LbI I:Prog＂QX＂:0→D: ＂LD:Z-,Y+＂? D:Abs(D) →R: ＂LR＂?R: ＂Z0＂?Z: D→Z[6]:R→Z [7]:Z→Z[8]:LbI J:0→Y: ＂L0:SZ+,DZ-＂?Y:Y=-1=>Goto 0:Y=-2=>Goto I:Prog＂ZP＂:Goto J:LbI 8:Prog＂DX＂:LbI K:?X:X=-1=>Goto 0:X=-2=>Goto 8:?Y:Prog＂JS＂:Goto K:LbI 9:Porg＂DX＂:LbI L:Prog”QX”:LbI M:2→F:90→Z[1]: ＂KM＂?Z:Z=-1=>Goto 0:Z=-2=>Goto L:Z=-3=>Goto X: Prog＂SD1＂: 0.5→A:“CQHD＂?A:“X0＂?X:＂Y0＂?Y:0→M=＂M0＂?M:M→Z[8]:A→Z[15]:Prog＂5SD＂： Goto M:LbI X:Mat F◢ Goto 02、次程序:路基开挖边线及填方坡脚线放样程序（输入填方放宽值、大概桩号及测量坐标、地面标高计算出偏移距离、桩号、距中距离、填挖高度）程序名：3FBXProg”THB”:D→P:Prog”GD”:If D<0:Then 0.75-L→D:Goto H:Else L-0.75→D:Goto H:IfEndLbI H:Prog“H”:H-0.03-Z[4] →Z[4]: Prog “W1”:If Z[4]<0:Then –Z[4] →G:Goto W:Else Z[4] →G:Goto T: LbI W:Z[8]+Z[9] →A: If G>A:Then Goto 1:Else If G>Z[8]:Then Goto 2:Else Goto 3:IfEnd:LbI 1:L+Z[10]+Z[11]+Z[12]+(G-A)×Z[7]+Z[9]×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 2:L+Z[10]+Z[11]+(G-Z[8])×Z[6]+Z[8]×Z[5] →S:Goto Z:LbI 3:L+Z[10]+G×Z[5] →S:Goto Z:LbI T:L+Z[17]→T:If G>Z[15]:Then (T+Z[16]+(G-Z[15])×Z[14]+Z[15]×Z[13])→S:Goto Z:Else (T+G×Z[13])→S:Goto Z:LbI Z3.次程序3.隧道超欠挖值计算放样程序（输入隧道线路，大概桩号、输入衬砌厚度、测量三维坐标，计算准确桩号及位置、计算欠超挖值）程序名：5SDProg”KM”:Prog“THB”: D→Z[13]:0→D:Prog“H”:Cos(Z[10]) ×Z[4] →E: H+Z[5] →Z[5]: H+Z[7] →Z[7]: E+ Z[5] →Z[10]:If Z[8]>Z[10]:Then Goto R:Else Goto S:IfEnd:LbI R:√((Z[13]-Z[9]) 2+(Z[8]-Z[5]) 2 )- Z[4]-Z[15] →L:Goto L:LbI S:Z[4]-Z[6] →S:√(S 2-(Z[7]-Z[5]) 2 )×S÷Abs(S)→T:Abs(Z[13]-Z[9])-T→T:√(T 2+(Z[8]-Z[7]) 2 )- Z[6]-Z[15] →L:Goto L:LbI L: Fix 2:” L0=”: Locate 6,4,L◢Prog”ZD”:“ H0=”: Locate 6,4,Z[8]-H◢4：极坐放样计算程序(计算放样点至置仪点方位角及距离)程序名：JSX：Y：Z[11]→K：Z[12]→L：Pol(X-K, Y-L):IF J<0:Then J+360→J:IFEnd:Int(J)+0.01Int(60Frac(J))+0.006Frac(6 0Frac(J)) →J: Fix 4:” FWJ=”: Locate 6,4,J◢F ix 3:” S=”:Locate 6,4,I◢5．路基宽度子程序6：路基标准半幅宽度计算程序(对于设计有加宽渐变的有用，如路基宽度无变化，则把此程序直接输入半幅宽度值至L)程序名： GD1→S: Prog “G1”:Z-C→E:(B-A)*E/S+A→L:6．坐标计算次程序（ＴＨＢ）程序名：THBIf Q=2:Then Goto J: Else 1÷P→Ｃ：(P-R)÷(2HPR)→Ｓ：180÷Π→E：If F=1:Then Abs(Ｚ－0) →W：Prog "Ａ"：Ｇoto 2:Else Ｘ→I：Ｙ→J：Prog ＂Ｂ＂：Ｏ＋Ｗ→Z：Ｄ→Ｄ：Ｇoto 2: IfEnd:LbI J: If F=1:Then Prog "Z"：Ｇoto 1:Else Prog ＂ZX＂：Ｇoto 2: IfEnd:LbI 1:I+D×COS(Z[2]+Z[1]) →X: J+D×Sin(Z[2]+Z[1]) →Y: LbI 27. 线元法正算子程序(Ａ)程序名：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+Q E(1-K)W(C+(1-K)WＳ))) →Y：G+QEW(C+WＳ)→Ｚ［２］：X+Ｄcos（Ｚ［２］+ Z[1]）→Ｘ： Y+Ｄsin（Ｚ［２］+ Z[1]）→Ｙ8. 线元法反算子程序(Ｂ)程序名：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 Goto 1：Else W+Ｄ→W:Goto 0: IfEnd:←┘Lbl 1:0→D：Prog "Ａ"：(J-Y)÷sin(Ｚ［２］+90) →D9. 交点法正算子程序(Z)程序名：ZH2÷R÷24-H∧(4) ÷2688÷R∧(3)→A:H÷2-H∧(3) ÷240÷R2→B:(R+A)tan(Abs(P) ÷2)+B→T:O-T→C:C+H→L:L+ΠR×Abs(P) ÷180→N:N-H→E:P÷Abs(P) →W:0→M:If Z<C:Then Z-O→S:G→Z[2]:Goto 2: IfEnd: If Z≥N:Then Z-N+T→S:G+P→Z[2]:Goto 2: IfEnd: If Z≥E:Then N-Z→S:Prog “HX”:G+P→S:S-WK→Z[2]:U+(T-A)Cos(S)-WBSin(S)→I:V+(T-A)Sin(S)+WBcos(S)→J:Goto 3: IfEnd: If Z>L:Then 180(Z-L+0.5H) ÷R÷Π→S :H÷2-H∧(3) ÷240÷R2+Rsin(S)→A:H2÷R÷24-H∧(4) ÷2688÷R∧(3)+R(1 -Cos(S))→B:R→M:G+WS→Z[2]:Goto 4: IfEnd:Z-C→S:Prog “HX”:G+WK→Z[2]:LbI 4:U+(A-T)cos(G)-WBsin(G)→I:V+(A-T)Sin(G)+WBcos(G) →J: Goto 3:LbI 2:U+Scos(Z[2])→I:V+Ssin(Z[2]) →J: LbI 310. 交点法缓和段转化子程序(HX)程序名：HXS-S∧(5) ÷40÷R2÷H2+S∧(9) ÷3456÷R∧(4) ÷H∧(4)→A:S∧(3) ÷6÷R÷H-S∧(7) ÷336÷R∧(3) ÷H∧(3)+S∧(11) ÷42240÷R∧(5) ÷H∧(5)→B:90S2÷Π÷R÷H→K:RH÷S→M11. 交点法反算子程序(ZX)程序名：ZXZ:0→D:LbI 0:Prog “Z”:Pol(X-I,Y-J):J-Z[2] →J:Isin(J) →S:Icos(J) →I:If Abs(I)<0.1:Then Z+I→Z:S→D: Goto 2:Else Goto 1: LbI 1:If M=0:Then Z+I→Z:Goto 0:Eles Pol(M-WS,I):(JMΠ)/180→I:Z+I→Z:Goto 0:IfEnd LbI 212．高程计算子程序（H）程序名：HP rog “S1”:C-T→F:Z-F→S:C+T→E:G-TI→Q:If T=O:Then Q+SI→H:Goto 0:Else If Z<F:Then Q+SI→H:Goto 0:Els e If Z≤E:Then Q+SI+S2÷2÷R→H:Goto 0:LbI 0:H:If D=0:Then Goto I:Else Prog “I”:H+V→H:Goto I:LbI I13.高程超高计算程序（I）程序名：IIf Z[3]=1:Then Prog “I1”:Goto 1:Else Prog “I2”:Goto1: IfEnd:LbI 1: If W=1:Then:Goto Z:Else:Goto X: IfEndLbI Z:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×((N-M)×(Z-C)÷S+M)→V:Goto 2:IfEnd:LbI X:If S=0:Then Abs(D)×M→V:Goto 2:Else Abs(D)×(((3((Z-C)÷S)2-2((Z-C)÷S)∧(3))×(N-M))+M)→V:Goto 2:IfEnd:LbI 2:Abs(D)→E:V÷E→I:I(E-K)→V14．导线点子程序（DX）程序名：DXZ[11] →K:Z[12] →L:“X Z”?K:”YZ”?L:K→Z[11]:L→Z[12]15．线路选择子程序(线路选择输0时。
5800计算器程序辛普森公式程序(通用)解析
1．”XLZB”：坐标计算主程序↓（与预留的自由变量数有关！）｛O｝∶O“1.ZX 2.BX”↓Q=0↓LbI 1↓O≠1=>｛QG｝:Q”L”:G”XJJD”:△（显示“L”输入边桩宽度，均为正值，显示“XJJD”输入边桩测点与线路中线上点的连线与线路中线上点的切线的夹角，如右法线为90度，左法线为270度或者-90度，其余同理。
）Prog”ZB”:X=X+Rec(Q,T+G):Y=Y+J:”X=”：X ：Pause 0 :”Y=”：Y▲(X”X=”：Pause 0 : Y”Y=”：▲)”T=”：T→DMS▲(T”T=”▲)Goto 1(注释：括号内写法为Casio4800P计算器显示方式) 2．“ZB”:坐标计算子程序↓（与预留的自由变量数有关！）（与预留的自由变量数有关！）｛K｝:↓LbI 2↓F=0：△（注释：方框内数字27[第七段]为断链的段号；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[W+3a]+Z[W]+F：K≥Z[W+3a] =>K≤E =>V=W－1：≠＞W=W+1: Goto 2△△↓K－F：△（方框为断链点的后桩号，即去向桩号，如遇断链，依此增加即可！）S=K－Z[V+3a+1]:P=(Z[V+2a+1] －Z[V+a+1])÷Z[V+1]:I=P*S:C=Z[V+4a+1]:D=Z[V+a+1]:J=C+(I+2D)*S*90/π:L=1：X=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Y=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:T=J:３．“SJK.DAT”:数据库主程序Mcl:Defm(20+7a):Z[21]=?:……Z[21+3a]=?:Z[21+4a]=?:Z[21+5a]=?:Z[ 21+6a]=?:Prog”SJK”:(输入程序时，Defm后须换成相应数据，a为曲线元段数)4．“SJK”：数据库计算子程序a=?:V=20:T=0:B=?(a:曲线元段数；B:等分数，最少为2，一般为4就可以满足要求)LbI 0↓F=0：（注释：方框内数字6[第七段减一]为断链的段号减去1所得；方框内数字39.903为断链值，短链输“+”，长链输“-”;如遇断链，依此增加即可！）E= Z[V+3a+1]+Z[V+1]+F:Z[V+3a+2]=E：S=Z[V+1] :I=Z[V+2a+1] －Z[V+a+1]:C=Z[V+4a+1]: D=Z[V+a+1]:J= C+(I+2D)*S*90/π:Z[V+4a+2]=J:L=1：Z[V+5a+2]=Z[V+5a+1]+S*(CosC+CosJ+4∑（Cos (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Cos (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:Z[V+6a+2]=Z[V+6a+1]+S*(SinC+SinJ+4∑（Sin (C+((L+0.5)I/B+2D)×(L+0.5)*90*S/B/π),L,0,(B-1)）+2∑（Sin (C+(L*I/B+2D)*L*90*S/B/π),L,1,(B-1)))/6/B:V=V+1:T=T+1:T＞a-2 =>”END OF THE PROGRAM”▲△Goto 0为了使程序能够计算连续多个曲线元的坐标，减少计算过程中的数据输入，可利用CASIOfx-4800/4850P计算器提供的扩展变量设置曲线元数据库，假定某一段线路包含有a个曲线元，则可设置曲线元数据库如下表所示：曲线元数据库设置表扩展变量Z[1]~Z[20]用作自由变量，可以用来弥补字母变量的不足，此项设置可自由选择！因此，数据库的起点本程序从Z[21]开始，表中Z[21]~Z[21+3a]以及Z[21+4a]、Z[21+5a]、Z[21+6a]需预先置入，表中空白部分由程序自动计算生成。
5800程序
一、FX5800计算器的积分程序（正反算、全线贯通、新线路）终极版ZHUCHENGXU 主程序"1.ZS,2.FS" ?→Q输入1正算，输入2反算“NEW=0,OLD≠0”?ZIf Z=0:Then “X0=”?A:“Y0=”?B:“C0=”?C:“1/R0=”?D:“1/RI=”?E:“SP=”?F:“EP=”?G:Ifend:Q=2=>Goto 2Lbl 1 :“KM=,<0 Stop”?H:H<0=>Stop:“PJ=”?O:“PY=”?LLbl Z:Z=1=> Prog“01”：Z=2=> Prog“02”选择数据库文件，可增加H- F→X:0.5(E-D)÷(G-F)→NC+(XD+NX2)*180÷π→P：P<0=>P+360→P：P>360=>P-360→PA+∫(cos(C+(XD+NX2)*180÷π),0,X)+Lcos(P+O)→UB+∫(sin(C+(XD+NX2)*180÷π),0,X)+Lsin(P+O)→VQ=2=>Goto 4：Cls：Fix 3"Xn=":Locate 4，1，U："Yn=": Locate 5，2，V：“FWJ=”：P▶DMS◢Norm 2：Cls：Goto 1Lbl 2:“XD=,<0,STOP”？R：R<0=>Stop:“YD=”？S“KMDG=”？H ：90→O:0→L：Goto Z （H线路范围内的任意桩号）Lbl 4:Pol（R-U，S-V）：J<0 => J+360→JWhile abs（Icos（J-P））≤0.001:P-J>180=> J+360→J： P-J<-180=>P+360→P:IF P-J>0:then -I→L:else I→L：ifendGoto 3: Whileend：H+Icos（J-P）→H:Goto ZLbl 3:Cls：Fix 3“KM=”: Locate 4，1，H：“PY=”: Locate 4，2，L◢Norm 2：Cls：Goto 201（数据库子程序）If H<=第一曲线终点桩号：then 第一曲线起点X→A：第一曲线起点Y→B：第一曲线起点方位角→C：起点曲率→D：终点曲率→E：起点桩号→F：终点桩号→G：return：ifend……………IF S<171961.1406:THEN2881008.2613→U:485399.0830→V:171831.1404→O:104 ° 16 ′ 26.65 ″ →A:130→L:-10^45→P:-11000→R: Return:IfEnd ↙程序说明：1、该程序可以计算任意线形（直线、圆曲线、缓和曲线、不完整曲线）任意桩号的坐标（正算，输入1），也可根据坐标计算该点到线路的距离及垂足桩号（反算，输入2）；2、（NEW=0，OLD≠0）？如果要计算的点为数据库线路中的点，则输入数据库编号（以整数1、2、3…代替输入）；如果在数据库中没有要计算线路的数据，则输入曲线要素X0：曲线起点X坐标；Y0：曲线起点Y坐标；C0:曲线起点方位角；R0-1、 RI-1:曲线起点、终点曲率，直线为0，曲线左偏输入负值，右偏输入正值；SP、 EP：曲线起点桩号，终点桩号；KM：待求点桩号；PJ：正斜交的设定；PY：偏中距离，线路上的点输入0，右偏输入+值，左偏输入-值；3、正算显示坐标及切线方位角；反算输入线路的任意桩号（此桩号越接近真实值计算速度越快）、待求点坐标，显示待求点桩号及偏中距离；4、正算子程序为积分公式编写而成；反算子程序为角度趋近的方法编写，计算速度有点慢。
5800程序使用说明
现有三条线形：运行“XIAN YUAN FA”标题部分标题注释输入部分K（ZH）?起点里程0+EXE K（HZ）?终点里程（即线元起点里程+线元长度）150+EXE X(ZH)?起点坐标X 1000+EXE Y(ZH)?起点坐标Y 5000+EXE FWJ(ZH)?起点切线方位角86°32′45.06″+EXE起点半径（直线）1045+EXE 起点半径（圆曲线）-150+EXE 起点半径（缓和曲线）1045+EXE 起点半径（直线）1045+EXE 起点半径（圆曲线）-150+EXE程序名：XIAN YUAN FA程序题解：线元法。
可以对任何线元（直线、圆曲线、缓和曲线）5800程序使用说明程序使用过程：1、直线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45度=150；2、圆曲线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45.06″长度=150；半径=500，左偏；3、缓和曲线：起点坐标X=1000，Y=5000,起点切线方位角=86°32′45.0元长度=150，缓和曲线前半径=0，缓和曲线前半径=300，右偏。
R(ZH)?R(HZ)?起点半径（缓和曲线）300+EXE 1.ZS 2.FS1、正算2、反算1+EXE XC?测站点X坐标(可以输入0)0+EXE YC?测站点Y坐标(可以输入0)0+EXE K×+×××？待求点里程20+EXE RJ OR 0 TO K?转角，默认为90°；输入0时，返回待求点里程。
EXED?偏距（0为中桩、左-，右+）假如为左边桩，距中12.25M -12.25+EXEK×+×××=20里程20EXE Z=-12.25偏距（距中12.25M处左边桩）EXE X＝1013.433K=20,D=-12.25处X坐标EXE Y=5019.226K=20,D=-12.25处Y坐标EXE FWJ=78°35′5.53″K=20,D=-12.25处切线方位角EXE按EXE返回继续运算改点的其他偏距，按0返回计算下一个桩号EXE 1.ZS 2.FS1、正算2、反算2+EXE X?待反算X坐标1013+EXE Y?待反算Y坐标5019+EXE注意：以下部分为直线算例R(HZ)?X＝1013Y=5019K×+19.749Z=-11.832待反算X坐标待反算Y坐标反算出结果：里程、偏距按EXE返回继续反算其他点位EXE运行“ZHI XIAN”标题部分标题注释输入部分K（ZH）?起点里程0+EXE X(ZH)?起点坐标X 1000+EXE Y(ZH)?起点坐标Y 5000+EXE X(HZ)?终点坐标X 1000+EXE Y(HZ)?终点坐标Y 5500+EXE I=计算出两点间距离EXE FWJ= 90°0′0″计算出两点间方位角EXE程序题解：直线。
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.2 线路边桩座标的计算程序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.2 红线交点座标的计算程序6.3 直线与曲线交点座标的计算程序6.4 道路不等宽时曲线元素的计算程序6.5 垂足座标的计算程序6.6 圆曲线敷设的计算程序6.7 缓各曲线敷设的计算程序6.8 极座标放线的计算程序6.9 单一水准路线的近似平差计算程序6.10 丘地有关项目的计算程序公路中、边桩坐标计算及放样程序功能：任意半径曲线中桩、任意交角边桩坐标计算放样、中桩切线方位角、任意点置仪放样、两点间距离计算、两点方位角计算。
卡西欧4800系列 计算器程序
十一．BI DAO XIAN（闭导线）1．用途：该程序是“闭合导线平差”的计算程序。
2．程序数学模型：3．程序清单：Defm 40：X“X0”：Y“Y0”：F“A0”：N“UNKNOWN POINT”：N=N+1↙I=0：E=0：C=0：Lbl 0 ↙I=I+1：{L，D}：Z[2I-1]=L：Z[2I]=D：E=E+L：C=C+D：I<NGoto 0 Δ B“FW”=E-180（N-2）◢R：A“FR”=RN◢B=-B÷N：I=1：Z[2N+1]=F：Lbl 1 ↙I+I+1◢F=F+Z[2I-1]：F180F=F+180：F=F-180 Δ F360F+F-360 ΔZ[2N+2I-1]“A”=F+（I-1）B◢I<NGoto 1Δ I=0：G=0：H=0：Lbl 2 ↙I+I+1：Z[2I-1]=Z[2I]cosZ[2N+2I-1]：G=G+Z[2I-1]：Z[2N+2I]=Z[2I]sin Z[2N+2I-1]：H=H+Z[2N+2I]：I<N Goto 2 Δ G“FX”◢H“FY”◢I“F”=（G2+H2）◢K=I÷C◢U=-G÷C：V=-H÷C↙I=0：Lbl 3 ↙I+I+1◢Z[2I-1]=Z[2I-1]+U Z[2I]：Z[2N+2I]=Z[2N+2I]+V Z[2I]：X=X+ Z[2I-1]◢Y=Y+ Z[2N+2I]◢I<N-1Goto 3：“END”4．程序说明：X0，Y0，A0——已知的起始点的纵、横坐标及起始边的坐标方位角。
UNKNOWN POINT——待求未知点的个数。
L，D——观测的导线各左转角及平距。
FW，R，FR——导线角度闭合差、角度闭合差的允许误差的系数及允许误差值。
I，A——各条导线边序号及其坐标方位角。
FX，FY——坐标增量ΔX、ΔY的闭合差。
F，K——导线全长闭合差、导线全长相对闭合差。
5800程序功
5800程序功能目的：输入水准仪现场前视读数快速计算出该点的实测高程！程序名: HCLbI A:Cls:“HS”?X:“BM-H”?Y:X+Y→S:Cls:“SXG=”:Locate 6,1,S◢LbI B:Cls: “QS”?D:If D≥0 :Then Goto D:Else Goto C:IfEn d↙LbI C: M→Y:Abs（D）→X: Goto A↙LbI D:S-D→M: Cls:“QS=”: “HC=”Locate 6,1,D: Locate 6,2,M◢Goto B↙符号说明：HS? 输入水准点上之后视读数BM-H?输入水准点之设计高程SXG= 显示视线高程QS?输入该点的前视读数（注：当有转点时则转点的前视读数输入后显示HC为转点的高程，紧接着当再次提示QS?时将转点所测的后视读数以负值输入连续两次EXE即可显示转点后的视线高程，即可进行转点后的正常计算！）QS=显示所输入的该点的前视读数HC=显示计算所得的该点的实测高程5800本程序由一个主程序JD和三个子程序（JDA、JDB、JDC）构成，运行时只需运行主程序即可！本程序适用于单交点对称型、不对称型、无缓和曲线单圆曲线型一个交点范围内（含交点前后有直线段时）的曲线要素核对和坐标计算，手工输入要素，对设计图纸的“直线、曲线转角表”中交点数据进行复核验证，并为线元法程序提供起点坐标起点切线方位角等数据！当然本程序也可单独逐交点输入进行放样计算用！鉴于5800计算器的空间和以上所述本程序的主要目的，故此程序不修改为数据库版本！需要的自行修改结合XY框架自己修改为数据库反算程序等！主程序名：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=＂:＂LY=＂: 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[6])tan(A÷2)＋(Z[7]－Z[6])÷sin(A)→S↙Z[9]+ (R+Z[7])tan(A÷2)＋(Z[6]－Z[7])÷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=曲线总长LY=圆曲线长E=曲线外距K(ZH)=直缓点桩号K(HY)=缓圆点桩号K(QZ)=曲中点桩号K(YH)=圆缓点桩号K(HZ)=缓直点桩号X= Y=待求点的坐标（其中：L-左 Z-中 R-右）QXFWJ(Z)=待求点的中桩切线方位角（当求中桩坐标时显示）S= F=测站至待求点的水平距离、方位角（其中L-左 Z-中 R-右）一、CASIO fx-5800P输入法（2010年3月4日）2006年10月，卡西欧公司在停止fx-4800P/ fx-4850P编程计算器CPU 芯片生产的同时，推出了其升级产品fx-5800P。
卡西欧5800坐标正反算万能程序
卡西欧5800坐标正反算万能程序CASIO5800计算器程序曲线任意里程中边桩坐标正反算(CASIO fx-4800P计算器)程序一、程序功能本程序由一个主程序(TYQXJS)和两个子程——正算子程序(SUB1)、反算子程序(SUB2)序构成，可以根据曲线段——直线、圆曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标，对该曲线段范围内任意里程中边桩坐标进行正反算。
另外也可以将本程序中核心算法部分的两个子程序移植到其它相关的程序中，用于对曲线任意里程中边桩坐标进行正反算。
本程序也可以CASIO fx-5800P计算器计算器上运行。
二、源程序1.主程序(TYQXJS)"1.SZ => XY"："2.XY => SZ"：?N："X0"? U："Y0"? V："S0"? O："F0"? G："LS"? H："R0"? P："RN"? R：?Q←┘1÷P-> C：(P-R)÷(2HPR) -> D：180÷π->EIf N=1：Then Goto1：Else Goto 2：IfEndLbl 1：？S：？Z：Abs(S-O) -> W：Prog "SUB1"："XS"：X◢"YS"：Y◢Goto 1←┘Lbl 2：？X：？Y：X-> I：Y->J：Prog "SUB2"："S"：O+W-> S◢"Z"：Z◢Goto 22. 正算子程序(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+ZcosF-> X：Y+ZsinF-> Y3. 反算子程序(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)cosL-(I-X)sinL-> Z：If Abs(Z) <0.0000001：Then Goto1：Else W+Z ->W：Goto 0：IfEndLbl 1：0 ->Z：Prog "SUB1"：(J-Y)÷sinF-> Z三、使用说明1、规定(1) 以道路中线的前进方向（即里程增大的方向）区分左右；当线元往左偏时，Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。