《CASIO fx-4800P线路计算6.0版》(附加)程序设计.docVIP

一、程序设计 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( I2π(I=I-2π◣( I0(I=I+2π◣( I=180I÷π( I”A=”◢ Goto 1 2.线路坐标计算主程序XLZB Rad( Fixm( {O}:O”1.ZX 2.BX”( Q=0( Lbl 1( {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◣( {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+π( SL(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( U0(U=U+2π◣ 6.曲线要素计算子程序YS R=280( L=84.7( S=-0.6769479859( A=-2.415291254( N=-1( C=1.738343268( Z[5]=1.067572917( Z[6]=42 T=374.9146895( Z[7]=RC+L 7.线路高程计算子程序GC W=13( Lbl 1( P=Z[W+7]( KZ[W]-P(W=W+1:Goto 1◣( W=13(W=14◣( V=W-1(Goto 2◣( V=W-1( J=Z[V+4]( R=(J-Z[V+3])÷(Z[V]-Z[V-1])( S=(Z[V+5]-J)÷(Z[V+1]-Z[V])( T=Z[V+7]( Lbl 2( L=K-Z[V]( L≤-T(H=J+RL:Goto 3◣( L≥T(H=J+SL:Goto 3◣( A=2T÷(S-R)( X=L+A(R+S)÷2( H=J+XX÷2÷A-ARS÷2( Lbl 3( H=H-Z[1]( A=Abs Q( A≤Z[4](C=0:Goto 6◣( I=-1( Q0(I=1◣( Lbl 4( Y=23( Lbl 5( K≥Z[Y](Y=Y+1:Goto 5◣( O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX( Z[Y+2]=0(O=2◣( Z[Y+3]=0(X=2◣( N=(Z[Y]-K)÷(Z[Y]-Z[Y-1])( M=(X-O)(1-3NN+2NNN)+O( A≤Z[2](C=(Z[4]-A)M÷100:Goto 6◣( C=0.04(Z[2]-A)-M(Z[2]-Z[4])÷100( M4(C=(Z[4]-A)M÷100◣( Lbl 6( C=H+C 8.反求线路桩号子程序F