fx-4800p计算程序

CCCC

B“0，9” : M“BM+HS” ◢

P“△H” :T“△Z” :Fixm:Lb1 0: ﹛Z﹜:Z＞1E3A=Int(Z1E3) : ≠Z=Z+1000A“KZ” △ Prog“QX1”

:V=1:E=1.5:D=-1:X=X+P:Z＜F-SGoto 1 △Z＞Q+UGoto 1 △“e=” :B≠1 Prog“0” △

Lb1 1:B=0Goto 4 △B=9Goto 9 △△

Lb1 4: ﹛C﹜: C“QS1” :W=X+0.0000VED: Prog“1” :M-W-C◢

﹛C﹜: C“QS2” :W=X+0.0300VED: Prog“1” :M-W-C◢ ﹛C﹜: C“QS3” :W=X+0.1125VED: Prog“1” :M-W-C◢ Z=Z+T : Goto 0

LbI 9:{L,c}:w=x+(L100)VED:Prog“1”:M-W-C◢ Z=Z+T:Goto 0

GC

{0}:0“Z0,Y1”:G=I:Z≥KG=J△X=H+G(Z-K) 100:V= I-J:T[7]=Abs VR200:N=Abs VV:Abs(k-z)O

V=Abs YY:E=Abs Y：D=1:0=0.0D=-1△Z≤F E=(E+1.5)(Z-F+S) S-1.5△Z≥QE=(E+1.5)(Q-Z+U) 

1

U-1.5△Y>0Goto 1 △ D=-1Goto 0 △ Goto 2 △ LbI 1:D=1Goto 0△LbI 2:Abs E≤1.5E=1.5△ LbI 0:E≤FGoto 3 △ Z≥QGoto 3 △ Goto 4:LbI3 :VED“Ie” ◢ LbI 4:VED ◢

1

W=Int (1000W+0.5) 1000

QX1

Z<874660Goto A: ≠Z<876275Goto B: ≠ Z<876600Goto C: ≠Z<877200Goto D: ≠ Z<878400Goto E: ≠Z<8700Goto F: ≠ Z<879450Goto G: ≠Z<880930GotoH: ≠ Z<881625Goto I: ≠Z<882585GotoI: ≠ LbI A:K=874400:H=1026.600:I=-0.7:J=0.35:R=50000 :F=873521.253:Q=874519.959:S=70:U=70:Y=2:Goto1 LbI B:K=875900:H=1031.850:I=0.35:J=-0.25:R=125000: Goto1

LbI C:K=8700:H=1030.600:I=-0.25:J=-0.35:R=250000: Goto1

LbI D:K=876960:H=1028.0:I=0.35:J=0.00:R=120000: Goto1

LbI E:K=878100:H=1028.0:I=0.00:J=0.52:R=75000:

2

Goto1

LbI F:K=8780:H=1031.450:I=0.52:J=-0.766:R=25000: Goto 1

LbI G:K=879200:H=1027.160:I=-0.766:J=-0.20:R=50000: Goto 1

LbI H:K=880800:H=1030.360:I=0.20:J=-0.33:R=50000:F =880716:Q=881930.769:S=70:U=70:Y=2:Goto 1 LbI I:K=881400:H=1028.380:I=-0.33:J=0.12:R=100000:F =880716.690:Q=881930.769:S=70:U=70:Y=2:Goto 1 LbI J:K=882100:H=1029.220:I=0.12:J=0.00:R=300000:F =880716.690:Q=881930.769:S=70:U=70:Y=2:Goto 1 LbI 1:Prog“GC”  

3

坐标计算程序

主程序TB3

﹛Z﹜:Z “Z” :

Z＜871860.072R＝4000:S＝0:A＝2855119:K＝320

。

。

。

。

。

。

3735:L＝869432.607:B＝871860.072:X＝695046.196:Y＝514567.872:GOTO 0: ≠

Z＜875119.959R＝－2500:S＝600:A＝3203735:K＝2835912:L＝873521.253:B＝874519.959:X＝697707.8:Y＝512382.598:GOTO 0: ≠

Z＜878845.099R＝－5000:S＝000:A＝2835912:K＝2674342:L＝877426.297:B＝878845.099:X＝698710.933:Y＝508356.506:GOTO 0: ≠

Z＜882580.769R＝3000:S＝650:A＝2674342:K＝3031947:L＝880716.690:B＝881930.769:X＝698583.073:Y＝505133.262:GOTO 0: ≠

Z＜887439.393R＝－2000:S＝500:A＝3031947:K＝2

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

。

5509:L＝886098.616:B＝886939.393:X＝701471.118:Y＝500741.590△

LbIθ：E=Abs(A-K)：T= Abs(R+S2÷(24R)- S4÷（2688R3）

∧

∧

Tan（E÷2）+S÷2- S3÷（240 R2）

∧

LbI1：N=X+Tcos(A+180°)：W=Y+Tsin(A+180°)：Z≤L-S =＞N+N(L-S-Z)cos(A+180°)：W=W+(L-S-Z)sin(A+180°)：

4

T=A：GOTO3：≠=＞Z＜L=＞E=Z-L+S：Prog“TB5”：T=A+90E2÷（πRS）：GOTO2：≠=＞Z≤B=＞C=Abs((180(Z-L)+90S) ÷(πR))：O= Abs(S2÷(24R)- S4÷

∧

（2688R3）)：P=S÷2- S3÷（240 R2）：X= AbsR sinC+P：

∧

∧

Y= AbsR（1- cosC）+O：T=A+（180（Z-L）+90S）÷(πR)：GOTO2：≠=＞Z≤B+S=＞R=-R：A=K+180：N=X+T cosK：W=Y+T sinK：E=B+S-Z：Prog“TB5”：T=K+90E2÷(πRS)

⊿



Lbi2：N=N+XcosA-YsinA AbsR÷R：W=W+XsinA+YcosA AbsR÷R

Lbi3：{M}：M“BIANJU”：E=Abs M：M=θ=＞Goto4⊿U“JIAOD”：T=T+UAbs M÷M Lbi4：O=N+EcosT▲ P=W+EsinT▲

Prog“TBθ”：I“JN” ▲ 二、子程序

1、文件名为“TBθ”

Fixm:P01(O-F,P-G):J＜θ=＞J=J+360⊿J“HWJ”▲ 2、文件名为“TB5”

X=E-E5÷（40R2S2）+E9÷（3456R4S4）：Y=Abs(E3

∧

∧

∧

∧

∧

÷(6RS)-E7÷(336R3S3)+E11÷(42240R5S5))  3、文件名为“TB1”

5

∧∧∧∧∧∧

F“CX=”：G“CY=”：H“HX=”：D“HY=”：O=H：P=D：prog“TBθ”：I“JN” ▲

4、文件名为“TB2”（支点坐标计算程序） F：G：M：N：O=F+McosN▲ P=G+MsinN▲ 三、说明：

1、“θ”表示阿拉伯数字，“O”表示英方字母。

2、平曲线要素中：Z：曲线终点（即HZ点），R：平曲线半径，S：缓和曲线长度，A：第一切线方位角，K：第二切线方位角，L：缓圆点桩号，B：圆缓点桩号，X：交点坐标，Y：交点Y坐标。

3、文件名“TB1”中，CX：测站X坐标，CY：测站Y坐标，HX：后视点X坐标，HY：后视点Y坐标，HWJ：方位角，JN：距离。

4、文件名“TB2”中，F：测站X坐标，G：测站Y坐标，M：距离（测得），N：方位角（测得），O：支点X坐标，P：支点Y坐标。

5、运行“TB3”中，Z：桩号，BIANJU：边距，即距中桩距离（左“-”，右“+”），JIAOD：90，O：所测点X坐标，P：所测点Y坐标，HWJ：方位角，JN：距离。 6、该程序只适用于fx-4800P计算器。

6