卡西欧5800计算器如何编程

公路平/竖曲线放样、坐标反算桩号GL3－25PHF程序fx-5800p

F1 GL3－25PHF （K+，XY ≠ 0）输入其他进入反算。输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。H0=0时，不计算竖曲线。

L1 Z［1→Q:Lbl 8:“GL3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto 8:IfEnd:0→V:0→N:“K，X≠0”？V:V≠0=>Goto 0:“X0”？C:“Y0”？D:“H0”？H:“X1”？E:E－C→I:“Y1”？F:F－D→J:Prog“1”:“T0O=”:J▲DMS◢“D0=”:I◢ 放样点桩号(Kp+)斜交角(ApO)距离(Sp)输入 143

L2 Lbl 0:Z［1→Q:If V=0:Then 90→Z:“Kp+”？K:“ApO”？Z:“Sp”？B:Goto 4:IfEnd:If N≠－2:Then“Xp”？C:“Yp”？D:1T→P:1→G:IfEnd:Lbl 7:C－Z［4+G→I:D－Z［Q+4+G→J:Prog“1”:If N=－2:Then I→P:J→Z:G→B:Goto 4:IfEnd:If P－I>0:Then I→P:J→Z:G→B:IfEnd:If G<Q-2:Then G+1→G:Goto 7:IfEnd:Lbl 4:1→G:Z［3］→W:Lbl 5:Z［1→Q

L3 Q-2→N:Z［3→A:Z［4+G→X:Z［Q+4+G→Y:Z［2Q+3+G→R:R=0 =>1μ→R:Z［3Q+1+G→L:Z［3+G］－X→I:Z［Q+3+G］－Y→J:Prog“1”:J→O:Z［5+G］－X→I:Z［Q+5+G］－Y→J:Prog“1”:J→U:Prog“P”

L4 If V≠0:Then If G<B:Then G+1→G:W+I－2T+S→W:Goto 5:IfEnd:Prog“F”:Goto 0:IfEnd:N=0=> Goto 0:N=－1=>Goto 5:H=0=>Goto 0:1→G:Lbl 6:Z［1→Q

L3 Q-2→N:Z［4Q+1→A:Z［4Q+G→W:Z［5Q+G→U:Z［6Q-1+G→R:Z［5Q-1+G］－U→I:Z［4Q-1+G］－W→J:Prog“1”:J→O:Z［5Q+1+G］－U→I:Z［4Q+1+G］－W→J:Prog“1”:Prog“H”:N=－1=>Goto 6:Goto 0

F2 CS3－25PHF （参数输入完成时，可取消此子程序） I输入0时进入转点号N(N－P为平曲线、N－H为竖曲线，均输入1至8、15、25的整数)及其参数的输入(平曲线K、X、Y、R？、L)、（竖曲线K、H、R）输入桩号、坐标或高程、园半径、缓和曲线长度。

L1 ？I:If I=0:Then 172→DimZ:1→N:IfEnd:Z［1→Q:Lbl 8:“GL3-25PHF=”？Q:Q→Z［1］:IF Q<3 Or Q>25:Then Goto 8:IfEnd:While N≤Q:“N－P”？N:N＞Q=>Goto 1:If N=2:Then ？K:K→Z［3］:IfEnd:？X:X→Z［3+N］:？Y:Y→Z［Q+3+N］:N=1 Or N=Q=>Goto 0:？R:R→Z［2Q+2+N］:？L:L→Z［3Q+N］:Lbl 0:WhileEnd:Lbl 1:1→N

L2 While N≤Q:“N－H”？N: N＞Q=>Goto 8:？K: K→Z［4Q-1+N］:？H:H→Z［5Q-1+N］:N=1 Or N=Q=> Goto 2:？R:R→Z［6Q-2+N］:Lbl 2:WhileEnd

F3 P

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:L÷2－L^3÷240÷R2+(L2÷24÷R+R)tan(5M→T:Lbl 1:RMπ÷180+L→S:V≠0=>Goto 0:If K<A－T:Then“K+!”:K◢0→N:Goto 0:IfEnd:If G≥N And K>W－T+S:Then“K+!”:K◢0→N:Goto 0:IfEnd:If K>W－T+S:Then G+1→G:W+I－2T+S→W:－1→N:Goto 0:IfEnd:Prog“5” 警告桩号(K+!)的输入已超出范围。 测站点、放样点间的距离(Dp)、方位角(TpO)输出。放样点的坐标(Xp,Yp,Hp0)输出。

L2 X+TA－MA+NJ→X:Y +TJ－MJ－NA→Y:X－C→I:Y－D→J:Prog“Z1”:“TpO=”:J▲DMS◢“Dp=”:I◢“Xp”:X◢“Yp”:Y◢1→N:Lbl 0

F4 1

L1 If I=0 And J=0:Then 180→J:Else Pol(I,J:J<0=>J+360→J:IfEnd

F5 2

L1 O－J→M:M<0=>M+360→M:If M<180:Then 180－M→M:1→Q:Else M－180→M:－1→Q:IfEnd

F6 3

L1 90(2I－L)÷π÷R→A:RsinA+L÷2－L∧(3)÷240÷R2→M:L2÷24÷R+R(1－cosA→N:A－J→A:M－QBcosA→M:QN－BsinA→N

F7 4 (缓和段计算：可适当选取2至6项，当无缓和曲线时，可仅选1项，以减少字节。)

L1 RL→A:I－I∧(5)÷40÷A2+ I∧(9)÷3456÷A∧(4)－I∧(13)÷599040÷A∧(6)+I∧(17)÷175472640÷A∧(8)－I∧(21)÷78033715200÷A∧(10→M

L2 I∧(3)÷6÷A－I∧(7)÷336÷A∧(3)+I∧(11)÷42240÷A∧(5)－I∧(15)÷9676800÷A∧(7)+I∧(19)÷350096640÷A∧(9)－I∧(23)÷1880240947200÷A∧(11→N: 90I2÷π÷A－J→A:M－Qbcos(A→M:QN－Bsin(A→N

F8 5

L1 K－W+T→I:Z→J:If I<S－L:Then If I≤0:Then I+Bcos(Z→M:BsinZ→N:Goto 2:IfEnd:Q=1=>180－Z→J:If I≤L:Then Prog“4”:Else Prog“3”:IfEnd:Lbl 2:O→J:Goto 3:IfEnd:S－I→I

L2 If I≤0:Then I－Bcos(Z→M:－Bsin(Z→N:Else Q≠1=>180－Z→J:Prog“4”:－N→N:IfEnd:U→J:Lbl 3:cos(J→A:sin(J→J

F9 H （不需要计算中桩高程时，可取消此子程序） 警告桩号(K+!)的输入已超出范围

L1 Prog“2”:If M=180:Then 0→T:Goto 1:IfEnd:Rtan(5M→T:Lbl 1:If K< Tsin(O+A:Then“K+!”:K◢Goto 0:IfEnd:If G≥N And K>W－Tsin(O:Then“K+!”:K◢Goto 0:IfEnd:If K>W－Tsin(O:Then G+1→G:－1→N:Goto 0:IfEnd

L2 U+Tcos(O+Rcos(O－90Q→M:W+Tsin(O+Rsin(O－90Q→N:K－W－Tsin(O→L:If L≤0:Then U+(T+L÷sin(O))cos(O→H:“Hp0=”:H◢Goto 0:IfEnd:M+Q√(R2－(K－N)2)→H:“Hp0=”:H◢Lbl 0 中桩高程输出（Hp0=）

F10 F （不需要反算时，可取消此子程序） 转点半径为0时可能输出的两种桩号、偏离距离（K1+=、K2+=、Sp1=、Sp2=）情况

L1 Z－O→I:U－Z→J:IF Abs(I≤90:Then If T≤Pcos(I:Then W－Pcos(I→K:－Psin(I→B:If Abs(J≥90:Then Goto 9:Else“K1+=”:K◢“Sp1=”:B◢IfEnd:IfEnd:IfEnd:IF Abs(J≤90:Then If T≤Pcos(J:Then W－2T+S+ Pcos(J→K:－Psin(J→B:If Abs(I≥90:Then Goto 9: Else“K2+=”:K◢“Sp2=”:B◢Goto 0:IfEnd:IfEnd:IfEnd:If Pol(C－X－Tcos(O)，D－Y－Tsin(O))<Pol(C－X－Tcos(U)，D－Y－Tsin(U)):Then－1→H:Else 1→H:IfEnd:(R+L2÷24÷R)÷cos(5M→N:O－Q(90－5M→J:C－X－Ncos(J→I:D－Y－Nsin(J→J:Prog“1”

L2 cos-1((I2+N2－P2)÷2÷I÷N→N:If N≤5M－90L÷π÷R:ThenW－T+5S+HπNR÷180→K:Q(R－I→B:Goto9:IfEnd:If L=0:Then－2→N:G+H→G:Goto 0:IfEnd:“ZHY－100!－YHZ”◢0→B:0→Z警示准备进入缓和段的桩号反算，计算约需100秒。

L3 If H=－1:ThenW－T→E:E+L→G:ElseW－T+S→E:E－L→G:IfEnd:Lbl8:Z+1→Z:(E+G)÷2→F:Z=1=>E→K:Z=2=>F→K:Z=3=>G→K:Prog“5”

L4 C－X－TA+MA－NJ→I:D－Y－TJ+MJ+NA→J:C－I→M:D－J→N:Prog“1”

L5 If Z=1:Then I→P:Goto 8:IfEnd:If Z=2:Then I→V:Goto 8:IfEnd:If Abs(E－G>1μ:Then If P>V And P>I:then F→E:0→Z:Goto 8:IfEnd:If I>P And I>V:Then F→G:0→Z:Goto 8:IfEnd:IfEnd:F→K:I→B:J→V

L6 If H=－1:Then X+Tcos(O)－M→I:Y+Tsin(O)－N→J:Else X+Tcos(U)－M→I:Y+Tsin(U)－N→J:IfEnd:Prog“1”:J→O:V→J:Prog“2”:－HQB→B:Lbl 9:“K+=”:K◢“Sp=”:B◢N=0:Lbl 0 反算桩号、偏离距离输出（K+=、Sp=）

全站仪后方交会（两已知点，任意设站，观测两边多余一角可计算测站点坐标）

F D1�6�1D2–XY

L1 “X1”？C:“Y1”？D:“X2”？E:“Y2”？F:(E–C）2+（F–D）2→M:“D1”？S:T“D2”:“Ap°”？U

L2 cos -1（（M+S 2–T 2）÷2÷S÷√(M→V:cos -1（（M+T 2–S 2）÷2÷T÷√(M→W

L3 180–U–V–W→P:If Abs(P≥0°0°30°:Then“Μp°！”:P▲DMS◢IfEnd:1÷tan（V→V:1÷tan（W→ W

L4 （CW+EV+D–F）÷（V+W→X:（DW+FV+E–C）÷（V+W→Y:“Xp=”:X◢“Yp=”:Y

两线交点、坐标变换

F L×L�6�1XY–AB

L1 “0–1–2=>L×L�6�1X–A�6�1A–X”？I:If I=0:Then Lbl 0:“XA-1”？C:“YA-1”？D:“XA-2”？E:“YA-2”？F:C–E→K:D–F→L:“XB-1”？O:“YB-1”？P:“XB-2”？Q:“YB-2”？R:O–Q→M:P–R→N

L2 （K（OR–QP）–M（CF–ED））÷（ML–KN→X:“Yp”:（LX+CF–ED）÷K→Y:“Xp”:X◢“Yp”:Y◢Goto 0:IfEnd

L6 If I=1:Then“X0”？C:“Y0”？D:“T°=”？J:Lbl 1:“Xp=”？E:“Yp=”？F:（E–C）cos(J)+（F–D）sin(J)→A:（F–D）cos(J)–（E–C）sin(J)→B:“Ap=”:A◢“Bp=”:B◢Goto 1:IfEnd

L7 If I=2:Then:“X0”？C:“Y0”？D:“T°=”？J:Lbl 2:E“Ap=”:F“Bp=”:C+Ecos(J)–Fsin(J→X:“Xp=”:X◢D+Esin(J)+Fcos(J→Y:“Yp=”:Y◢Goto 2:IfEnd

坡顶开挖线放样程序

F P�6�1D�6�1×–– H0、H0×为任意点（下点）的设计、地面高程，S0×、H1δ为坡度方向到另外1点（上点）的距离、高程，i设计的坡度，上点平移⊿Sp距离后到达坡顶开挖线。

L1 “H0=”？H:“H0×=”？M:“S0×=”？P:“H1δ=”？N:“i=”？I:P（（M–H）÷（M–N+P×I）–1→S:B=P+S:“◢Sp=”:S

地形图等分线程序

F H1-0�6�15-H2

L1 Lbl 0:“H1”？A:“H2”？B:“S0”？S:（A–B）÷S→K

L2 10A–10 Int A→L:If L-5≥0:Then L–5→L:01L÷K→E:“S1=”:E◢05÷K→F:“Sn=”:F◢Int（KS÷05→G:“N=”:G◢Goto 0:IfEnd

方格网4点求格交点高程程序

F H1-H4�6�1�6�1S0-3

L1 “H1”？A:“H2”？B:“S01”？K:“SP1”？L: A+(B-A)L÷K→E:“H3”？C:“H4”？D:“S02”？M:“SP2”？N: C+(D-C)N÷M→F:“S03”？O:“SP3”？P:E+(F-E)P÷O→H:“H=”:H

方格网2点求格交点高程程序

F H1－H2�6�1�6�1S0－2

L1 “H1”？A:“H2”？B:“S0”？L:“S1”？M:A+(B-A)M÷L→H:“H=”:H

一般的科学计算器，只能计算＋－× ÷、平方开方、三角函数等，且只能独立计算，无法将这些计算串联成一个统一的计算过程

casiofx系列编程计算器则能通过变量赋值，将复杂的计算步骤串联起来，使用各计算式的结果进行多次递进计算。

说简单点，只要将各计算步骤的多个计算式编写为程序，运行该程序时只需输入已知条件，计算器自动处理程序的中间计算过程，并显示最终计算结果。

举个简单的例子，坐标正算，已知两点坐标O(A,B)、P(C,D)，计算OP的坐标方位角和O到P的距离。

如果是一般的计算器，要先算①arctan((D-B)/(C-A)) ，判断计算结果在哪个象限，再处理为坐标方位角；再算②((C-A)^2+(D-B)^2)^05 ，得到两点距离

到了5800上，只需编写程序：Pol((D-B),(C-A)) ，这个公式综合了①、②两步，再不需要繁琐的数字、计算符输入，运行时只需输入A、B、C、D四个坐标数，即可得到坐标方位角和距离。下一次计算时，坐标变换后只需更改数值即可再计算，方便快捷

当然，将这样的两步计算编程还是看不出5800的强大。在路桥逐桩坐标的计算中，先要计算曲线要素，再计算主点桩号，再判断要计算点在曲线上的位置、计算缓和曲线上的局部坐标，再根据方位角增量计算点位坐标……这样多个步骤、计算结果反复调用、附带条件判断的复杂计算，只要将每一步都转化为程序语句，即可一键算完。

简而言之，5800计算坐标，其实也是根据书上的理论公式进行的，只不过，我们先要将理论公式编写为5800程序。5800的编程语言有专门的教材，你可以买来学习一下

其实就是将公式代码化，然后设定参数和计算步奏，最后加以整合，进行运算，一般最简单的，编程步奏就是1、设定参数（单位、小数位、数据库建立）2、设定计算式，显示结尾（回车结尾不显结果、直角三角显结果）3最后以END结束，这是基本的，往后就相应的添加就行了

我以ABC，给你讲一下，要算A+B=C,在计算器中就输入

FiX 3："A="A:"B="B↙

"C=":A+B->C◢

"END"↙