测量各类计算程序.doc

程序名称：SQX ? ? “竖曲线计算主程序”IA“⊿I1”B“⊿I2”C“BP”F“HP”RTD=C－T：E=C+TLbl 0：{K}KD= X=C－K：N=A：Goto 1⊿K≥E= X=C－K：N=B：Goto 1⊿K≤C= X=K－D：Y=C-K：N=A：Goto 2：≠X=E－K：Y=C－K：N=B：Goto 2⊿Lbl 1：H“HS”=F-XN◢Goto 0Lbl 2：H“HS”=F－YN－I X2÷2÷R◢Goto 0注：? I——竖曲线为凹型时输入-1，为凸型时输入1；? ⊿I1、⊿I2——输入格式为0.###? BP——为变坡点里程? HP——为变坡点高程? R——半径? T——切线? K——输入待计算桩号? HS——计算输出结果Re:各种常用程序集.doc极座标放样LBI 1:{EF}:A”XO”:B”YO”:C”X1”:D”Y1”:E”XA”:F”YA’G”X1A”=E-A:H”Y1A”=F-B:I’X12’=C-A:J”Y12”=D-BK”A1A”=tan-1(H÷G):L”A12”= tan-1(J÷I)M”JN”=√(G2+H2) ▲T”JD”=180-Abs(L-K) ▲POL(A-E,B-F) ▲J0=J=360+J△Z=J▲GOTO 1注:O为仪点,A为放点偏角法LBI 0:R:A:Q”QD”{G}I=Abs(G-Q)A[1]=90×I÷(πR) ▲C[1]=2RsinA[1] ▲GOTO 0直线座标Q”QD”:E”XA”:F’YA’:A”QHJ”:O”L=-90,R=+90”:G”FXD”:B”KD”I=Abs(G-Q)X=E+IcosA▲Y=F+IsinA▲P=A+OX”LR”=X+BcosP▲Y”LR”=Y+BsinP▲注:KD,:为向左右的宽度 ? ? ? 左为-90,右为90QD,为起点桩号 ? XA,YA为起点桩号座标 QHJ;方位角直线计算高程LBI 0:{XE}:Y”QD”:D”QDGC”:U”MD”:X”FDLC”:C”PD”;F”SZDGC”:A”HS’:E”QS”:UX=GOTO 0△XY=GOTO 0△LBI 1:B=Abs(X-Y)L”SJGC”=B×C+D▲R”SXG”=A+F▲E=0=M”DS”=R-L▲GOTO 0≠N”GC”=R-E▲GOTO 0注: QS:为前视为0时到读数闭合导线座标计算LBI 0:{CE}:X”XO”:Y”YO”:D”FVJ”:C”JN”:E”L,R=360-L”GOTO 1LBI 1:E=0=F=D▲≠F=D+E-180△GOTO 2LBI 2:G=Rec(C,F) ▲D=F▲GOTO3LBI 3:X=I+X▲Y=J+Y▲GOTO 0 任意里程中边桩坐标正反算（CASIO fx-4800P计算器）程序一、源程序(SZ-XY-SZ)? ? 1.SZ = XY：2. XY = SZ：NUX0VY0OS0GF0Q：Q=0=R=1E-45：≠? ? R△J=0：M=AbsQ：K=1-M：N=1=Goto 1：≠Goto 2△←┙? ? ? Lbl 1：{SZ}：SZ：L=S-O：B=90QL÷π÷R：F=G+B：E=F+B+90：C=LK+2MRsinQB：XXS? ? ? = U+Rec(C,F)+ZcosE◢? ? ? YYS=V+J+ZsinE◢? ? ? Goto 1←┙? ? ? Lbl 2：W=G+90Q：E=U+Rec(R,W)：F=V+J←┙? ? ? Lbl 3：{XY}：XY：D=Pol(X-E,Y-F):T=J：J0=T=J+360△B=T-W-180M：P=Abs B：SS=O+? ? ? DKcosP+ MπRP÷180◢? ? ? ZZ=DKsinB+MQ(R-D)◢? ? ? Goto 3←┙二、使用说明? ? 1.由里程、中边桩计算坐标? ? ? 启动程序后按以下提示输入数据：? ? ? N ？1 （N=1，由里程中边桩计算坐标；N≠1，由坐标反算里程及中边桩)? ? X0 ？142.353 (直线或圆曲线起点的X坐标）? ? Y0 ？368.166 (直线或圆曲线起点的Y坐标）? ? S0 ？155.252 (直线或圆曲线起点的里程）? ? F0 ？60°54′03″(直线或圆曲线起点的切线方位角）? ? Q ？-1 (当线元为直线时Q=0；当线元为圆曲线且左偏时Q=-1；当线元为圆曲线且? ? ? ? ? ? ? 右偏时Q=1)? ? R ？ 100 (圆曲线的半径)? ? S ？ 194.016 (中线里程)?