《卡西欧5800P完整程序(两套)》由会员分享，可在线阅读，更多相关《卡西欧5800P完整程序(两套)（9页珍藏版）》请在金锄头文库上搜索。
1、(逻辑运行运算公式主程序):Deg:Fix 3:20DimZ（回车符号）“ZS1，FS2”？J（回车符号）If J=1：Then Goto 0：Else Goto 4：IfEnd（回车符号）Lbl 0（回车符号）“ROAD？1-5”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 1（回车符号）“KP”？P（回车符号）Prog “ROAD-DATA”（回车符号）M+ON（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）“XP=”：F（黑色三角）“YP=”：G（黑色三角）“BP=”：Z（黑色三角）DMS（黑色三角）If U=0：The
2、n Goto 3:Else Pol(F-U，G-V)：IfEnd（回车符号）Lbl 2（回车符号）If J0：Then J+360J：IfEnd（回车符号）“A1=”：J（黑色三角） DMS（黑色三角）“D1=”：I（黑色三角）Lbl 3（回车符号）“DANGLE”？H：If H=0：Then Goto 1：IfEnd：？D（回车符号）“XB=”：F+Dcos（Z+H）Z11（黑色三角）“YB=”：G+Dsin(Z+H)Z12（黑色三角）If U=0：Then Goto 3：Else Pol（Z11-U，Z12-V）：IfEnd（回车符号）Goto 2（回车符号）Lbl 4（回车符号）“ROA
3、D？1-5”?E(回车符号)“XS”？U：“YS”？V（回车符号）Lbl 5（回车符号）“XB”？U：“YB”？V：“KP”？P（回车符号）Lbl 6（回车符号）Prog “ROAD-DATA”（回车符号）M+ON（回车符号）Prog “ROAD-SUB1”（回车符号）Prog “ROAD-SUB2”（回车符号）Z-90A（回车符号）（V-G）cos（A）-（U-F）sin（A）H（回车符号）If Abs（H）0.0001：Then P+HP：Goto 5：IfEnd（回车符号）“K=”：P（黑色三角）“D=”：（G-V）sin（A）D（黑色三角）Goto 4（回车符号）ROAD-DATAIf
4、 E=1：Then Prog“ROAD-DATA1”：IfEnd（回车符号）If E=2：Then Prog“ROAD-DATA2”：IfEnd（回车符号）If E=3：Then Prog“ROAD-DATA3”：IfEnd（回车符号）If E=4：Then Prog“ROAD-DATA4”：IfEnd（回车符号）If E=5：Then Prog“ROAD-DATA5”：IfEnd（回车符号）注：ROAD-DATA编几段对应的计算数据库就编几段，比如此例有五段，那么就编五段“ROADDATA1、2、3.”。ROAD-DATA 1（数据库 圆曲线要素）（开始编的第一个交点第一缓和曲线起点）也叫起
5、始交点D：（下一个交点的第一缓和曲线起点）H：If PH：Then 开始编写的第一个交点的交点桩号K：起始交点的X坐标X：起始交点的Y坐标Y：与上一个焦点的方位角M：起始交点的转角值O：起始交点的半径R：上一交点的缓和曲线长度B：编写的起始交点的缓和曲线长度C：Goto 1：IfEnd（回车符号）HD：（下一个交点的第一缓和曲线起点）H：If PH：Then 所计算交点的交点桩号K：所计算交点的X坐标X：所计算交点的Y坐标Y：与上一个焦点的方位角M：所计算交点的转角值O：所计算交点的半径R：上一交点的缓和曲线长度B：所计算交点的缓和曲线长度C：Goto 1：IfEnd（回车符号）。结束段：Lb
6、l 1：If P起始桩 Or P此段终点桩：Then Cls：Locate 5,2，“KPERROR”（黑色三角形）Stop：IfEnd：Return（回车符号）ROAD-DATA 2ROAD-DATA 3。 模式同上.注：每段按实际曲线要素选择终点桩号ROAD-SUB 1If O0：Then -1W：Else 1W：IfEnd：WOA（回车符号）B24R-B（4）2688R(3)+B(6)506880R(5) Z6（回车符号）C24RC(4)2688R(3)+C(6)506880R(5) Z7（回车符号）B2B(3)240R+B(5)34560R(4) Z8（回车符号）C2C(3)240R+
7、C(5)34560R(4) Z9（回车符号）Z8+(R+Z7(R+Z6)cos(A)sin(A) S（回车符号）Z9+(R+Z6(R+Z7)cos(A)sin(A) T（回车符号）RA180+(B+C)2L（回车符号）LBCQ（回车符号） KS Z1 （回车符号）Z1+B Z2（回车符号）Z2+Q2Z3（回车符号）Z1+LCZ4（回车符号） Z4+CZ5（回车符号）ROAD-SUB 2XScos(M)F：YSsin(M)G（回车符号）If PZ1：Then Goto 1：IfEnd（回车符号）XF：YG：P-KZ16：OZ17：MA:MZ：Goto 5（回车符号）Lbl 1（回车符号）If P
8、Z2: Then Goto 2: IfEnd（回车符号）PZ1L: LZ14:BZ15:Prog ROADSUB3（回车符号）WZ17Z17：MA：M+90WL（BR）Z：Goto 5（回车符号）Lbl 2（回车符号）If PZ4: Then Goto 3: IfEnd （回车符号）PZ1L:90(2LB)RA（回车符号）Rsin(A)+Z8Z16: W（R(1cos(A)）+Z6 ）Z17（回车符号）M+WAZ：MA：Goto 5（回车符号）Lbl 3（回车符号）If PZ5: Then Goto 4: IfEnd （回车符号）Z5PL: LZ14: CZ15:Prog ROADSUB3（回
9、车符号）X+Tcos(N)F:Y+Tsin(N)G（回车符号）-Z16Z16:WZ17Z17:NA:N90WL(CR)Z：Goto 5（回车符号）Lbl 4（回车符号）XF：YG：P-Z15+TZ16：OZ17：NA：NZ：Goto 5（回车符号）Lbl 5（回车符号）F+Z16cos(A)Z17sin(A)F（回车符号）G+Z16sin(A)+Z17cos(A)G（回车符号）If Z0：Then Z+360Z：IfEnd（回车符号）ROAD-SUB 3If Z14=0:Then 0Z16: 0Z17: Else（回车符号）Z14Z14(5)40(RZ15)+Z14(9)3456(RZ15)(
10、4)Z16（回车符号）Z14(3)6(RZ15)-Z14(7)336(RZ15)(3)+Z14(11)42240(RZ15)(5)Z17 （回车符号）IfEnd（回车符号）第二套程序： (逻辑运行运算公式主程序)Deg:Fix 4:GAbs(G)V:F2(24R)-F(4)(2688R(3)+F(6)(506880R(5)-F(8)(154828800R(7)P:F2-F(3)（240R2）+F（5）(34560R（4）)-F（7）(8386560R（6）)+F（9）(3158507520R（8）)Q:Q+(R+P)Vtan(G2)T:RGV180+FI:IF LH-T:Then L-HJ:G
11、oto 1:IfEnd:If LH-T+F:Then L-H+TJ:CZ:1S:Goto 2:IfEnd:If LH-T+I-F:Then L-H+TJ:CZ:1S: Goto 3:IfEnd:If LH-T+I:Then H-T+I-LJ:C+GC:-1S:Goto 2: IfEnd:If LH-T+I:Then L-H-I+2TJ:C+GC:Goto 1:IfEnd:Lbl 1:D+Jcos (C)X:E+Jsin(C)Y:CO: Goto C:Lbl 2:(J-J(5)(40(RF)2)+J(9)(3456(RF)(4)-J(13)(599040(RF)(6)+J(17)(1754726
12、40(RF)(8)-T)SM:(J(3)(6RF)-J(7)(336(RF)(3)+J(11)(42240(RF)(5)-J(15)(9676800(RF)(7)+J(19)(3530097000(RF)(9)VN:C+90J2SV(RF)O:Goto BLbl 3:180(J-0.5F) (R)O:Q+Rsin (O)-TM:(P+R(1-cos (O)VN:C+VOO：Goto BLbl B:D+Mcos(C)-Nsin(C)X:E+Msin(C)+Ncos(C)Y :Goto C:Lbl C:If Z30.0001:Then ?K: M?U:K180-U U:O+UAbs(K)(K+10
13、(-10) Z:”X”:X+Abs(K)cos(Z)X“Y”:Y+Abs(K)sin(Z)Ytan-1(Y-B)(X-A+10(-10)W:X-AW+180W:WW+360W:(X-A)2+(Y-B)2)SDIS: SFW: WDMS IfEnd运行数据库 圆曲线要素3DimZ：“X0”?A: “Y0”?B:“Ln”?L: Abs(L)-Int(Abs(1000L)/1000Z3:Lbl 0:If Z30.0001: Then ?L:Else “Xp”?X:”Yp”?Y:XZ1：YZ2：IfEnd:Lbl 1:If L（桩号） :Then （方位角）C：（需要计算交点的X坐标）D：（需要计算交点的Y坐标）E：（需计算交点的缓和曲线长度）F：（需要计算交点的转角值）G:（需要计算交点桩号）H: （需要计算交点的半径）R：IfEnd: （注：有几个需要计算的交点就编写几段）Prog”FDCH”: Prog”XLJS”: If Z30.0001:Then Goto 0:Else (Z1X)cos()(Z2Y)sin()N:LNL:(Z1X)sin(O)+(Z2Y)cos（O）K：If Abs（N）0.001：Then Goto 1：Else “L=“
