新曲线任意里程中边桩坐标反正算模板.doc

文档介绍：新曲线任意里程中边桩坐标反正算曲线任意里程中边桩坐标反正算(CASIOfx-5800P计算器)程序程序功能本程序由一个主程序(ZHUCHENXU)和几个子程序---正算子程序(SUB1)反算子程序(SBU2)数据库(SBU3),算方位角程序(FA),使用方位角算坐标(NE),边坡放样程序(BIANPO),隧道圆心放样程序(SDYX)构成,能够根据直线,圆曲线,缓和曲线(完整或非完整型)的线元要素(起点坐标,起点里程,起点切线方位角,线元长度,起点曲率半经,止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩进行正反算。源程序增加边量22→DimZ1,主程序(ZHUCHENXU)’’→XY,→SZ,,4BIANPO’’?N:Lb11:’’ZHUANGHAO=’’?S:Prog’’SUB3’’:N≥2=>Goto2:Abs(S-0)→W:’’BIANZHU=’’?→Z:Prog’’SUB1’’:’’XS=’’:X→X◢’’YS=’’:Y→Y◢’’FS=’’:(F-90)→F:F▼DMS◢Prog’’FA’’:Goto1:Lb12:’’CX=’’?X:X→I:’’CY=’’?Y:Y→J:’’DMG=’’?→Z[7]:Prog’’SUB2’’:’’S=’’:(O+W)→S◢’’Z’’:Z→Z◢IfN=3:ThenProg’’SDYX’’:IfEnd:IfN=4:ThenProg’’BIANPO”:IfEnd:Goto22,正算子程序(SUB1)→Z[1]:→B:→K:→L:(1-L)→F:(1-K)→M:U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Z[1]cos(G+QEMW(C+MWD)))→X:V+W(Z[1]sin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Z[1]sin(G+QEMW(C+MWD)))→Y:G+QEW(C+WD)+90→F:X+ZcosF→X:Y+ZsinF→Y3,反算子程序(SUB2)G-90→Z[2]:Abs((Y-V)cosZ[2]-(X-U)sinZ[2])→W:0→Z:Lb10:Prog’’SUB1’’:Z[2]+QEW(C+WD)→L:(J-Y)cosL-(I-X)sinL→Z:IfAbs(z)<1E-6:ThenGoto1:ElseW+Z→W:Goto0:IfEndLb11:0→Z:Prog’’SUB1’’:(J-Y)÷sinF→Z4,数据库(SUB3)IfS<226100:ThenCls:Stop:IfEndIfS<:Then226100→0:→U:→V:→G:1045→P:1045→R:→H:0→Q:Goto1:IfEnd…………..……………IfS>:ThenCls:IfEndLb11:1÷P→C:(P-R)÷(2HPR)→D:180÷∏→E:(FA)LbI0:‘‘XC=’’?A:‘‘YC=’’?T:X:Y0→J:POI(X-A,Y-T)→I:‘‘BC=’’:I◢IfJ<0:Then360+J→J:ElseJ→J:IfEnd‘‘FW=’’:J▼DMS◢Goto0(NE)Lbl0:‘‘X=’’?X:‘‘Y=’’?Y:‘‘L=’’?L:‘