《CASIO fx-4800P线路计算6.0版》(附加)程序设计 作者：徐光辉 2000年11月2日 一、程序设计
1． 测量放样计算主程序CLFY V=19:Fixm:Rad?
{OEFG}:O”1.XL 2.SD”:E”DZ”:F”DH”:G”AH”? Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])? D=πG÷180-J? Lbl 1? O?1?Goto 2? {KQ}:K”KF”:Q”BL”? Prog ”ZB”?
X=X+Rec(Q,U+π÷2):Y=Y+J? Goto 3? Lbl 2?
{XY}:X”XF”:Y”YF”? Lbl 3?
Pol(X-Z[E+52],Y-Z[E+62])? I”S=”◢ I=J+D? I>2π?I=I-2π? I<0?I=I+2π?
I=180I÷π? I”A=”◢ Goto 1
2．线路坐标计算主程序XLZB Rad? Fixm?
{O}:O”1.ZX 2.BX”? Q=0? Lbl 1?
1
《CASIO fx-4800P线路计算6.0版》(附加)程序设计 作者：徐光辉 2000年11月2日 {K}:K”K”?
O?1?{QG}:Q”L”:G”AJ”
?
Prog ”ZB”:X=X+Rec(Q,U+πG÷180):Y=Y+J ? X”X=” ◢ Y”Y=” ◢
O=1?U=180U÷π:U”AT=” ◢ ? Goto 1
3．线路高程计算主程序XLGC V=11:Fixm? Lbl 0?
{KQ}:K”K”:Q”L”? Prog ”KD”? Prog ”GC”? C”H=”◢ Goto 0
4．边桩放样计算主程序BZFY Fixm? Rad?
{Z}:Z”1.CJ 2.QZ 3.QS”? Z=2?Z[11]=0:Goto 1? Z=3? Goto 1?
{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”? Z[8]=Z[M+52]:Z[9]=Z[M+62]? C=Z[N+52]:A=Z[N+62]?
Pol(C-Z[8],A-Z[9]):Z[10]=J-πU÷180:Z[11]=G? Lbl 1? Z=2?Goto 2?
2
《CASIO fx-4800P线路计算6.0版》(附加)程序设计 作者：徐光辉 2000年11月2日 {EBFD}:B”AQ”:E”S”:D”HD”:F”HY”?
Rec(E,Z[10]+πB÷180):X=Z[8]+I:Y=Z[9]+J:Goto 3? Lbl 2?
{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B? Lbl 3? Prog “FQ”? G=D+Z[11]-F:G”H”◢ Prog “FY”? Goto 1
5． 线路坐标计算子程序ZB Prog ”YS”? X=74445.797? Y=501515.278? S=771.296-K? B=A+C+π? S>L?Goto 1? I=SSS÷6÷R÷L? J=S-S^5÷(40RRLL)? U=B-SS÷(2RL)-π:Goto 2? Lbl 1?
U=(2S-L)÷R÷2?
I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]? U=B-(S-L÷2)÷R+π? Lbl 2?
Pol(I,J):J=J+B-π÷2? X=Rec(I,J)+X? Y=Y+J? U<0?U=U+2π
3