5800编程
❶ 5800计算器编程直接跳过结果是什么原因
1、在计算器的左上方按下“SHIFT”，具体如图所示。 2、然后再在计算器的右上方按下“MODE”，具体如图所示。 3、两个按键按下之后就会出现以下的界面选项，其中“1:MthI0”是表示以分数格式显示，“2:LineI0”则是表示以线性格式即小数形式显示，鉴于一直出现分数形式的计算结果，可以知道计算机此时应选择了“1:MthI0”，具体如图所示。 4、在计算机界面下按代表小数格式的“2”，具体如图所示。 5、计算机转换成小数形式，具体如图所示。
❷ 卡西欧5800编程小写的i怎么输
按“shift”键，再按“setup”键，再按向下方向键，然后选择“5”，再选择“1”，就能输“freqon”字符了。
由于5800只在用户公式模式下才能输入英文小写字母、希腊文大、小字母及数字字符下标，在程序模式只能输入大写英文字母，估计程序中某些用作提示字符的小写字母或特殊字符是用其他字符代替的。
按“mode"，然后按“1”，进入comp模式，按“function"，按"6"，按“1”，按“exe"，键执行clrstat命令清除统计存储器。
❸ 学习卡西欧5800计算器编程学习首先该了解什么，学习什么
学习5800计算器编程的基础：1、初等数学和高等数学基本知识（曲线特征、线性、矩阵）；
2、建立计算模型，把测量上具体的一个问题抽象化，找出共同特点，建立相应的数学模型； 3、解算数学方程；
❹ 卡西欧5800编程计算器基础
给你个网站 http://www.celiang.net/celiang/article_list.asp?c_id=48&s_id=249 里面全是卡西欧FX-5800的程序 至于你说的什么基本方法、是指开机后怎么进入编程界面么？5800开机后按MODE键选5→进入后再选1→输入程序名称→点EXE开始编程，程序语言在FUNCTION下拉菜单中能找到、SHIFT+MODE键里有前缀名称、你可以用笔记本把FUNCTION下面的每一个代码记住、使用久了就熟悉了、我以前也这样、而且我还没解除过编程（现在一样），但使用卡西欧的计算器还是得心应手的、希望能帮助到你、（我给的那个网站是土木工程的、也不知道你是不是同行）
❺ CASIO5800计算机编程
一、 坐标计算源程序
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=1÷P：D=(P-R)÷(2HPR)：E=180÷π：N=1=>Goto 1：≠>Go to 2Δ←┘
Lbl 1：{SZ}：SZ：W=Abs(S-O)：Prog "SUB1"：X"XS"=X◢
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(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))：Y=V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))：
F=G+QEW(C+WD)+90：
X=X+ZcosF：Y=Y+ZsinF
3. 反算子程序(SUB2)
T=G-90：W=Abs((Y-V)cosT-(X-U)sinT)：Z=0：Lbl 0：Prog "SUB1"：L=T+QEW(C+WD)：Z=(J-Y)cosL-(I-X)sinL：AbsZ<1E-6=>Goto1：≠>W=W+Z：Goto 0Δ←┘
Lbl 1：Z=0：Prog "SUB1"：Z=(J-Y)÷sinF
二、使用说明
1、规定
(1) 以道路中线的前进方向（即里程增大的方向）区分左右；
当线元往左偏时，
Q=-1；当线元往右偏时，Q=1；当线元为直线时，Q=0。
(2) 当所求点位于中线时，Z=0；当位于中线左铡时，Z取负值；
当位于中线中线右侧时，Z取正值。
(3) 当线元为直线时，其起点、止点的曲率半径为无穷大，以
10的45次代替。
(4) 当线元为圆曲线时，无论其起点、止点与什么线元相接，其曲率
半径均等于圆弧的半径。
(5) 当线元为完整缓和曲线时，起点与直线相接时，曲率半
径为无穷大，以10的45次代替；与圆曲线相接时，曲率半
径等于圆曲线的半径。止点与直线相接时，曲率半径为无穷大，
以10的45次代替；与圆曲线相接时，曲率半径等于圆曲线的半径。
(6) 当线元为非完整缓和曲线时，起点与直线相接时，曲率半径等于设计规定的值；
与圆曲线相 接时，曲率半径等
于圆曲线的半径。止点与直线相接时，曲率半径等于设计规定的值；与圆曲
线相接时，曲率半径等于圆曲线的半径。
2、输入与显示说明
输入部分：
1. SZ => XY
2. XY = > SZ
N ? 选择计算方式，输入1表示进行由里程、边距计算坐标 ；输入2
表示由坐标反算里程和边距。
X0 ？线元起点的X坐标
Y0 ？线元起点的Y坐标
S0 ？线元起点里程
F0 ？线元起点切线方位角
LS ？线元长度
R0 ？线元起点曲率半径
RN ？线元止点曲率半径
Q ？ 线 元左右偏标志(左偏Q=-1，右偏Q=1，直线段Q=0)
S ？ 正算时所求点的里程
Z ？正算时所求点距中线的边距(左侧取负，值右侧取正值，
在中线上取零)
X ？反算时所求点的X坐标
Y ？反算时所求点的Y坐标
显示部分：
XS=××× 正算时，计算得出的所求点的X坐标
YS=××× 正算时，计算得出的所求点的Y坐标
S=××× 反算时，计算得出的所求点的里程
Z=××× 反算时，计算得出的所求点的边距
❻ 卡西欧5800计算器的详细编程
其实就是将公式代码化，然后设定参数和计算步奏，最后加以整合，进行运算，一般最简单的，编程步奏就是1、设定参数（单位、小数位、数据库建立）2、设定计算式，显示结尾（回车结尾不显结果、直角三角显结果）3最后以END结束，这是基本的，往后就相应的添加就行了
我以ABC，给你讲一下，要算A+B=C,在计算器中就输入
FiX
3："A="?A:"B="?B↙
"C=":A+B->C◢
"END"↙
❼ 卡西欧5800计算器的编程语言有哪些
你是想了解函数吧
1.
Norm 1 指数显示
Norm 2 小数显示
2.
?→x 只显示 ？
字符+?→x 显示 字符+？
？x 显示 x?
“字符”？x 显示 字符+？
有→则不显示该变量当前值
3.（判断表达式） 语句1 : 语句2。。。
如果判断表达式为真（或非零），则不跳过语句1.
如果判断表达式为假（或是零），则会跳过语句1.
4. If...then…else…ifend
如果语句为真，则执行then（不执行else）,然后执行ifend.
如果语句为假，则执行else（不执行then）,然后执行ifend.
5. Break 中断语句
中断For，Do，While循环，并从该循环的下个命令起继续运行
6. Dsz
使控制变量递减一，在变量的值为零时执行转移
7. Isz
Isz<变量>:<语句1> <语句2>，变量应为A~Z
以 1 为增量逐次增加变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2
8. Cls
Dsz<变量>:<语句1> <语句2>。变量应为A~Z。
以1 为减量逐次减小变量的值，当变量的值不等于0 时，执行语句1，否则执行语句2
9. Locate 定位显示语句
句法 1：Locate <列数>, <行数>,<数值>
句法2：Locate <列数>, <行数>,<表达式>
句法3：Locate <列数>, <行数>, "字符串"
fx-5800P 的屏幕最多可以显示4 行、16 列字符，因此定位语句中的列数值应为大于等于1、小于等于16 的整数，行数值应为大于等于1、小于等于4 的整数。
10. Lbi n ~ Goto n Goto n~Lbl n
无条件转移至 Lbi n 位置
11. Getkey
返回与上次按键相对应的代码,Getkey=
12. DO ~ LpWhile循环语句
Do <语句块> LpWhile<条件>
先执行语句块，然后测试条件，条件为真时重复执行语句块，否则执行<条件>后的语句。无,论条件是否为真，语句块至少被执行一次。
13. Pol
计算两坐标点之间距离,坐标为（4，4）,与原点的距离就是POL（4，4）=4√2
14. Abs
求绝对值
15. Fix
取整数函数Fix(Rnd*11) ,取0 ~ 11的随机整数
16. Rnd
随机函数
17. 角度单位设置语句
Deg：设置角度单位为十进制度，按 键输入Deg。执行该语句后，状态行显示。
Rad：设置角度单位为弧度，按 键输入Rad。执行该语句后，状态行显示。
Grd：设置角度单位为哥恩，按 键输入Grd。执行该语句后，状态行显示。
18. Dim
定义变量
19. RCL
键面命令，Rcl+A 显示变量A的当前值
20. STO
键面命令,STO+A 给变量A赋值，显示→A
21. INS
键面命令,切换键标记样式，覆盖与插入切换
22. ←
键面命令，角度度分秒格式与小数格式转换
23. ▶DMS
常将反三角函数计算出的十进制角度转换成六十进制度分秒形式，cos-1(x)▶DMS
24. Pol
键面命令，将直角坐标转换为极坐标，Pol（△x,△y）
25. Rec
键面命令，将极坐标转换为直角坐标，Rec(r,θ)
26. CALC
键面命令，对一个表达式的变量代入不同的值
27. And，Or，Not
<条件1>And<条件2>，<条件1>与<条件2>同时为真时为真。
<条件1>Or<条件2>，<条件1>与<条件2>有一个为真时为真。
Not<条件>，<条件>为假时为真。
28. If~Then~Else~IfEnd
句法1：If <条件> Then <语句块>IfEnd
条件为真时执行Then 后的语句块，否则从IfEnd 后开始执行
句法2：If <条件> Then <语句块1>Else<语句块2>IfEnd
条件为真时执行语句块1，否则执行语句块2，然后执行IfEnd 后的语句
29. For~To~Step~Next
句法1：For <始值> <控制变量>To<终值> <语句块> Next控制变量的取值从始值开始，步长为1，重复执行语句块，直至终值为止。一般始值小于终值，如果始值大于终值，则不执行语句块而是直接执行Next 后的语句。
句法2：For <始值> <控制变量>To<终值>Step<步长> <语句块> Next
它与 For~To~Next 句法的功能相同，唯一区别是增加了步长语句Step
30. While~WhileEnd 循环语句
句法：While <条件> <语句块>WhileEnd
先测试条件，当条件为真时执行语句块，然后再测试条件，条件为真时重复执行语句块，直到,条件为假时执行WhileEnd 后的语句结束循环
31. Prog~Return 调子程序语句
句法：Prog "subfilename"
按键 输入Prog。
fx-5800P 的子程序是独立于主程序的程序，它也保存在计算器内存中，主程序与子程序的变量都是全局的，子程序执行完成后通过Return 语句返回主程序，继续执行主程序中Prog 语句后的语句.
32. Return 返主程序语句
在子程序中应至少有一条Return 语句，当执行到该语句时，控制执行返回调用该子程序的主程序。主程序中一般不应有Return 语句，若在主程序中使用了Return 语句，程序执行到该语句时会停止执行。
33.Stop 终止程序语句
程序被Stop 语句终止后就不再执行任何语句，通常用于调试程序设置临时中断点，程序调试通过后，将其删除。
34. 清除语句
① Cls：清除屏幕显示的文字、表达式及计算结果。
② ClrStat：清除统计串行List X，List Y，List Freq。
③ ClrMemory：清除字母变量A~Z 与数值答案寄存器。
④ ClrMat：清除矩阵Mat A~Mat F 与矩阵答案寄存器Mat Ans
的内容与维数。
⑤ ClrVar：清除内置公式变量及用户自定义公式变量的值。
其中后四个语句为按 (CLR)键调出清除语句菜单选择。
额外变量 Z[n]的数值没有专门的语句命令清除，只能执行语句0 DimZ 清除。
35. 数值显示格式设置语句
Fix
入Fix。执行该语句后，状态行显示FIX。
Sci
输入Sci。执行该语句后，状态行显示SCI。
Norm
ENG：其下有EngOn 与EngOff 两个语句，EngOn 为打开工程格式显示；按
键输入EngOn，执行该语句后，状态行显示ENG；EngOff 为关闭工程格式显示，按
键输入 EngOff，执行该语句后，状态行的ENG 消失。
36. END
结束程序运行
❽ 如何学习5800计算器编程
1，熟悉卡西欧5800里面所有牵扯到测量的功能。x0dx0a2，fx-5800里面的编程语言basic的一些语法，并结合测量的例子来说明。这样跟容易今后上手。x0dx0a3，对一些例子的分析，包括思路和语法讲解。x0dx0a4，在实际工作中，用到最多的函数和程序的分享。x0dx0a最后声明一点，一定要动手，就是看着文章，手里面要拿个5800，要不然一切都是白扯。这系列fx-5800教程是默认为会用fx-5800输入一些基本的字符的。这些都可以参考fx-5800的说明书。电子版fx-5800说明书下载。x0dx0a这里在灌输一个编程思想。x0dx0a 编程要有个思路，x0dx0a 1、输入部分。x0dx0a 2、计算部分。x0dx0a 3、输出部分。x0dx0a比方说要正算方位角，首先知道A（x,y）,b(m,n) 这是输入部分。x0dx0a计算部分：pol（x-m,y-n）x0dx0a输出部分：i,j （i=两点的距离，j=两点的方位角）x0dx0a这就是编程。测量上的编程，把它转化为5800程序就是x0dx0a1 "x"?x:"y"?: "m"?m:"n"?n x0dx0a2 x0dx0a3 pol(x-m,y-n)x0dx0a4 x0dx0a5 i_：j_
❾ 怎样学习卡西欧5800编程啊
1，一般5800自带的程序，说明书里都有说明，研究一下就知道了。
2，但,要用到别的程序，比如道路坐标计算、道路高程之类的程序，就要需要编程，编好后，直接运行主程序就OK了。
3，如想知道如何更进一步编程，请另外向高手提问。
【资料】
《卡西欧fx-5800P计算器与道路施工放样程序》详细介绍了卡西欧fx-5800P编程计算器的基本操作、编程方法与技巧，汇总了道路坐标计算的相关
计算理论和公式，编制了分别适用于道路主线、立交匝道的平面坐标放样计算程序，以及一套比较实用的道路施工放样综合程序。书中的程序吸收了目前最新的编程
方法与技巧，内容从易到难、从简到繁，程序功能从单一到综合，层层递进。书中最后的道路施工放样综合程序已经具备了路线三维参数查询、坐标反算、平面放样
计算、路基填挖施工放样计算、隧道超欠挖计算等多种功能，适用于道路、立交匝道、桥梁涵洞、隧道以及其它道路构造物的现场放样计算。
❿ 卡西欧5800计算器如何编程
公路平/竖曲线放样、坐标反算桩号GL.3－25PHF程序fx-5800p
F1 GL.3－25PHF （K+，XY ≠ 0?）输入其他进入反算。输入0时进入测站点、后视点坐标(X0,Y0,H0)、(X1,Y1)输入及两点距离(D0)、方位角(T0)输出。H0=0时，不计算竖曲线。
L1 Z［1→Q:Lbl 8:“GL.3-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 CS.3－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:“GL.3-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:“Z.H.Y－100!－Y.H.Z”◢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:0.1L÷K→E:“S1=”:E◢0.5÷K→F:“Sn=”:F◢Int（KS÷0.5→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