淘豆网
下载此文档放大查看缩小查看   1/3
0/100
您的浏览器不支持进度条
更多>>该用户其他文档
下载所得到的文件列表
卡西欧5800P计算器曲线任意里程中边桩坐标正反算.doc.doc
文档介绍:
卡西欧 5800P 计算器曲线任意里程中边桩坐标正反算一、程序功能本程序由一个主程序(ZHUCHENXU) 和几个子程序——正算子程序(SUB1) 、反算子程序(SUB2) 、数据库(SUB3) 、算方位角程序(FA) 、使用方位角算坐标(NE) 、边坡放样程序(BIANPO) 、隧道圆心放样程序(SDYX )构成,可以根据直线、圆曲线、缓和曲线(完整或非完整型)的线元要素(起点坐标、起点里程、起点切线方位角、线元长度、起点曲率半径、止点曲率半径)及里程边距或坐标,对该曲线段范围内任意里程中边桩坐标进行正反算。二、源程序增加变量 16→DimZ 1.主程序(ZHUCHENXU) "1.SZ →XY,2.XY →SZ,3.SDYX ,4.BIANPO "?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 2.正算子程序(SUB1) 0.1739274226 →Z[1] :0.3260725774 →B:0.0694318442 →K: 0.3300094782 →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 3.反算子程序(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 4.数据库(SUB3) IfS<226100:Then Cls:Stop: IfEnd IfS<226255.833:Then 226100 →O:99037.9736 →U:4282.3590 →V: 201.3266304 →G:1045 →P:1045 →R:253.543 →H:0→Q:Goto 1:IfEnd ………… IfS>236005.651:Then Cls:Stop: IfEnd Lbl 1:1÷P→C:(P-R) ÷(2HPR) →D:180 ÷π→ E: 5.算方位角程序(FA) LbI0 :“XC= ”?A:“YC= ”?T:X:Y 0→J:POI (X-A ,Y-T )→I:“BC= ”:I◢IfJ<0Then 360+J →J:ElseJ →J:IfEnd “FW= ”:J&#9658;DMS ◢Goto0 6.使用方位角算坐标(NE) LbI0 :“X=”?X:“Y=”?Y:“L=”?L:“F0”?F:L×Cos (F)+X→N: “N=”N◢L×Sin (F)+Y→E:“E=”E◢ Goto0 7.边坡放样程序(BIANPO) “QPDJL= ”?→Z[3]: “QPDGD= ”?→Z[4]: “PG= ”?→Z[5] :2→Z[6] : “P1= ”?→Z[8] :“P2= ”?→Z[9] :“P3= ”?→Z[10] (没有的话就删):Z[7]-Z[4] →Z[11] :IfZ[11] 〈0Then AbsZ[11] →Z[11]: “T=”: Z[11] ◢Else “W=”:Z[11] ◢IfEnd Z[11] ÷Z[5] →Z[12] :IfZ[12] 〈1Then Z[8] ×Z[11] →Z[13] :Else Z[8] ×Z[5]+Z[9] ×Z[5] ×(Z[12]-1 )→Z[13] :IfEnd: AbsZ- (Z[13]+Z[6] ×Int Z[12]+Z[3] )→Z[14]: “BP+C-J= ”:Z[14] ◢说明: Z[3]= QPDJL ………………起坡点离中桩距离 Z[4]= “QPDGD ”……………起坡点设计标高 Z[5]= “PG”………………坡高 Z[6]= “PTK ”………………平台宽度 Z[7]= “DMG ”………………实测地面高度 Z[8]= “P1”………………一级边坡坡度 Z[9]= “P2”………………二级边坡坡度 Z[10]= “P3”………………三级边坡坡度(没有的话就删) Z[14]= “BP+C-J= ”………………边坡超欠挖宽度( +表超, -表欠) 8.隧道圆心放样程序( SDYX ) IFS<229000:THEN 243.997+0.0205 ×(S-226520)-(S-227318)^2/2/16000+1.503 →Z[1 内容来自淘豆网www.taodocs.com转载请标明出处.