casio程序(线路计算60版)(附加)

《casio程序(线路计算60版)(附加)》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、一、程序设计1.测量放样计算主程序CLFYV=19:Fixm:RadJ{0EFG}:0”l.XL2.SD”：E”DZ”：F”DH”:G”AH”JPol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])JD=开G~r180-JJLbl1J0》l=>Goto2」{KQ}:K”KF”：Q”BL”JProg”ZB”JX二X+Rec(Q,U+Ji4-2):Y=Y+JJGoto3JLbl2J{XY}:X”XF”:Y”YF”JLbl3JPol(X-Z[E+52],Y-Z[E+62])JI”S=”JI=J+DJI>2兀=>I=I~2n1

2、X0二>1=1+2兀IXJ]”A二”AGoto12.线路坐标计算主程序XLZBRad」FixnU{0}:0”l.ZX2.BX”JQ二0」Lbl1J{K}:K”K”J0h1=>{QG}:Q”L”：G”AJ”Prog”ZB”:X=X+Rec(Q,U+nG4-180):Y=Y+JJX”X二”A0=l=>U二180UFJi:U”AT=”AGoto11.线路高程计算主程序XLGCV=ll:EixmJLbl0」{KQ}:K”K”：Q”L”JProg”KD”JProg”GC”JC”H二”AGoto02.边桩放样计算主程序BZFYFixmJRadJ{Z

3、}:Z”l.CJ2.QZ3.QS”JZ=2=>Z[ll]=0:GotoltJZ二3nGoto1IJ{MNGU}:M”DZ”：N”DH”：G”HZ”：U”AH”JZ[8]=Z[M+52]:Z[9]=Z[M+62]JC=Z[N+52]:A=Z[N+62]JPol(C-Z[8],A-Z[9]):Z[10]=J-nU4-180:Z[ll]=GJLbl1」Z二2=>Goto2IJ{EBFD}:B”AQ”:E”S”：D”HD”:F”HY”JRec(E,Z[10]+JiB4-180):X=Z[8]+1:Y=Z[9]+J:Goto3JLbl2J{

4、EBD}:E”N”:B"E”:D”Z”:F=0:X=E:Y=BJLbl3JProg“FQ”JG=D+Z[11]-F:G”H”AProg“FY”JGoto11.线路坐标计算子程序ZBProg”YS”JX二74445.797JY二501515.278JS二771.296-K」B二A+C+nJS>L=>Goto1JI=SSS^-64-R4-LJJ=S-S*54-(40RRLL)JU=B-SS4-(2RL)-n:Goto2JLbl1JU=(2S-L)4-R4-2I=R(l-cosU)+Z[5]:J=RsinU+Z[6]JU=B-(S-L~r2)

5、-j-R+jtJLbl2JPol(I,J):J=J+B-^4-2JX=Rec(I,J)+XJY=Y+JJU〈0=>U二U+2jt[2.曲线要素计算子程序YSR二280」L=84.7JS=-0.6769479859JA=-2.415291254」N=-1J01.738343268」Z[5]=l.067572917JZ[6]=42.31770592JT=374.9146895JZ[7]=RC+L1.线路高程计算子程序GCW二13」Lbl1JP=Z[W+7]JK>Z[W]-P=>W二W+l:Goto1W二13nW二14HJV=W-l=>Go

6、to2L.JV=W-1JJ=Z[V+4]JR=(j-z[V+3])m(Z[V]-Z[V-l])JS=(Z[V+5]-J)4-(Z[V+l]-Z[V])JT=Z[V+7]JLbl2JL=K-Z[V]JL^-T=>H=J+RL:Goto3・JLNTnH二J+SL:Golo33A=2T4-(S-R)JX二L+A(R+S)*2JH二J+XX一2一A-ARSF2」Lbl3JH=H-Z[1]JA=AbsQJAWZ[4]=>C=0:Goto6LJI=-1JQ>0=>I=ltxJLbl4JY=23JLbl5JK>Z[Y]=>Y=Y+l:Goto5KJ0

7、=Z[Y+2]:X=Z[Y+3]:O=IO:X=IXJZ[Y+2]=0=>0=2lJZ[Y+3]=0=>X=2I^JN=(Z[Y]-K)4-(Z[Y]-Z[Y-l])JM二(X-0)(l-3NN+2NNN)+0JAWZ[2]nC二(Z[4]—A)M「100:Goto61XJC=0.04(Z[2]-A)-M(Z[2]-Z[4])F100JM>4nC二(Z[4]-A)M-4-lOO^JLbl6JC二H+C1.反求线路桩号子程序FQProg”YS”JZ[4]=74445.797JZ[3]=501515.278JZ[4]=X=>Z[3]=Y=

8、>K=771.296:Q=0:GotoQ=Z[4]:K=Z[3]:G=S+n4-2JProg”ZH”JG=LL十6FR:Q=L-LLL十40一RFR」Pol(G-H,Q-W):K=J+n-r2+L4-24-