最好的4850程序

常用工程测量计算程序

（适用于CASIO fx-4800P系列计算器）

南昌铁路局

工程（集团）第二工程公司

1#主程序（中线、边桩坐标计算）（0 ZBJS）A=Z[1]:B=Z[2]:C=Z[3]:D=Z[4]:E=Z[7]:F =Z[8]:G=Z[31]:H=Z[32]:M=Z[33]:N=Z[34 ]:{ABCDEFGHMN}:A＂XJD=＂B＂YJD=＂C＂LJD=＂D＂R=＂E＂L O=＂G＂XJ1=＂H＂

YJ1=＂M＂XJ2=＂N＂YJ2=＂F＂

D=＂:Z[1]=A:Z[2]=B:Z[3]=C

:Z[4]=D:Z[7]=E:Z[8]=F:Z[31]=G:Z[32]= H:Z[33]=M:Z[34]=N:X=A-G:Y=B-H:Prog ＂D＂:Z[5]=P:X=M-A:Y=N-B:Prog ＂D＂:Z[6]=P:Z[46]=Z[6]- Z[5]:Z[46]>0 Prog ＂11＂: Prog ＂12＂

R=Z[4]:Z[11]=180Z[7]÷（2πR）:M=Z[7]÷2-Z[7]∧3÷（240R2）:P=Z[7]2÷（24R）-Z[7]∧4÷（2688R∧3）:

＂T＝＂:T=M+(R+P)tan (Z[10]÷2)

＂L＝＂:L=2Z[7]+(Z[10]-2Z[11])Rπ÷180＂E＝＂:E=(R+P)÷cos (Z[10]÷2)-R K=Z[5]-180:K<0K=K+360 Z[12]=Z[1]+Tcos K:Z[13]=Z[2]+Tsin K:K=Z[6]:Z[14]=Z[1]+Tcos

K:Z[15]=Z[2]+Tsin

K:Z[16]=Z[3]-T:Prog＂M＂:Prog ＂T＂:Q=1:{Q}

:Q＂O UT X-Y O R δ-S＂:G=0:{G}:G＂0OR 5＂:Lb1 1:Q=2Prog ＂W＂: Lb1

2:R=Z[4]:G≠0Prog ＂U＂:

U=Z[18]:F=Z[8]:{UF O}:U＂LP=＂F＂

D=＂O＂O=＂:Z[18]=U:Z[8]=F: Z[7]≠

0Goto8:

z[18]-z[35]<0Prog ＂Y＂:Goto 9

Z[18]-Z[39]>0Prog ＂Y＂:

Prog ＂N＂Goto 9 Lbl

8:Z[18]-Z[35]<0Prog

＂Y＂:Goto 9 Z[18]-Z[39]>0Prog ＂Y＂:Goto 9 Abs (Z[18]-Z[16]

-0.5L)≤Abs (0.5L-Z[7])Prog ＂N＂: Prog ＂O＂ Lbl

9:Q=1Prog ＂X＂: Prog ＂V＂

G≠0Dsz G: U=1

U=1:{U}:U＂G O O N＂:U=1Goto 2:

V=1 Q≠2Goto 3 {V}:V＂MOVE STATION＂

:V=1Goto 1: V=0 Lbl 3: ＂END＂

1#主程序（坐标反算）(1 ZBFS) {ABCD}:A＂X1=＂B＂Y1=＂C＂X2=＂D＂

Y2=＂:X=C-A:Y=D-B:Prog

＂D＂:S=I:P＂δ=＂

S＂L=＂

2#主程序（面积计算）(2 MJJS)

G=0:A=X:B=Y:C=A:D=B:Lbl

1:{XY}:X<0G=G+AD-BC:A=Abs G÷2:A＂A=＂A=0.0015A:A＂AA=＂

G=G+XD-YC:C=X:D=Y:Goto 1

3#主程序（直线交点坐标计算）(3 ZXJD) AB:A=C E=A:F=B:G=C:{ABC}:H＂D＂A＂E＂B＂F＂C＂G＂D＂H＂

DEF:L=E-G:M=AD-BC:K=A-C:X=(LM-KEH+KG F)÷(KF-HK+LD-LB)

Y=(M-XD+XB)÷K

4#主程序（点到直线距离及方位角计算）

(4 DDZX)

ABCD:K=C-E:L=K÷

(F-D+E-20):X=(KB-ALK+DE-CF)÷

(D-F-KL)

Y=LX-AL+B

X=X-A:Y=Y-B:Prog＂D＂:P＂δ=＂I＂L=＂

5#主程序（曲线要素）(5 QXYS) {ARC}:A＂a0=＂R＂R=＂C＂L0=＂:B=(C÷2R)(180÷π):P=C2÷

(24R):M=C÷2-C∧3÷(240R2):T=(R+P)tan (A÷2)+M

L=πR(A-2B)÷180+2C E=(R+P)÷cos (A÷2)-R Q＂p＂=2T-L

6#主程序（导线坐标计算）(6 DXZB)

Lbl 1: A=Z[1]: B=Z[2]:

C=Z[3]:{ABC}:A＂X0=＂:B＂Y0=＂:C＂

a0=＂: Z[1]=A: Z[2]=B:Z[3]=C:Lbl

2:{DE}:D＂ZJ-R=＂E＂

L=＂:F=Z[3]+180-D:X=Z[1]+Ecos F

Y=Z[2]+Esin F

Z[1]=X:Z[2]=Y:Z[3]=F:W=1:{W}:W＂G O

O N＂:W=0Goto 1: Goto 2

11#子程序

Z[46]<180Z[10]=Z[46]:Z[9]=1: Z[10]=360-Z[46]:Z[9]= -1

12#子程序

Z[46]>-180Z[10]= -Z[46]:Z[9]=

-1: Z[10]=360+Z[46]:Z[9]=1

A#子程序（此子程序可不在计算器中输入）Lbl 1:{U}:U＂S=＂:J=L÷2:U>J ＂FINISH＂:Prog ＂7＂: U≤C X=Y-Y∧5÷(40R2C2) Y=U∧3÷(6RC) Goto 1: V=(U-C)÷R×180÷π+B:X＂X1＂=Rsin V+M Y＂Y1＂=R(1-cos V)+P Goto 1

B#子程序

K=Int(60Frac P):U=P-Int P-K÷60:P=Int P+ E -2K+0.36U

C#子程序