卡西欧5800P计算器曲线任意里程中边桩坐标正反算毕业文章.docxVIP

henProg”SDY:IfEnd:IfN=4:ThenProg”BIANPO:IfEnd:GotntZ[12]+Z[3]Z[14]:“BP+J=”:Z[14]A说明：Z[3]=QPDJL,,,,,点的曲率半径为无穷大，以 henProg”SDY:IfEnd:IfN=4:ThenProg”BIANPO:IfEnd:Got ntZ[12]+Z[3]Z[14]:“BP+J=”:Z[14]A说明：Z[3]=QPDJL,,,,, 点的曲率半径为无穷大，以10的45次代替。(4)当线元为圆曲线时，无论其起点、止点与什么线元相接，其 )A2)tZ[16]:“R=”:三、使用说明规定(1)以道路中线的前进方向(即里程增大的方向)区分左 一、 程序功能 本程序由一个主程序（ZHUCHENXU ）几个子程序一一正算子程序（SUB1 ） 反 算子程序（SUB2 ）数据库（ SUB3 ）算方位角程序（FA、使用方位角算坐标 （NE ）、 边坡放样程序（ BIANPO ）隧道圆心放样程序（SDYX 构成，可以根据直 线、圆 曲线、缓和曲线（完整或非完整型）的线元要素（起点坐标、起点里程、起 点 切线方位角、线元长度、起点曲率半径、止点曲率半径）及里程边距或坐标， 对该曲线段范围内任意里程中边桩坐标进行正反算。 二、 源程序 增加变量 16^ DimZ 1. 主程序（ ZHUCHENXU ）”1 Z5 XY 2. XY t SZ 3.SDYX 4. BIANPO ? N: Lbl 1: ” ZHUANGHAO=?S Prog SUB3 NA 2=Goto 2 Abs（SO ）5 : ” BIANZHU= ?rZ: Prog SUB1 XS=” : Xf』YS=” : Y^YJ FS=” : 11]0ThenAbsZ[11]rZ[11]:“T=”Z[11]AElseW=Z[11]AIfE,起坡点离中桩距离Z[4]=QPDGD,，起坡点设计标高Z[5]=PG,,，坡高Z[6]=PTin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( 11]0ThenAbsZ[11]rZ[11]:“T=”Z[11]AElseW=Z[11]AIfE ,起坡点离中桩距离Z[4]=QPDGD,，起坡点设计标高Z[5]=PG,,，坡高Z[6]=PT in(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW( ”二级边坡坡度Z[10]=“P3”，,,,三级边坡坡度(没有的话就删)Z[14]=BPJS,,,, F#9658;DMS 』Prog FA: Goto 1: Lbl 2: ” CX=” ?X: XF: ”CY=” ?Y: Yf ” DMG= ?r Z[7] Prog SUB2 ， S=: (O+W)rS 』Z=Z r*IfN=3:ThenProg ” SDY : IfEnd : IfN=4:ThenProg ” BIANPO: IfEnd: Goto 2 2. 正算子程序(SUB1) 0.26 t Z[1] 0.74 f 0.42 F 0.82 f (1-L) F (1-K) f : )A2)tZ[16]:“R=”:三、使用说明规定(1)以道路中线的前进方向(即里程增大的方向)区分左ndZ[11]+Z[5]rZ[12]IfZ[12]1ThenZ[8]xZ[11]”Z[13]ElseZ[8]xZ[5]+Z[9]国匈-位tZ[13]:IfEnd:AbsZ-(Z[13]+Z[6]xIeW+ZfGoto0:IfEndLbl1:0F:ProgSUB1(J-Y)+sinFF4.数据库U+W(Z[1]cos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW )A2)tZ[16]:“R=”:三、使用说明规定(1)以道路中线的前进方向(即里程增大的方向)区分左 ndZ[11]+Z[5]rZ[12]IfZ[12]1ThenZ[8]xZ[11]”Z[13]Els eZ[8]xZ[5]+Z[9]国匈-位tZ[13]:IfEnd:AbsZ-(Z[13]+Z[6]xI eW+ZfGoto0:IfEndLbl1:0F:ProgSUB1(J-Y)+sinFF4.数据库 X+ZcosFF Y+ZsinF -^Y 3. 反算子程序(SUB2) G-90 t Z[2] Abs((Y-V)cosZ[2]-(XU)sinZ[2]) ■ 0^Z: Lbl 0: ProgSUB1”: Z[2]+QEW(C+WD) F (J-Y)cosL-(X)sinL -Z If Abs(Z)1E-6:Then Goto1 Else