fx5800平曲线竖曲线程序.docx
- 文档编号:11012909
- 上传时间:2023-05-28
- 格式:DOCX
- 页数:19
- 大小:1.88MB
fx5800平曲线竖曲线程序.docx
《fx5800平曲线竖曲线程序.docx》由会员分享,可在线阅读,更多相关《fx5800平曲线竖曲线程序.docx(19页珍藏版)》请在冰点文库上搜索。
fx5800平曲线竖曲线程序
PQX(5800平曲线程序)算左、中、右任意角度及结构物坐标
1、Lb10:
Deg:
Prog“A”
2、E-D→J
3、Arg(cos(J)+isin(J))→J
4、Abs(J)÷J→H
5、S2÷(24R)-S4÷(2268R3)程序中有两个括弧+i(S÷2-S3÷(240R2))→P
6、JH÷2→M
7、90÷(Rπ)→N
8、(R+ReP(P))tan(M)+ImP(P)→T
9、M÷N+S→L
10、C-T→U
11、A-T(cos(D)+isin(D))→B
12、IfK ThenC-K→I: 0→F: A-I(cos(D)+isin(D))→X: Goto1: ElseIfK ThenK-U→W: Goto2: ElseIfK ThenGotoA: ElseIfK ThenU+L-K→W: Goto2: ElseGotoB: IfEnd: IfEnd: IfEnd: IfEnd 13、Lbl2: NW2÷S→F: W-W5÷(40R2S2)+W9÷(3456R6S6)程序中有两个括弧+i(W3÷(6RS)-W7÷(336R4S4)程序中有两个括弧→I: IfK ThenGoto3: ElseGOto4: IfEnd 14、Lbl3: B+Abs(I)(cos(D+HArg(I))+isin(D+HArg(I))→X: Goto1 15、LblA: K-U-S→W: 2NW+NS→F: Rsin(F)+Imp(P)+i(R-Rcos(F)+Rep(P))→I: Goto3 16、LblB: K-U-L→W: 0→F: A+(W+T)(cos(E)+isin(E))→X: E→D: Goto1 17、Lbl4: E-HArg(I)→V: E→D: -H→H: A+T(cos(E)+isin(E))-Abs(I)(cos(V)+isin(V))→X: Goto1 18、Lbl1: D+HF+Z→Q: “X+Yi=”: X+G(cos(Q)+isin(Q))+O(cos(Q-Y)+isin(Q-Y))→X▲ 19、Goto0 A(数据库)PQX子程序 1、“DK”? K: “L-R”? G: “XJ”? Z: ? O: ? Y 2、IfK<141216.781(第二曲线起点): Then1300(半径)→R: 165(缓和曲线长)→S: 73688.363+61082.739i(交点坐标X+Yi)→A: 140083.413(交点桩号)→C: 2975148.67(与前一交点方位角)→D: 2362444.84(与后一交点方位角)→E: Return: IfEnd 例题: 1、”DK”? K: ”L-R”? G: ”XJ”? Z: O: ? Y 2、IfK<424.235: Then1000→R: 120→S: 43812.504+48756.851i→A: -33.942→C: 103°3°30°→D: 91°8°38°→E: Return: IfEnd 3、IfK<1663.769: Then1000→R: 120→S: 43797.960+49485.331i→A: 693.821→C: 91°8°38°→D: 114°48°17°→E: Return: IfEnd 4、IfK<3972.554: Then2000→R: 0→S: 43277.777+50610.861i→A: 1927.535→C: 114°48°17°→D: 99°46°44°→E: Return: IfEnd 5、IfK<6129.653: Then3000→R: 0→S: 42846.791+53111.511i→A: 4462.027→C: 99°46°44°→D: 118°18°43°→E: Return: IfEnd 6、IfK<7223.231: Then1000→R: 120→S: 41916.431+54838.510i→A: 6415.133→C: 118°18°43°→D: 80°12°52°→E: Return: IfEnd SQX(5800竖曲线程序) 1、Lbl0: Prog“B” 2、(B-C)R÷200→T 3、IfK ThenH-0.01B(J-K)→X: ElseIfK ThenK-J+T→D: H-0.01B(T-D)-D2 ÷(2R)→X: ElseH+0.01C(K-J)→X: IfEnd: IfEnd: 4、X-0→X: Prog“Z”: “Z+Xi=”: X+Z+Xi→Z▲ “Y=”: X+Y→Y▲ 4、Goto0 B(数据库) 1、“DK”? K: IfK≦140815(下一个竖曲线起点): Then-1000(半径凸+,凹-)→R: -2.2(前一纵坡坡度)→B: 2.9(后一纵坡坡度)→C: 140200(边坡点桩号)→J: 219.755(边坡点高程)→H: Return: IfEnd 例子: “DK”? K: IfK≦2241.25: Then8000→R: -0.4→B: -2→C: 1920→J: 31→H: Return: IfEnd IfK≦2857: Then-5000→R: -2→B: 0.35→C: 2300→J: 23.4→H: Return: IfEnd IfK≦2939.44: Then18000→R: 0.35→B: -0.35→C: 2650→J: 24.625→H: Return: IfEnd IfK≦3296.165: Then-10000→R: -0.35→B: 0.861→C: 3000→J: 23.4→H: Return: IfEnd IfK≦3560: Then5000→R: 0.861→B: -1.692→C: 3360→J: 26.5→H: Return: IfEnd IfK≦4117.9: Then-5000→R: -1.692→B: 0.714→C: 3620→J: 22.1→H: Return: IfEnd IfK≦4955.317: Then12000→R: 0.714→B: -0.321→C: 4180→J: 26.1→H: Return: IfEnd IfK≦5255.341: Then-7000→R: -0.321→B: 1.527→C: 5020→J: 23.4→H: Return: IfEnd IfK≦5594.478: Then4500→R: 1.527→B: -1.347→C: 5320→J: 27.98→H: Return: IfEnd IfK≦5876.658: Then-7000→R: -1.347→B: 0.525→C: 5660→J: 23.4→H: Return: IfEnd IfK≦6000: Then15000→R: 0.525→B: -0.32→C: 5940→J: 24.87→H: Return: IfEnd Z(5800超高程序) 1、Prog“C”: “B”? V 2、0.04S÷(0.02+C)→D: A-T→E: E+D→F: E+S→G: G+L→I: I+S→M: M-D→J 3、IfK Then-0.02V→Z: Z→Y: : Goto1: ElseIfK ThenGoto2: ElseIfK ThenH((0.02+C)V(K-E)÷S-0.02V→Z: -Z→Y: Goto1: ElseIfK ThenHVC→Z: -Z→Y: Goto1: ElseIfK ThenH((0.02+C)V(M-K)÷S-0.02V→Z: -Z→Y: Goto1: ElseIfK ThenGoto3: Else-0.02V→Z: Z→Y: Goto1: IfEnd: IfEnd: IfEnd: IfEnd: IfEnd: IfEnd 4、Lbl2: IfH<0(零): Then0.02VH→Z: (0.02+C)V(K-E)/S-0.02V→Y: Else(0.02+C)V(K-E)/S-0.02V→Z: -0.02VH→Y: IfEnd: Goto1 5、Lbl3: IfH<0: Then0.02VH→Z: (0.02+C)V(M-K)/S-0.02V→Y: Else(0.02+C)V(M-K)/S-0.02V→Z: -0.02VH→Y: IfEnd: Goto1: Lbl1 C程序 IfK≦141216.781: Then140083.413→A: 0.03→C: -1→H: 130→S: 1229.28→L: 855.675→T: Return: IfEnd IfK≦142472.319: Then141700.107→A: 0.03→C: 1→H: 130→S: 608.144→L: 483.326→T: Return: IfEnd IfK≦143839.524: Then142976.487→A: 0.02→C: -1→H: 105→S: 634.484→L: 504.168→T: Return: IfEnd IfK≦145570.280: Then144509.787→A: 0.02→C: 1→H: 105→S: 928.816→L: 670.263→T: Return: IfEnd IfK≦148062.26: Then146191.812→A: 0.02→C: -1→H: 105→S: 822.148→L: 621.531→T: Return: IfEnd PQXZFS平曲线正反算(主程序) Lbl4: “1.SZ=>XY”: “2.SZ=>XY”: ? N: ? S: Prog“SUB0” 1/P→C: (P-R)/(2HPR)→D: 180/兀→E: N=1=>Goto1: Goto2: Lbl1: ? Z: Abs(S-O)→W: Prog“SUB1”: “XS=”: X▲ “YS=”: Y▲ F-90→F: “FS=”: F▲DMS▲ Goto4 Lbl2: ? X: ? Y: X→I: Y→J: Prog“SUB2”: O+W→S: “S=”: S▲ “Z=”: Z▲ Goto4 正算子程序SUB1 0.1739274226→A: 0.3260725774→B: 0.0694318442→K: 0.3300094782→L: 1-L→F: 1-K→M: U+W(Acos(G+QEKW(C+KWD))+Bcos(G+QELW(C+LWD))+Bcos(G+QEFW(C+FWD))+Acos(G+QEMW(C+MWD)))→X: V+W(Asin(G+QEKW(C+KWD))+Bsin(G+QELW(C+LWD))+Bsin(G+QEFW(C+FWD))+Asin(G+QEMW(C+MWD)))→Y: G+QEW(C+WD)+90→F: X+Zcos(F)→X: Y+Zsin(F)→Y 反算子程序SUB2 G-90→T: Abs((Y-V)cosT-(X-U)sinT)→W: 0(零)→Z: Lbl0: Prog“SUB1”: T+QEW(C+WD)→L: (J-Y)cosL-(I-X)sinL→Z: IfAbs(Z)<1**10-6: Then0→Z: Prog“SUB1”: (J-Y)/sinF→Z: ElseW+Z→W: Goto0: IfEnd 数据库子程序SUB0 Goto1 Lbl1: IfS<***(线元终点里程): Then***→G(线元起点方位角): ***→O(线元起点里程): ***→U(线元起点X): ***→V(线元起点Y): ***→P(线元起点曲率半径): ***→R(线元终点曲率半径): ***→H(线元起点至终点长度): 0或1、-1→Q: Return: IfEnd Lbl1: IfS<***(线元终点里程): Then***→G(线元起点方位角): ***→O(线元起点里程): ***→U(线元起点X): ***→V(线元起点Y): ***→P(线元起点曲率半径): ***→R(线元终点曲率半径): ***→H(线元起点至终点长度): 0或1、-1→Q: Return: IfEnd ……………… 使用说明: 1、一道路中线的前进方向(即里程增大的方向)区分左右,当线元往左偏时,Q=-1;当线元往右偏时Q=1;当线元为直线时Q=0 2、当所求点位于中线时,Z=0;当所求点位于中线左侧时Z取负值;位于右侧时Z取正直 3、当线元为直线时,其起点、止点的曲率半径为无穷大,以10的45次代替 4、当线元为圆曲线时,无论其起点、止点与什么线元相接,其曲率半径均等于圆弧半径 5、当线元为完整缓和曲线时,起点与直线相接时,曲率半径为无穷大,以10的45次代替;当与圆曲线相接时,曲率半径等于圆曲线的半径。 止点与直线相接时,曲率半径为无穷大,与10的45次代替,与圆曲线相接时,曲率半径等于圆曲线的半径 6、当线元为非完整缓和曲线时,起点与直线相接时,曲率半径等于设计规定的值;与圆曲线相接时,曲率半径等于圆曲线的半径;止点与直线相接时,曲率半径等于设计规定的值,与曲线相接时,曲率半径等于圆曲线的半径 输入与显示说明 N选择计算方式,1正算,2反算 S? 正算时所求的里程,反算时为所求的近似里程 X? 反算时所求点的X坐标 Y? 反算时所求点的Y左标 FS=正算时,所求点对应的中线点的切线方位角 道路中边桩坐标放样正反算CASIOfx-5800P程序(全线贯通) 程序的特点: 1.可进行中桩坐标的正、反算,程序代码简洁,便于阅读和改写; 2.主程序通过调用数据库子程序,省却了使用时输入平面参数的繁琐; 3.使用数据库子程序,换项目只需改写数据库子程序,程序通用性强。 .二、程序代码 . . . . . . 注: 路线数据库子程序ROAD-DATA1是根据计算示例项目的直曲表编写,大家使用时应按各自项目的直曲表改写或新建。 . .例题: -198.348→D: 424.235→E: IfP<=(小于等于)E: Then-33.942→K: 43812.504→X: 48756.851→Y: 103º3º30º→ M: -11º54º52º→O: 1000→R: 120→B: 120→C: Goto1: IfEnd E→D: 1663.769→E: IfP<=(小于等于)E: Then693.821→K: 43797.96→X: 49485.331→Y: 91º8º38º→ M: 23º39º40º→O: 1000→R: 120→B: 120→C: Goto1: IfEnd E→D: 3972.544→E: IfP<=(小于等于)E: Then1927.535→K: 43277.777→X: 50610.861→Y: 114º48º17º→ M: -15º1º34º→O: 2000→R: 0→B: 0→C: Goto1: IfEnd E→D: 6009.653→E: IfP<=(小于等于)E: Then4462.027→K: 42846.791→X: 53111.511→Y: 99º46º44º→ M: 18º31º59º→O: 3000→R: 0→B: 0→C: Goto1: IfEnd E→D: 7223.231→E: IfP<=(小于等于)E: Then6415.133→K: 41916.413→X: 54838.510→Y: 118º18º43º→ M: -38º5º51º→O: 1000→R: 120→B: 120→C: Goto1: IfEnd Lbl1: IfP<-198.348OrP>7223.231: ThenCls: Locate5,2,“KPERROR”▲ Stop: IfEnd: Return 四、程序变量清单 . . 五、计算流程示例 1.中桩坐标计算示例 计算任务: 计算高速公路K6+100~K6+700段的中桩坐标及切线方位角(桩距20m),并 在导线点(2807118.026,474113.687)上架设全站仪,计算各中桩的极坐标放样数据。 使用道路中边桩坐标放样正反算程序RAOD-2的操作流程见下表。 . . . . 2.边桩坐标计算示例 计算任务: 计算HY高速公路主线K6+100~K6+700段的边桩(左右各12.25米)坐标(桩距20m)。 使用道路中边桩坐标放样正反算程序RAOD-2的操作流程见下表。 . . 3.坐标反算计算示例 计算任务: 根据前面计算的K6+100的中桩、左右边桩的坐标,反算对应桩号及偏距,并进行验证。 使用道路中边桩坐标放样正反算程序RAOD-2的操作流程见下表。 .
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- fx5800 曲线 程序