fx-4800p计算程序.doc

高程程序(4800)CCCCB“0，9” : M“BM+HS” P“H” :T“Z” :Fixm:Lb1 0: Z:Z1E3A=Int(ZI1E3) : Z=Z+1000A“KZ” Prog“QX1”:V=1:E=1.5:D=-1:X=X+P:ZF-SGoto 1 ZQ+UGoto 1 “e=” :B1 Prog“0” Lb1 1:B=0Goto 4 B=9Goto 9 Lb1 4: C: C“QS1” :W=X+0.0000VED: Prog“1” :M-W-CC: C“QS2” :W=X+0.0300VED: Prog“1” :M-W-CC: C“QS3” :W=X+0.1125VED: Prog“1” :M-W-CZ=Z+T : Goto 0LbI 9:L,c:w=x+(LI100)VED:Prog“1”:M-W-CZ=Z+T:Goto 0GC0:0“Z0,Y1”:G=I:ZKG=JX=H+G(Z-K) I100:V=I-J:T7=Abs VRI200:N=Abs VIV:Abs(k-z)0Goto 1 D=-1Goto 0 Goto 2 LbI 1:D=1Goto 0LbI 2:Abs E1.5E=1.5LbI 0:EFGoto 3 ZQGoto 3 Goto 4:LbI3:VED“Ie” LbI 4:VED 1W=Int (1000W+0.5) I1000QX1Z874660Goto A: Z876275Goto B: Z876600Goto C: Z877200Goto D: Z878400Goto E: Z878900Goto F: Z879450Goto G: Z880930GotoH: Z881625Goto I: Z882585GotoI: 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:Goto1LbI B:K=875900:H=1031.850:I=0.35:J=-0.25:R=125000:Goto1LbI C:K=876400:H=1030.600:I=-0.25:J=-0.35:R=250000:Goto1LbI D:K=876960:H=1028.640:I=0.35:J=0.00:R=120000:Goto1LbI E:K=878100:H=1028.640:I=0.00:J=0.52:R=75000:Goto1LbI F:K=878640:H=1031.450:I=0.52:J=-0.766:R=25000:Goto 1LbI G:K=879200:H=1027.160:I=-0.766:J=-0.20:R=50000:Goto 1LbI 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 1LbI 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 1LbI 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 1LbI 1:Prog“GC” 坐标计算程序主程序TB3Z:Z “Z” :Z871860.072R4000:S0:A285。51。19。:K320。37。35。:L869432.607:B871860.072:X695046.196:Y514567.872:GOTO0: Z875119.959R2500:S600:A320。37。35。:K283。59。12。:L873521.253:B874519.959:X697707.864:Y512382.598:GOTO0: Z878845.099R5000:S000:A283。59。12。:K267。43。42。:L877426.297:B878845.099:X698710.933:Y508356.506:GOTO0: Z882580.769R3000:S650:A267。43。42。:K303。19。47。:L880716.690:B881930.769:X698583.073:Y505133.262:GOTO0: Z887439.393R2000:S500:A303。19。47。:K264。55。09。:L886098.616:B886939.393:X701471.118:Y500741.590LbI：E=Abs(A-K)：T= Abs(R+S2(24R)- S4（2688R3）Tan（E2）+S2- S3（240 R2）LbI1：N=X+Tcos(A+180)：W=Y+Tsin(A+180)：ZL-S=N+N(L-S-Z)cos(A+180)：W=W+(L-S-Z)sin(A+180)：T=A：GOTO3：=ZL=E=Z-L+S：Prog“TB5”：T=A+90E2（RS）：GOTO2：=ZB=C=Abs(180(Z-L)+90S) (R)：O= Abs(S2(24R)- S4（2688R3）)：P=S2- S3（240 R2）：X= AbsR sinC+P：Y= AbsR（1- cosC）+O：T=A+（180（Z-L）+90S）(R)：GOTO2：=ZB+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 AbsRR：W=W+XsinA+YcosA AbsRRLbi3：M：M“BIANJU”：E=Abs M：M=Goto4U“JIAOD”：T=T+UAbs MMLbi4：O=N+EcosTP=W+EsinTProg“TB”：I“JN” 二、子程序1、文件名为“TB”Fixm:P01(O-F,P-G):J=J=J+360J“HWJ”2、文件名为“TB5”X=E-E5（40R2S2）+E9（3456R4S4）：Y=Abs(E3(6RS)-E7(336R3S3)+E11(42240R5S5) 3、文件名为“TB1”F“CX=”：G“CY=”：H“HX=”：D“HY=”：O=H：P=D：prog“TB”：I“JN” 4、文件名为“TB2”（支点坐标计算程序）F：G：M：N：O=F+McosNP=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：测