卡西欧5800P完整程序(两套).doc

《卡西欧5800P完整程序(两套).doc》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、(逻辑运行运算公式主程序):Deg:Fix3:20→DimZ（回车符号）“ZS[1]，FS[2]”？J（回车符号）IfJ=1：ThenGoto0：ElseGoto4：IfEnd（回车符号）Lbl0（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl1（回车符号）“KP”？P（回车符号）Prog“ROAD-DATA”（回车符号）M+O→N（回车符号）Prog“ROAD-SUB1”（回车符号）Prog“ROAD-SUB2”（回车符号）“XP=”：F（黑色三角）

2、“YP=”：G（黑色三角）“BP=”：Z（黑色三角）DMS（黑色三角）IfU=0：ThenGoto3:ElsePol(F-U，G-V)：IfEnd（回车符号）Lbl2（回车符号）IfJ〈0：ThenJ+360→J：IfEnd（回车符号）“A1=”：J（黑色三角）DMS（黑色三角）“D1=”：I（黑色三角）Lbl3（回车符号）“DANGLE”？H：IfH=0：ThenGoto1：IfEnd：？D（回车符号）“XB=”：F+Dcos（Z+H）→Z[11]（黑色三角）“YB=”：G+Dsin(Z+H)→Z[12]（黑色三

3、角）IfU=0：ThenGoto3：ElsePol（Z[11]-U，Z[12]-V）：IfEnd（回车符号）Goto2（回车符号）Lbl4（回车符号）“ROAD？[1-5]”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl5（回车符号）“XB”？U：“YB”？V：“KP”？P（回车符号）Lbl6（回车符号）Prog“ROAD-DATA”（回车符号）M+O→N（回车符号）Prog“ROAD-SUB1”（回车符号）Prog“ROAD-SUB2”（回车符号）Z-90→A（回车符号）（V-G）cos（A）-（U

4、-F）sin（A）→H（回车符号）IfAbs（H）＞0.0001：ThenP+H→P：Goto5：IfEnd（回车符号）“K=”：P（黑色三角）“D=”：（G-V）÷sin（A）→D（黑色三角）Goto4（回车符号）ROAD-DATAIfE=1：ThenProg“ROAD-DATA1”：IfEnd（回车符号）IfE=2：ThenProg“ROAD-DATA2”：IfEnd（回车符号）IfE=3：ThenProg“ROAD-DATA3”：IfEnd（回车符号）IfE=4：ThenProg“ROAD-DATA4”：If

5、End（回车符号）IfE=5：ThenProg“ROAD-DATA5”：IfEnd（回车符号）注：ROAD-DATA编几段对应的计算数据库就编几段，比如此例有五段，那么就编五段“ROAD—DATA1、2、3......”。ROAD-DATA1（数据库圆曲线要素）（开始编的第一个交点第一缓和曲线起点）也叫起始交点→D：（下一个交点的第一缓和曲线起点）→H：IfP≤H：Then开始编写的第一个交点的交点桩号→K：起始交点的X坐标→X：起始交点的Y坐标→Y：与上一个焦点的方位角→M：起始交点的转角值→O：起始交点的半径→

6、R：上一交点的缓和曲线长度→B：编写的起始交点的缓和曲线长度→C：Goto1：IfEnd（回车符号）H→D：（下一个交点的第一缓和曲线起点）→H：IfP≤H：Then所计算交点的交点桩号→K：所计算交点的X坐标→X：所计算交点的Y坐标→Y：与上一个焦点的方位角→M：所计算交点的转角值→O：所计算交点的半径→R：上一交点的缓和曲线长度→B：所计算交点的缓和曲线长度→C：Goto1：IfEnd（回车符号）。。。。。。结束段：Lbl1：IfP＜起始桩OrP＞此段终点桩：ThenCls：Locate5,2，“KPERROR

7、”（黑色三角形）Stop：IfEnd：Return（回车符号）ROAD-DATA2ROAD-DATA3。。模式同上.......注：每段按实际曲线要素选择终点桩号ROAD-SUB1<判断路线转向子程序>IfO＜0：Then-1→W：Else1→W：IfEnd：WO→A（回车符号）B²÷24÷R-B^（4）÷2688÷R^(3)+B^(6)÷÷R^(5)→Z[6]（回车符号）C²÷24÷R－C^(4)÷2688÷R^(3)+C^(6)÷÷R^(5)→Z[7]（回车符号）B÷2－B^(3)÷240÷R²+B^(5)÷3

8、4560÷R^(4)→Z[8]（回车符号）C÷2－C^(3)÷240÷R²+C^(5)÷34560÷R^(4)→Z[9] （回车符号）Z[8]+(R+Z[7]－(R+Z[6])cos(A))÷sin(A)→S （回车符号）Z[9]+(R+Z[6]－(R+Z[7])cos(A))÷sin(A)→T （回车符号）RAπ÷180+(B+C)÷2→L （回车符号）L