CASIO程(线路计算6.0版)(附加).docVIP

一、程序设计测量放样计算主程序CLFYV=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 12．线路坐标计算主程序XLZBRad?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 13．线路高程计算主程序XLGCV=11:Fixm?Lbl 0?{KQ}:K”K”:Q”L”?Prog ”KD”?Prog ”GC”?C”H=”◢Goto 04．边桩放样计算主程序BZFYFixm?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线路坐标计算子程序ZBProg ”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．曲线要素计算子程序YSR=280?L=84.7?S=-0.6769479859?A=-2.415291254?N=-1?C=1.738343268?Z[5]=1.067572917?Z[6]=42T=374.9146895?Z[7]=RC+L7．线路高程计算子程序GCW=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+C8．反求线路桩号子程序FQProg ”YS”?Z[4]=74445.797?Z[3]=501515.278?Z[4]=X?Z[3]=Y?K=771.296:Q=0:Goto 2◣◣?Q=Z[4]:K=Z[3]:G=S+π÷2?Prog ”ZH”?G=LL÷6÷R:Q=L-LLL÷40÷R÷R?Pol(