由本站论坛　lxjlxl　提供

我在这里也发了不少的4800程序,希望大家关注我我的邮箱是:
liuxiaojian003@yahoo.com.cn
liuxiaojian003@163.com
欢迎大家使用我的程序,如使用是出现问题请联系我.
如果大家有须求其它的程序,可以找我编写.(如一个程序计算.附合\闭合导线平差及坐标.....一个程序计算.直线,圆曲线,缓和曲线坐标计算,,,一个程序计算,高程计算的竖曲线直线)不过这是要收费的.

极座标放样
LBI 1:{EF}:A”XO”:B”YO”:C”X1”:D”Y1”:E”XA”:F”YA’
G”X1A”=E-A:H”Y1A”=F-B:I’X12’=C-A:J”Y12”=D-B
K”A1A”=tan-1(H÷G):L”A12”= tan-1(J÷I)
M”JN”=√(G2+H2) ▲
T”JD”=180-Abs(L-K) ▲
POL(A-E,B-F) ▲
J<0=>J=360+J△Z=J▲
GOTO 1
注:
O为仪点,A为放点

偏角法
LBI 0:R:A:Q”QD”
{G}
I=Abs(G-Q)
A[1]=90×I÷(πR) ▲
C[1]=2RsinA[1] ▲
GOTO 0

直线座标
Q”QD”:E”XA”:F’YA’:A”QHJ”:O”L=-90,R=+90”:G”FXD”:B”KD”
I=Abs(G-Q)
X=E+IcosA▲
Y=F+IsinA▲
P=A+O
X”LR”=X+BcosP▲
Y”LR”=Y+BsinP▲
注:
KD,:为向左右的宽度         左为-90,右为90
QD,为起点桩号     XA,YA为起点桩号座标  QHJ;方位角

直线计算高程
LBI 0:{XE}:Y”QD”:D”QDGC”:U”MD”:X”FDLC”:C”PD”;F”SZDGC”:A”HS’:E”QS”:U<X=>GOTO 0△X<Y=>GOTO 0△
LBI 1:B=Abs(X-Y)
L”SJGC”=B×C+D▲
R”SXG”=A+F▲
E=0=>M”DS”=R-L▲
GOTO 0
≠>N”GC”=R-E▲
GOTO 0
注:
QS:为前视为0时到读数

闭合导线座标计算
LBI 0:{CE}:X”XO”:Y”YO”:D”FVJ”:C”JN”:E”L,R=360-L”
GOTO 1
LBI 1:E=0=>F=D▲
≠>F=D+E-180△GOTO 2
LBI 2:G=Rec(C,F) ▲
D=F▲
GOTO3
LBI 3:X=I+X▲
Y=J+Y▲
GOTO 0