坐标正算与反算、施工与大地坐标换算程序（4800P）
Deg：Fix4：J=0：C“X=”：D“Y=”：R“R=“：
Lbl 0：｛Q｝：Q“1 Z 2 F 3 A 4 B”：Q=1＝＞Goto 1 △ Q=2＝＞Goto 2 △ Q=3＝＞Goto 3 △ Q=4＝＞Goto 4 △
Lbl 1：｛SR｝：S“S=”：R“R=”：A=Rec (S，R)+C：“X=”：Pause 0:B=J+D：B“Y=”▲ Goto 0 △
Lbl 2：｛AB｝：A“X=”： B“Y=”：S=Pol (C－A，D－B)：“S=” : Pause 0: R=J+180：R“R=”▲ Goto 0 △
Lbl 3：｛XY｝：X“X=”：Y“Y=”：A=（X－C）cos R+(Y－D) sin R:“A=” ：Pause 0:B=（Y－D）cos R－(X－C) sin R:B“B=” ▲ Goto 0 △
Lbl 4：｛AB｝：A“A=”：B“B=”：X=C+A cos R－B sin R：“X=”：Pause 0:Y=D+A sin R+B cos R：Y“Y=” ▲ Goto 0 △
封闭凸多边形面积计算程序(CASIO fx-4800p）
程序名（MJ）
Lb1 0：S=0↓
Lb1 1：｛XY｝：A“X0”：B“YO”：C“X1”：D“Y1”↓
I=0：J=0：Pol（C-A，D-B）：G=I：H=J：↓
Pol（X-A，Y-B）：C=X：D=Y：K=I：N=J：M=0.5GKsinAbs（N-H）：S=S+M▲
Goto 1
算例：1点，X=10.000，Y=20.000
2点，X=500.000，Y=600.000
3点，X=700.000，Y=400.000
4点，X=800.000，Y=300.000
5点，X=650.000，Y=100.000
6点，X=550.000，Y=50.000
调用并运行程序MJ：
X0？ 输入1点X坐标
Y0？ 输入1点Y坐标
X1？ 输入2点X坐标
Y1？ 输入2点Y坐标
X？ 输入3点X坐标
Y？ 输入3点Y坐标
S=107000 （1、2、3点围成的面积）
X？ 输入4点X坐标
Y？ 输入4点Y坐标
S=160500 （1.2.3.4点围成的面积）
X？ 输入5点X坐标
Y？ 输入5点Y坐标
S=218500 （1.2.3.4.5点围成的面积）
X？ 输入6点X坐标
Y？ 输入6点Y坐标
S=230500 （1.2.3.4.5.6点围成的面积）
.........
.........
以此类推
说明：
1.本程序建立在预先知道构成多边形各点顺序的基础上,只适应凸多边形
2.起算时，任意指定起点(X0、Y0)
3.指定和0号点相邻的1号点(X1,Y1)
4.输入其它点时,均以0号点为基点,饶基线"0点→1点"沿多边形内侧顺时针或逆时针依次输入各点X、Y。
5.面积计算单位为：平方米
FX-4800P计算器在导线测量中的应用.
摘要:本文介绍了FX-4800P计算器在导线测量中的应用.
关键词:附和导线、支导线、平差
一、 概述
导线测量是建立国家平面控制网的方法之一，也可用于工程建设、城市建设的平面控制测量中。在水电、矿山、道路建设中也经常遇到。随着可编程计算器（FX-4800P）在导线测量中的应用。我们根据导线的计算方法，利用FX-4800P可编程功能适时计算出导线点的坐标。在速度、精度、
准确性方面都能满足要求。
二、 附和导线的计算
附和导线就是起始于一个已知控制点，而终止于另一个已知控制点的导线。
计算公式：
1、 角度闭合差及其分配
fβ=Σβ-(αBM-αNA)-N*180
Vβ=- fβ/N
2、 坐标闭合差及其分配
fx=XB’-XB fy=YB’-YB
Vxi=-(Si/ΣS)*fx Vyi=-(Si/ΣS)*fy
3、 计算待定点坐标
Xi=Xi’+Vxi
Yi=Yi’+Vyi
4、 FX-4800P计算程序
其中N为测站数
fix 0:N:fix 3:Defm 60:Prog“X”:A=W:E“XN=”:F“YN=”:“TN=”：M=0:V=0 专业的3S站 https://www.doczj.com/doc/4b11019172.html,
LBI 1:V=V+1:Prog“B”:Z[V]=B:Prog“A”:V=N=>Goto2⊿
Prog”D”:Z[N+V]=D:M=M+D:Goto1
LBI 2:T=O-A:fix0:R”△B”=T*3600◢M“∑D”=M◢T=T/N:R=R/N
P”M0”=√(R*R/N) ◢
fix3：K=0:l=0:V=0:A=W:G=X:H=Y:I=0:J=0
LBI 3:Prog”DB”:V≠N-1=>Goto 3⊿P”⊿X”=E-X◢Q” ⊿Y”=F-Y◢
S=√(P*P+Q*Q):K=P/M:L=Q/M:Z”M”=INT(M/S) ◢
X=G:Y=H:A=W:V=0
LBI 4:Prog”DB”POL(X-G,Y-H):J<0=>J=J+360 ⊿
J”FWJ=” ◢I”D=” ◢X”X=” ◢Y”Y=” ◢
G=X:H=Y:V≠N-1=>Goto 4⊿
LBI 5:“END”
X子程序：X“X=”：Y“Y=”：W“TA=”
B子程序：B=0：FIX4：{B}：B：FIX3：Prog“DEG”
A子程序：A=A+B+360:A<0=>A=A+360⊿A>360=>A=A-360
D子程序：D=0：{D}：D“D=”
XY子程序：REC(D,A):X=I+KD+X:Y=J+LD+Y
专业的3S站 https://www.doczj.com/doc/4b11019172.html,
DB子程序：V=V+1:B=Z[V]+T:Prog“A”:D=Z[V+N]:Prog“XY”
DEG子程序：P=Frac B*100:B=INTB+INTP/60+Frac P/36
三、 支导线的计算
支导线就是从一个已知点出发，既不符合到另一个已知点也不回到原来的点上。支导线没有检核条件，不易发现错误，过不宜采用。
1、计算公式：
Xi+1=Xi+Di*COS(ai)
Yi+1=Yi+Di*SIN(ai)
2、FX-4800P支导线程序
X“X0=”：Y“Y0=”：T“T0=”
LBI 1：E=B：Prog“DEG”:T=T+B+180:T>=360=>T=T-360⊿
X=X+D*COS T◢Y=Y+D*SIN T◢T“TN=” ◢
B=E:Goto 1
以上介绍了导线计算的原理和方法，采用CASIO FX-4800P可编程计算器，使得计算快捷方便、简单，在野外即可完成，有利于提高效率和效益。