卡西欧fx-5800P计算器
参考线程序
傻瓜教程
文/白云
面，按2：RUN//运行，选择相应程序名即可。

）
命名一个叫CKX的名字，然后按EXE键，选1：COMP。

如下图：
然后输入以下代码：
Lb1 0:C1s:“K”？K：“A”？A：“B”？B：“C”？C：“D”？ D(回车）
Po1（C-A,D-B）⊿
IfJ≥0：ThenJ→T:E1seJ+360→T:IfEnd（回车）
Lb1 1：Fix4：“X”?X(回车）
X=0⇒Goto0：“Y”？Y:Po1（X-A,Y-B）→S:IfJ≥0：
ThenJ→Q:E1seJ+360→Q:IfEnd：“L=”:K+cos（Q-T）×S⊿
“O=”:sin(Q-T)×S⊿
Goto1(回车）
解释： K为起点桩号（A,B）(C,D)分别为直线L上的两个点，（X,Y）为P点坐
再如，要输入Lb1。

先按FUNCTION键（函数），再按3：PROG键。

在弹出来的菜单中选择7：Lb1。

估计最易输错的，莫过于倒数第四排的“⇒”，这里重点介绍一下：
按FUNCTION键（函数），再按3：PROG键。

按上下键，翻页至第3页，选3: ⇒。

在了
点里程，可以输入0。

2
第二步输入点A的X坐标，此时的X坐标用，用字母A代替，即A→X
1
计算机会默认给用户显示一个，如果按回车EXE，就代表使用默认值。

）这里要特别注意，当弹出默认值时，没有任何提示（或者，机算机是这样提示的：如上图左上角所示的“K？”。

它代表计算机问用户：K是不是等于0？若不是，请输入新值吧！）让用户输入数值。

这时候不用管，直接输入数值即可。

输入数值的具体操作，请按上图红色字体提示操作。

同理，第二步输入B→Y
的坐标（同样会默认显示一个），回车
1
的坐标，回车
第三步输入C→X
2
的坐标，回车
第四步输入D→Y
2
如下图所示：显示AB两个点之间的距离r，AB直线的方位角θ。

【注意这个θ，一定要让它显示为角度，不能是弧度！否则在对中杆立在直线的第三、四象限（假设以A点为坐标原点）就会出现问题！】
第五步输入全站仪现场测的点P
的X坐标，回车。

2
同理，第六步输入全站仪现场测的点P
的Y坐标，回车。

2
到直线AB的垂足到起点A之间的距离L，回车。

（注意，如果是先输入显示点P
2
到直线AB的垂足到起点B之间的距的B点坐标，后输入A点的坐标，那么：显示点P
2
离L）
重复第五步！换一个地方，让O值继续等于
了。

将两个点拉上小线，洒上白灰或者弹上墨线就完成放线任务了。

有兴趣的同学可以验证一下P
点数据的正确性。

1
补充说明:当方位角θ显示不为角度，点
错误显示：顶部显示为R fix。

本程序也不是万能的，当在第五步、第六步，把
时，本程序就不工作了。

容易犯错的地方：在编的程序里，要退出的话，应该按任何提示。

编程高手请绕道！
全站仪中自带参考线程序的请绕道！。