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

一、程序设计 测量放样计算主程序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．边桩