卡西欧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:Then 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=”
2、:G+Dsin(Z+H)Z12(黑色三角)If U=0:Then Goto 3:Else Pol(Z11-U,Z12-V):IfEnd(回车符号)Goto 2(回车符号)Lbl 4(回车符号)“ROAD?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 E=1:Then Prog“ROAD-DATA1”:IfEnd(回车符号)If E=2:Then Prog“ROAD-DATA2”:IfEnd(回车符号)If E=3:Then Prog“ROAD-
3、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(数据库 圆曲线要素)(开始编的第一个交点第一缓和曲线起点)也叫起始交点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
4、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+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(
《卡西欧5800P完整程序(两套)》由会员jiups****uk12分享,可在线阅读,更多相关《卡西欧5800P完整程序(两套)》请在金锄头文库上搜索。
建立安全生产长效机制-共创和谐平安输气管道
土石方爆破工程设计方案
康师傅百货商场制度汇编之退换货管理办法
庙头中学2012年中考百日誓师大会学生代表发言稿
围堰拆除爆破工程
华能洱源马鞍山风电场工程土石方爆破管理制度
国资委:全面开展管理提升活动-为培育世界一流企业奠定坚实基础
《专业技术人员职业发展与规划》电子书
应收票据审计方案
建筑给水排水与采暖工程质量验收用表
广播电视管理条例行政处罚裁量标准
广东电力系统调度运行操作管理规定
建筑给排水工程名词解释
幼儿园小班安全健康活动教案:宝宝误食后的急救
建业集团房屋建筑工程交房标准内容技术交底
建筑心理学论文(1)
康师傅百货商场制度汇编之工服管理程序009
建筑工程专业一级建造师继续教育培训结业报告20
廉洁风险防控回头看工作汇报材料
平台工作人员服务规范
2024-04-24 10页
2024-04-24 10页
2024-04-24 25页
2024-04-24 10页
2024-04-23 4页
2024-04-23 10页
2024-04-23 19页
2024-04-23 10页
2024-04-23 16页
2024-04-23 5页