5800程序
2页1、FX5800P全线任意里程中边桩坐标正反算(加了数据库)本程序非本人原创,结合上传者长处,进行改编,愿收获和大家共享,不足之处多多指教。希望过路神仙把竖曲线加进去带算隧道超欠挖,谢谢曲線任意里程中邊樁坐標正反算5800p本程序由内蒙文哥和师父阿玖哥共同改编完成主程序ZBJSLbl 6:1.SZ XY:2.XY SZ:?S:?N:Prog“SUB0”1PC:(P-R)(2HPR) D:180E:N=1 =Goto 1: Goto 2Lbl 1:?Z: Abs(S-O)W: ProgSUB1:XS=:XYS=:YFS=:F-90 DMS“XC” ?C: “YC” ? E:0I:0J:Pol(X-C,Y-E):“I=”:IIfJ0: Then “J=”: J+360DMSIfEndIfJ 0:Then “J=” :JDMSIfEnd:Goto 6Lbl 2?X:?Y:XI:YJ:ProgSUB2:O+WS:Cls:S=:SZ=:ZGoto 6正算子程序 SUB10.1739274226A: 0.3260725774B: 0.0694318442K: 0.3300094782L: 1-LF:
2、1-KM: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)+90F: X+Zcos(F)X: Y+Zsin(F)Y反算子程序SUB2 G-90T(Y-V)cosT-(X-U)sin(T) WAbs(W)W:0ZLbl6:Prog SUB1T+QEW(C+WD) L: (J-Y)cos(L)-(I-X)sin(L)ZIF Abs(Z)1E-6:Then0Z:Prog SUB1:(J-Y)sin(F)Z:Else W+ZW:Goto6:IfEnd数据库子程序 SUB0Goto 1(线元可输入多条,分离式可在前多加一位,匝道一样。例:左幅为K129+500,右幅输线元参数里程为1129+500,其他不变,前面1为任意数字,计算机便于区分)Lbl1:IFS线元终点里程:ThenO(线元起点里程) : U(线元起点X坐标):V(线元起点Y坐标):G(线元起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEndIFS线元终点里程:ThenO(线元起点里程) : U(线元起点X坐标):V(线元起点Y坐标):G线元(起点计算方位角):P(线元起点半径):R(线元止点半径):H(线元长度):Q(线元左、右偏标志,左偏-1,右偏1,直线为0):Return:IfEnd
《5800程序》由会员大米分享,可在线阅读,更多相关《5800程序》请在金锄头文库上搜索。
2023办公室职员职位工作总结(3篇).doc
特种设备应急预案ok
高中校长讲话稿4分钟5篇
学生竞选班长发言稿
工作自我总结样本(2篇).doc
2023年二级建造师之二建建筑工程实务题库附答案(典型题)
《小鹿的玫瑰花》教学反思
西师大版五年级语文上册文言文阅读与理解试题
伺服系统工作原理
江西省吉安一中2011届高三语文上学期第三次段考新人教版
酒店客房管理
重污染天气应急响应一厂一策实施方案模板
大学生暑假三下乡实习总结
单位车辆管理系统设计与实现-毕业论文
医院安全演讲稿
初一历史教学工作计划4篇
某师范大学生毕业自荐书大学生毕业自荐书模板
大理石墙面湿贴施工施工工艺
年产2万套服装项目可行性研究报告写作模板立项备案文件
澳洲药房直供HealthyCareColostrumMilkPowder
2022-07-28 13页
2022-08-22 1页
2024-02-11 5页
2022-10-11 1页
2023-07-25 2页
2023-01-15 4页
2023-03-02 5页
2023-08-22 11页
2024-02-22 10页
2024-02-13 5页