Fx-4850程序大全（好东西）

附闭合导线计算 １、 源程序

F1 A1

L1 Defm 4N-2

L2 N:A:B:Pol(C-A,D-B):W<0=>W=W+360?T=W

L3 K=0=>M=T+180:E=C:F=D:GOTO 0: ≠>E:F:Pol(G-E,H-F):W<0=>W=W+360?M=W

L4 Lbl 0:L=0:U=0:I=0:R=2:Z[1]=T

L5 Lbl 1:{J}:Z[R]+360: ?R=N+1=>GOTO 2: ≠>R=R+1:GOTO 1 L6 Lbl 2:P”JB”=(Z[N+1]-M) ?Q”JL”=40√N?R=2 L7 Lb1 3:{S}:Z[N+R]=S:L=L+S?

L8 Z[2N-1+R]=Rec(S,(Z[R]-P(R-1)/N)):U=U+V

L9 Z[3N-2+R]=W:I=I+W:N=R=>GOT 4: ≠>R=R+1:GOTO 3 L10 Lbl 4:P=U+C-E?Q=I+D-F? L11 G”1:M”=L/Pol(P,Q) ?R=2

L12 Lbl 5:X”XI”=C+Z[2N-1+R]-PZ[N+R]/L?Y”YI”=D+Z[3N-2+R]-QZ[N+R]/L?

L13 R=N=>GOTO 6: ≠>R=R+1:C=X:D=Y:GOTO 5 L14 Lbl 6:”END”

２、 说明

（1）、本程序可计算附和导线和闭合导线的坐标，计算的坐标系经过角度闭合差及坐标增量闭合差分配后的结果，能显示角度闭合差、增量闭合差及导线全长的相对精度；

（2）、输入的观测角为导线的左角。

3、程序代号注释

N?导线观测角的折角数；

A、B?导线起始点所后视的已知点的坐标x,y； C、D?导线起始点（即设站点）的坐标x,y； E、F?导线终点（已知点）的坐标x,y；

G、H?在导线终点设站观测前视已知点的坐标x,y； T?起始站后视至起始点的方位角； M?终点站至前视已知点的方位角； J?观测的左角值； JB?角度闭合差；

JL?允许的角度闭合差，程序中是以40√n计算的，如和要求的不一致，可改一

下L6语句中的有关部分。 S?所测导线的边长； L?边长的累计数； U?△x的累计数； I?△y的累计数； P?x坐标的闭合差； Q?y坐标的闭合差；

K?转换符，当K=0时为计算闭合导线，当K≠0（任意数）时为计算附和导线。

-- 作者：YLS

-- 发布时间：2012-3-25 20:46:08 --

面积计算（多边形法）

1、源程序 F1 A2

L1 N:P=A:Q=B:S=0:I=2

L2 Lbl 0:{C,D}:F=(A+C)(B-D):S=S+F L3 A=C:B=D:I=I+1 L4 I≦N=>GOTO 0?

L5 F=(C+P)(D-Q):S=S+F:S”W”=S/2◢

３、 说明：

（1）、本程序适用于所测断面为多边形闭合图形的面积计算。

（2）、折点坐标按顺时针方向输入，得出的面积为正，否则为负，绝对值是一样 的。

４、 程序代号注释

A、B—计算面积起始点纵横坐标； C、D—各转折点的纵横坐标； S—代表计算过程中的有关面积；

S“W”—为图形最后需要的计算面积。 N—多边形的折点个数。

体积计算

1、源程序 F1 A3

L1 J=0:H=0:WG

L2 Lbl 0:{NAB}:NAB:P=A:Q=B:S=0:I=1

L3 Lbl 1:{CD}:S=S+(A+C)(B-D)/2:A=C:B=D:I=I+1 L4 IGOTO 1?S=S+(C+P)(D+Q)/2◢

L5 J≠1=>GOTO 2: ≠>L=G-H:V=(R+S+√（R*S))*L/3◢?W=W+V◢ L6 Lbl 2:R=S:H=G:J=1:{G}:G:GOTO 0 2、说明

（1）、程序可自动计算每一断面面积，当进行到第二个断面时就会显示出1~2断

面间的体积，而后再进行第三断面面积计算，并累计出1~3断面之间的体 积。。。。。。，直到最后得出需算断面间的总体积。

（2）、坐标输入时，应按顺时针方向逐个输入折点坐标，这样得出的面积为正

值，一个桩号折点输入完后，程序自动进入下一桩号的输入状态。 3、程序代号注释 G—断面桩号；

A、B—断面起算折点的坐标； C、D—断面上其他折点坐标； S—断面面积； L—断面间距；

V—本断面与前一断面之间计算出的体积。 N—G桩号断面上的折点个数； W—本断面之前所有体积之和。

-- 作者：YLS

-- 发布时间：2012-3-25 20:46:41 --

在任意控制点上测定直线上的任意位置与高程数据计算 1、源程序 F1 A4

L1 A”X”:B”Y”:E”Z0”:C”X1”:D”Y1”:F”Z1”:G”H0”:I L2 Lbl 0:{LJV}:LJV

L3 K= tanF:T=tan(E+L)

L4 X”XP”=(B-D-AT+KC)/(K-T) ◢Y”YP”=B+TX-AT◢ L5 S=√（（X-A）2+（Y-B）2） L6 H=G+StanJ+I-V◢GOTO 0

2、说明

（1）、本程序功能：在已知断面上某一点的坐标及断面方向的方位角后，可直接

将仪器架设在邻近控制点上，为测设各个断面上的点提供数据，不需要一定要将

仪器架设在断面桩上测设断面，而所测的断面点均有坐标和高程。 （2）、基本原理：如图所示，A、B为已知控制点，其方位角为Z0，断1-断2为断

面线控制桩，其方位角Z1可以算出，仪器架设在A点，后视B点，转角L1、L2、

L3。。。。。。，这时A~1、A~2，。。。。。。的方位角也为已知，根据解析

几何，两方位直线相交，可解出1#，2#。。。。。。的坐标及其与A的距离。

3、程序代号注释 A、B—测站点坐标 C、D—断面桩点坐标 L—观测断面点的水平角 J—观测断面点的竖直角 V—觇标高

S—测站至断面测点的距离 H—断面测点的高程 I—仪器高

Z0—测站至后视点的方位角 Z1—断面线的方位角