卡西欧5800P计算器曲线任意里程中边桩坐标正反算.doc.doc

卡西欧 5800P 计算器曲线任意里程中边桩坐标正反算一、程序功能本程序由一个主程序(ZHUCHENXU) 和几个子程序——正算子程序(SUB1) 、反算子程序(SUB2) 、数据库(SUB3) 、算方位角程序(FA) 、使用方位角算坐标(NE) 、边坡放样程序(BIANPO) 、隧道圆心放样程序(SDYX )构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量 16→DimZ (ZHUCHENXU) " →XY, →SZ, , "?N: Lbl 1:”ZHUANGHAO= ”?S:Prog "SUB3" :N≥2=>Goto 2: Abs(S-O) →W:”BIANZHU= ”?→Z:Prog "SUB1" : "XS= ”:X→X◢"YS= ”:Y→Y◢"FS= ”:(F-90) →F:F&#9658;DMS ◢Prog "FA" : Goto 1: Lbl 2:”CX= ”?X: X→I:”CY= ”?Y: Y→J:”DMG= ”?→Z[7] :Prog "SUB2" : "S=":(O+W) →S◢"Z="Z →Z◢IfN=3:Then Prog ”SDYX ”:IfEnd :IfN=4:Then Prog ”BIANPO ”:IfEnd:Goto 2 (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 →Y (SUB2) G-90 →Z[2] :Abs((Y-V)cosZ[2]-(X-U)sinZ[2]) →W:0→Z:Lbl 0:Prog "SUB1" :Z[2]+QEW(C+WD) →L:(J-Y)cosL-(I-X)sinL →Z: IfAbs(Z)<1E-6:Then Goto1 :Else W+Z →W:Goto 0:IfEnd Lbl 1:0→Z:Prog "SUB1" :(J-Y) ÷sinF →Z (SUB3) IfS<226100:Then Cls:Stop: IfEnd IfS<:Then 226100 →O: →U: →V: →G:1045 →P:1045 →R: →H:0→Q:Goto 1:IfEnd ………… IfS>:Then Cls:Stop: IfEnd